vb6 mysql 01

vb6_mysql_01.frm

Option Explicit
' Koneksi VB6 & MySQL/MariaDB
' Developed by Galih Hermawan
' https://galih.eu

Dim koneksi As MYSQL_CONNECTION

Private Sub Command1_Click()
    Set koneksi = New MYSQL_CONNECTION
    Const host = "localhost"
    Const user = "root"
    Const passw = ""
    Const port = 3306
    
    koneksi.OpenConnection host, user, passw, , port
    
    If koneksi.State = MY_CONN_OPEN Then
        Dim status
        Dim isi
        Set status = koneksi.Execute("SELECT version()")
        isi = status.GetString(, "")
        MsgBox "Koneksi sukses! Versi database: " + isi, vbInformation, "Sukses!"
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set koneksi = Nothing
End Sub