Program ADO Hapus Record Database Access

Senin, 8 April 2013 | 15:26 WIB | Dibaca : 1556 kali | Kategori : Prog Visual Basic
Program ADO Hapus Record Database Access

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.

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

Tag : program ADO Hapus Record Database Access, program visual basic, program hapus data, program ado


Bila berita ini bermanfaat silahkan share Program ADO Hapus Record Database Access ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Program ADO Hapus Record Database Access

Anda berada di halaman Program ADO Hapus Record Database Access, dan telah membaca artikel Program ADO Hapus Record Database Access. Artikel Program ADO Hapus Record Database Access bisa anda peroleh pada halaman http://www.mesran.web.id/berita-611-program-ado-hapus-record-database-access.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Program ADO Hapus Record Database Access sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id