jika sudah.docx

Jika sudah, sekarang kita buat modul untuk koneksinya, caranya Klik menu project > Add Modul > Open, kemudian tuliskan koding dibawah ini :.

'untuk mendefinisikan string koneksi dan tabel mhs

Public ConN As New ADODB.Connection
Public RSmhs As New ADODB.Recordset

'setting string koneksi dan tabel

Sub koneksi()
Set ConN = New ADODB.Connection
Set RSmhs = New ADODB.Recordset

'buka koneksi ke database
ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\tes.mdb"
End Sub

Jika sudah, Simpan modulnya, kemudian klik 2 kali pada form sampai muncul jendela kode, lalu masukkan kode perintah berikut :

'procedure saat form aktif

Private Sub Form_Activate()

'melakukan koneksi ke database dengan memanggil sub koneksi pada modul
Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\tes.mdb"

'tabel mhs sebagai sumber data untuk adodc
Adodc1.RecordSource = "mhs"
Adodc1.Refresh

'menghubungkan datagrig dengan adodc
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

'perintah untuk mencari data pada tabel mhs dan dari  nrp

 Function CariData()
    Call koneksi
    RSmhs.Open "Select * From mhs where nrp='" & Text1 & "'", ConN
End Function

'perintah untuk menampilkan data dari database ke textbox

Private Sub TampilkanData()
Text2 = RSmhs!nama
Text3 = RSmhs!jurusan
End Sub

'perintah untuk melakukan pencarian pada Text1

Private Sub Text1_LostFocus()

'memanggil fungsi cari data
Call CariData
        If Not RSmhs.EOF Then

'memanggil sub tampil data
            TampilkanData
            MsgBox "NIM siswa Sudah Ada"
            End If
End Sub

'perintah untuk tombol tambah

Private Sub Command1_Click()

'membuat variabel SQLTambah dengan tipe data string
Dim SQLTambah As String

'kode perintah sql untuk menyimpan data ke tabel mhs
            SQLTambah = "Insert Into mhs (nrp,nama,jurusan) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
            ConN.Execute SQLTambah
            Form_Activate
End Sub

'perintah untuk tombol edit
Private Sub Command2_Click()

Dim SQLEdit As String

 'edit data di tabel siswa yang nrp nya sedang dipilih di text1
            SQLEdit = "Update mhs Set nama= '" & Text2 & "'," & " jurusan='" & Text3 & "' where nrp='" & Text1 & "'"
            ConN.Execute SQLEdit
            Form_Activate
End Sub

'kode perintah hapus

Private Sub Command3_Click()
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub

Jika semua koding sudah diketikkan, jalankan program dengan menekan tombol F5.

catatan : simpan database dan project dalam satu folder.

Sampai disini dulu pembahasan nya,,semoga bisa membantu ^_^.