aku dah nemuin solusinya, langkahnya gini :
1. Buat project baru 2. Tentukan referensi adodb dengan cara pilih : Project > References.. maka akan muncul Referencei dialog. selanjutnya pilih available referencenya > Microsoft ActiveX Data Objects 2.7 Library (atau yang lainnya lah 2.6,2.8) terserah anda sama saja. 3. Bikin Form baru 4. Selanjutnya mulai koding di vbnya neh : ********************************* 'deklarasi variable Dim adoCon As New ADODB.Connection Dim rs As New ADODB.Recordset ------------------------------------------------- Function ConToDb() As Boolean On Error GoTo 1 ConToDb = True 'cek jika database lagi dibuka tutup dulu If adoCon.State = 1 Then adoCon.Close adoCon.CursorLocation = adUseClient adoCon.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;" & _ "Persist Security Info=False" 'membuka database adoCon.Open Exit Function 1: ConToDb = False End Function ------------------------------------------ Sub tampilkanDataCustomer() If rs.State = 1 Then rs.Close rs.CursorLocation = adUseClient rs.Open "select * from customers", adoCon Set DataGrid1.DataSource = rs End Sub ---------------------------------------------- Private Sub Form_Load() 'connect ke database ConToDb 'menampikan data tampilkanDataCustomer End Sub yah begini kurang lebih kodingnya. ________________________________ From: Larry Marzan <[email protected]> To: [email protected] Sent: Friday, February 20, 2009 10:36:16 AM Subject: Salam Kenal..! topic:COnnect database Access Halo semua Hi to admin Programmer-vb, makasih udah add saya di milis ini, Langsung aja nanya nih, saya mo nanya tentang cara menghubungkan database Access(format 97) lewat Data Control yang sudah tersedia di toolbox VB 6.0 Database Access c:\db1.mdb, kemudian tabel yang ada didalamnya "daftar" Di VB sudah ada form yang sudah berisi Data Control yg dalam Properties sudah saya setting: DatabaseName - c:\db1.mdb RecordSource - daftar Yang mau saya tanyakan juga bagaimana caranya menampilkan isi data tsb kedalam textbox.. Terima Kasih atas bantuanya.. Salam
