MENGKONEKSIKAN DATABASE ACCESS VB 6

MENGKONEKSIKAN DATABASE ACCESS VB 6

Siapa yang gak mengenal microsoft acces apabila kita seorang programer atau belajar program.
Langkah awal untuk memulai bagaimana meghubungkan database access dengan visualstudio 6.0
Untuk itu mari kita sama-sama belajar bagaimana
mengkoneksikan database ke vb 6.0

Langkah pertama :
Buat satu data access dimana nanti akan kita hubungkan dengan vb 6.0
disini saya tidak perlu menampilkan secara terperinci.

Langkah kedua :
Buat satu project baru pada microsoft visualstudio 6.0
buat satu form dan satu module, dimana form digunakan untuk menampilkan data dari data base sementara module digunakan untuk prosedure panggil apabila mau kita gunakan lebih dari satu form ato dimana aja form module bisa dipanggil.

Langkah ketiga :
Ketikkan kode dibawah ini :

Option Explicit
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sql As String
Public Const AbuAbu = &H8000000F
Public Const Putih = &H80000005

Public Function koneks() As Boolean
'On Error GoTo pesan
   ' db.Mode = adModeReadWrite
'    db.CursorLocation = adUseClient
'If db.State = adStateOpen Then
 '   db.Close
'End If
'db.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Koperasi\dn.mdb;Persist Security Info=False")
'koneksi = True
'Exit Function
'pesan:
'koneksi = False
'MsgBox "Koneksi ke database gagal...!!!!", 16, "Error"
'End
End Function


Langkah keempat :
Ketikkan kode pada form : "seabagai contoh prosedure panggil untuk menampilkan data table field disebuah combo. box."  Suapaya nanti pada saat diclick bisa tampil data field tablenya.

Sub code()
Call koneksi
Sql = "select * from groups"
rs.Open Sql, db, adOpenDynamic, adLockBatchOptimistic
With rs
txtpencarian.Clear
If .EOF = False Then
.MoveFirst
Do While Not .EOF
txtpencarian.AddItem .Fields("group1")
.MoveNext
Loop
End If
End With
End Sub