Cara mengoneksikan ms accesss dengan visual basic.

Listing Program

v  Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

v  Private Sub Command2_Click()

Adodc1.Recordset.Save

End Sub

v  Private Sub Command3_Click()

Adodc1.Recordset.Delete

End Sub

Logika Program

Pada kali ini saya membuat program yaitu cara mengoneksikara an ms access dengan visual basic. Pertama – tama saya membuat database di ms access. Disini saya membuat nama databasenya yaitu tugasvb.mdb lalu disitu saya membuat field-fieldnya berupa NAMA,NPM,KELAS, UMUR. Yg nantinya data-data itu diisinya melalui visual basic. Setelah itu semuanya bertype text. Kemudian saya save nama tabelnya dengan nama arinipartiwi.

Setelah ms accessnya telah dibuat, kita buka vb 6 nya, setelah itu kita buat tampilan seperti ini :

Pada form 1 terdiri dari :

• o   Empat label yaitu yg saya tulis label 1 dengan caption “NAMA”, label 2 dengan caption “NPM”, label 3 dengan caption “KELAS”, label 4 dengan caption “UMUR”.
• o   Empat teksbox yaitu teksbox1 untuk mengisi label1, teksbox2 untuk mengisi label2, teksbox3 untuk mengisi label3, teksbox4 untuk mengisi label4.
• o   Tiga command button yaitu command button1 saya tulis dengan caption “ADD”, command button2 saya tulis dengan caption “SAVE”, command button3 saya tulis dengan caption “DELETE”.
• o   Kemudian satu Adodc.
• o   Lalu satu dataGrid.

 Setelah kita membuat isi dari form1, maka kita klik kanan pada icon DataGrid lalu klik component lalu  pilih Microsoft ADO Data Control 6.0(OLEDB) dan juga Microsoft DataGrid Control 6.0(OLEDB).  Untuk lebih jelasnya perhatikan gambar ini :

Kemudian setelah itu pada arahkan kursor ke ADODC1  kemudian klik kanan – lalu pilih ADODC properties-lalu muncul property pages-kemudian pilih use connection string-klik build lalu pilih-Provider-Microsoft.Jet.OLEDB.4.0. agar lebih jelas perhatikan gambar ini :

Kemudian klik next

Setelah itu pada properties Adodc1, recordsourcenya di ubah dengan arinipartiwi (ini merupakan nama table pada ms access).

Kemudian pada properties DataGrid , data source diubah dengan Adodc1 (ini merupakan penghubung data antara datagrid dengan adodc1).

Setelah kita buat isi formnya, lalu kita membuat kodingannya:

• v  Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

Maksut dari kodingan ini yaitu pada adodc1 akan memberikan  tambahan record atau beberpa field.

• v  Private Sub Command2_Click()

Adodc1.Recordset.Save

End Sub

Maksut dari kodingan ini yaitu pada adodc1  akan mengesave atau menyimpan data  record yg dari visual basic ke dalam database ms access.

• v  Private Sub Command3_Click()

Adodc1.Recordset.Delete

End Sub

Maksut dari kodingan ini yaitu untuk mendelete atau menghapus record atau beberapa field di visual basicnya dan nantinya akan berpengaruh pada data ms accessnya juga.

Output Program

Pada ms access terisi seperti ini :