Database Visual Basic Sederhana menggunakan Koneksi ADODC

Untuk Membuat penyimpanan data pada sebuah Program Aplikasi Maka Kita membutuhkan tempat penyimpanan data yaitu Database.

1. Langkah Pertama
Buatlah sebuah database, disini saya menggunakan Database Microdoft Office 2007
Create database name : dbperkuliahan
Create tablename        : tbmakaul
Create Field                : -kdmakul (teks 10) Premary key
                                  : -nama (teks 20)
                                  : -sks (teks 4)

Kemudian save as database tersebut dengan file ekstenis .mdb

2. Selanjutnya Buka Visual Basic 6.0 desain Form sbb:

3. Tambahkan Komponen Microsoft ADO data Control 6.0 (OLEDB, Microsoft DataGrid Control 6.0(OLEDB)

kemudian seting koneksi Anara database dbmakul dengan Adodc1
Klik kanan Pada Adodc1 pilih Propertis kemudian Build dan masukan database : dcmakul

4. Selanjutnya Copy link yang ada pada Use conetion string dan pastekan pada listing program berikut :


Private Sub Form_Load()
On Error Resume Next
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Mahasiswa\Nuiel\vbmi2\dbmakul.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tbmakul"
Set DataGrid1.DataSource = Adodc1
End Sub

Ganti link tulisan berwarna merah dengan link kalian masing-masing OK...!!!

5. Selanjutnya Koneksikan Setiap komponen yang ada dengan Adodc1, mulai dari dataGrid1, Text1 (Data source Adodc1, data field kdmakul), Text2(Data source Adodc1, data field nama) dan Text3(Data source Adodc1, data field sks)

6. Tambahkan Perintah perintah SIMPAN, TAMBAH, HAPUS KELUAR, CARI DAN MUNCULKAN SEMUA DATA.

RUMUS FORM_LOAD

Private Sub Form_Load()
On Error Resume Next
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data Mahasiswa\Nuiel\vbmi2\dbmakul.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tbmakul"
Set DataGrid1.DataSource = Adodc1
End Sub


RUMUS SIMPAN

Private Sub Command1_Click()
Adodc1.Recordset.Update
End Sub

RUMUS TAMBAH

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub


RUMUS HAPUS

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

RUMUS KELUAR

Private Sub Command4_Click()
End
End Sub


RUMUS CARI

Private Sub Command5_Click()
Adodc1.RecordSource = "select * from tbmakul where kdmakul like '" & Text4 & "'"
Adodc1.Refresh
End Sub


RUMUS TAMPILKAN SEMUA DATA

Private Sub Command6_Click()
Adodc1.RecordSource = "select * from tbmakul"
Adodc1.Refresh
End Sub

SELAMAT MENCOBA JANGAN TAKUT GAGAL

"MAN JADDA WAJADA"