Koneksi MySQL with VB6 (ADODB)

Project Code :
Dim CnMySQL As ADODB.Connection
Dim Rs As New ADODB.Recordset
Private Sub Koneksi()
Set CnMySQL = New ADODB.Connection
CnMySQL.ConnectionString = “DRIVER={MySQL ODBC 3.51 Driver};SERVER=yourserver;UID=root;PWD=yourpasword;DATABASE=yourdatabase”
CnMySQL.Open
End Sub
Private Sub Command1_Click() ‘open koneksi
Koneksi
If CnMySQL.State = adStateOpen Then
[...]

Read Full Post »