Mengambial data koneksi dengan ADODB

Sebelum kita mengkoding, ada yang perlu kita persiapkan 2 komponen yaitu :

DB Grid
ADODB
lalu kita tuliskan program berikut ini :

pada model kita tuliskan :

Public Sub konek()
StrConnect = “provider=MSDASQL;DSN=admin;UID=labkom;PWD=sajada;”
‘StrConnect = “provider=microsoft.jet.oledb.4.0;data source=” + App.Path + “\labkom.mdb”
If Conn.State = adStateOpen Then
Conn.Close
Set Conn = New ADODB.Connection
Conn.Open StrConnect
Else
Conn.Open StrConnect
End If
End Sub

pada form kita tuliskan :

Private Sub Form_Load()
Call tampilan
End Sub
Sub tampilan()
Call konek
Adodc1.ConnectionString = StrConnect
Adodc1.RecordSource = “SELECT * FROM mhs “
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Keterangan : di dalam contoh diatas berarti database labkom dengan tabel mhs