Aku dah dapat caranya, buat rekan2 sekalian yang pingin tahu juga nih aku kasih kodingnya tapi ngak pakai adodc control lho. pakai dll aja. 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. --- In Programmer-VB@yahoogroups.com, "rozak" <kancilj...@...> wrote: > > mas,mas... > saya numpang nanya dong > saya bikin program dengan vb6 dan untuk databasenya saya pake > ms.access dan koneksinya saya pake adodc,,waktu saya jalankan > programnya berjalan normal sih...tapi kenapa ya record dlm databasenya > gak mau keluar kaya gak konek gt padahal waktu saya tes koneksi > databasenya nyambung ko > mohon pencerahanya dong mas.... >
