VB6.0 :: koneksi vb 6.0 menggunakan ADODB untuk database M.Access dan sql server

Pertama yang harus dipersiapkan yaitu:
1 database dan 1 tabel yang dibuat di M. Access
1 form (1 datagrid)
1 module

Silahkan kalian membuat databasenya dahulu dengan 1 buah tabel. Untuk tutorial ini saya mengunakan database dbbiodata dan tabel tbbiodata

Setelah database dibuat silahkan buka vbnya tambahkan 1 buah form seperti gambar dibawah ini :

 Kemudian tambahkan 1 buah module di project > Add module

 

Klik open

Lanjut … untuk koneksi menggunakan ADODB teman teman harus menambahakan microsoft activex data object

Klik menu project > references > cari microsoft activex data object 2.8 library kemudian centang dan Ok

 

Buka modul dengan mengklik 2x pada bagian sebelah kanan,kemudian tambahkan koding berikut ini

Public con As New ADODB.Connection

 

Public rst As New ADODB.Recordset

 

Public strcon As String

 

Public strsql As String

 

 

Public Sub buka()

 

On Error GoTo pesan

 

strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\dbbiodata.accdb;Persist Security Info=False"

If con.State = adStateOpen Then

con.Close

Set con = New ADODB.Connection

con.Open strcon

Else

con.Open strcon

End If

Exit Sub

pesan:

MsgBox "Tidak ada koneksi ke database..!", vbInformation, "Informasi"

End Sub

Public Sub tutup()

con.Close

End Sub

yang diwarna merah adalah koneksi untuk ke database acces 2007 keatas,jika anda menggunakan access  2003 atau sql server silahkan rubah dibagian itu saja.

 

Provider=Microsoft.Jet.OLEDB.4.0;Data Source==" & App.Path & "\dbbiodata.mdb;Persist Security Info=False

 

 

*database access 2003

 

 

Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dbbiodata

 

* database sqlsever

Kemudian kita tambahkan datagrid untuk menampilkan data biodata pada form

Caranya dengan klik menu project > component atau CTRL + T cari microsoft datagrid control 6.0 (SP6) (OLEDB) > centang lalu ok 

Buat seperti gambar dibawah ini 

 

Klik 2x pada form ketik codingnya sperti ini

Option Explicit

 

 

Private Sub Form_Load()

 

Dim lihat As New Recordset

 

Dim sql As String

 

buka

 

con.CursorLocation = adUseClient

 

Set lihat = New Recordset

sql = "Select * From tbbiodata"

lihat.Open sql, con, adOpenStatic, adLockReadOnly

Set DataGrid1.DataSource = lihat.DataSource

End Sub

Simpan filenya kemudian tekan f5 untuk menjalankannya

 

Selesai

Untuk source code silahkan klik disini