Membuat Koneksi Visual Basic 6.0 ke Mysql

Langkah awal dalam mendesain program database adalah melakukan koneksi ke database, dalam hal ini yang saya akan gunakan adalah Mysql. umumnya koneksi diawali dengan pendeklarasian variabel - variabel yang digunakan dengan setting variabel tersebut dalalm Form load. sebelum membuat sebuah fungsi pembuka database, kita harus memaktifkan komponen "refensi ADO" dengan cara :
1. klik menu project,
2. klik menu references
3. centang microsoft Aktivec Data Object 2.6 Libarary
pastikan anda sudah mempunyai ODBC Connector, jika belum punya silahkan download disini , setelah itu


Scrip yang di gunakan adalah seperti ini..
taruhlah pada sebuah modul

Option Explicit


Public bukadb As New ADODB.Connection
Public Str As String


Public Sub bukadatabase()
 
   Set bukadb = New ADODB.Connection
   str = "DRIVER={MYSQL ODBC 3.51 Driver};" & _
   " server=localhost; " & _
   " password=; " & _
   " database=coba;" & _
   " user=root;"
   bukadb.CursorLocation = adUseClient
   If bukadb.State = adStateOpen Then
     bukadb.Close
     bukadb.Open str
       Else
         bukadb.Open str
   End If
End Sub


sederhana bukan,,, jika kita ingin membuka koneksi ke database cukup menggundang fungsi bukadatabase, yangditaruhakan pada From_load (), dengan cara "CALL bukadatabase"...

semoga bermanfaat,,,