Membuat Connection ke Database

Untuk membuat program yang membutuhkan penyimpanan data maka kita perlu Database untuk menyimpan suatu data. Maka di dalam membuat program di Visual Besic 6.0, kita perlu menghubungkan Database di MySql ke Visual Besic 6.0. Source Code menghubungkan Database ke Visual Besic 6.0 dan penjelasan langkah-langkah menghubungkan Database MySql ke Visual Besic 6.0.

  • Source Code
' Membuat Koneksi ke Database
Public Conn As New ADODB.Connection

Public hostName As String
Public databaseName As String
Public portNumber As String
Public userDB As String
Public passDB As String
Public statuskonek As Boolean

Sub openConnection()
    
    hostName = "localhost"
    databaseName = "inventory" 'sesuaikan dengan database yang dibuat
    portNumber = 3388
    userDB = "root"
    passDB = "toor" ' sesuaikan dengan password root di mysql
    
    Dim strCon As String
    
    strCon = "driver={mysql odbc 3.51 driver}; " & _
            "server = " & hostName & ";" & _
            "database =" & databaseName & ";" & _
            "port = " & portNumber & ";" & _
            "uid=" & userDB & ";" & _
            "pwd=" & passDB & ";" & _
            "option =3"
    Conn.CursorLocation = adUseClient
    Conn.ConnectionString = strCon
    Conn.Open
    
    statuskonek = True
    
End Sub
  • Untuk yang pertama kita buat nama varible di visual besic 6.0
Public hostName As String
Public databaseName As String
Public portNumber As String
Public userDB As String
Public passDB As String
Public statuskonek As Boolean
  • Open connection
  • Isi variable di atas dengan yang ada di Database MySql kalian seperti hostname, databasename, portnumber, userDB dan, passDB
    hostName = "localhost"
    databaseName = "inventory" 'sesuaikan dengan database yang dibuat
    portNumber = 3388
    userDB = "root"
    passDB = "toor" ' sesuaikan dengan password root di mysql
  • Panggil varible diatas
    strCon = "driver={mysql odbc 3.51 driver}; " & _
            "server = " & hostName & ";" & _
            "database =" & databaseName & ";" & _
            "port = " & portNumber & ";" & _
            "uid=" & userDB & ";" & _
            "pwd=" & passDB & ";" & _
            "option =3"
  • Buat status connection jika berhasil
Conn.ConnectionString = ConnectionString
Conn.Open
If Conn.State = 1 Then
    MsgBox "Koneksi Sukses", vbInformation
End If
  • Untuk yang ada di source code di atas itu menggunakan StatusBar nantinya akan kelihatan di StatusBar apakah terkonesi atau tidak jika yang di atas ini menggunakan MeseggerBox atau MsgBox.

Untuk belajar lebih lanjut bisa menonton referensi membuat koneksi ke database di bawah ini!.

You may also like...

Leave a Reply

Your email address will not be published. Required fields are marked *