Berikut merupakan program ADO untuk hapus record pada database Access.
Designlah form seperti gambar cover tersebut :
Berikut listing program ADO untuk hapus record pada database.
Designlah form seperti gambar cover tersebut :
Berikut listing program ADO untuk hapus record pada database.
Dim db As New ADODB.Connection 'variabel untuk database
Dim rs As New ADODB.Recordset 'variabel untuk tabel
Dim sql As String
Private Sub btnBatal_Click()
Kode = ""
Judul = ""
Pengarang = ""
Penerbit = ""
cmdHapus.Enabled = False
End Sub
Private Sub cmdHapus_Click()
sql = "DELETE FROM Buku " & _
" Where Kode='" & Kode.Text & "'"
db.BeginTrans
db.Execute sql, adCmdText
db.CommitTrans
MsgBox "Data record sudah di Hapus !"
Call btnBatal_Click
Kode.SetFocus
End Sub
Private Sub Form_Load()
'digunakan untuk membuka database
If db.State = adStateOpen Then db.Close
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SmartSolution.mdb;Persist Security Info=False"
Call btnBatal_Click
End Sub
Private Sub Kode_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
If Kode.Text = "" Then
Kode.SetFocus
Else
'tambahkan T pada perintah SQL SELEC tersebut
sql = "SELEC * FROM Buku Where Kode='" & Kode.Text & "'"
'jika record terbuka harus di tutup
If rs.State = adStateOpen Then rs.Close
'perintah untuk membuka record
rs.Open sql, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
Judul = rs!Judul
Pengarang = rs!Pengarang
Penerbit = rs!Penerbit
MsgBox "Data di temukan !"
cmdHapus.Enabled = True
Else
MsgBox "Data tidak temukan !"
Judul = ""
Pengarang = ""
Penerbit = ""
cmdHapus.Enabled = False
End If
rs.Close 'menutup recordset
Judul.SetFocus
End If
End If
End Sub
Sumber : Mesran.net
