RSS

Koneksi Mysql di VB dengan VBMysqlDirect

mysql logo wallpaper

1. copy file libmySQL.dll di folder project
2. registrasikan vbmysqldirect di windows/system32 atau windows/syswow64
3. tambahkan reference di vb dengan "vbmysql direct"
4. buat module baru, copy file berikut ke dalamnya
5. load module dengan perintah "call KoneksiDb"

Public dBPrimer As New MYSQL_CONNECTION
Public rs As New MYSQL_RS
Public rsNew As New MYSQL_RS

Public Function KoneksiDb() As Boolean
Dim db_nama1 As String
Dim db_server1 As String
Dim db_login1 As String
Dim db_password1 As String
Dim db_port1 As String
    
    db_server1 = xxx          'IP Mysql
    db_nama1 =  xxx          'Nama Database
    db_login1 =   xxx          'Login Mysql
    db_password1 =  xxx     'Password Mysql
    db_port1 = "3306"         'Port Mysql
    
    Set dBPrimer = New MYSQL_CONNECTION
    dBPrimer.OpenConnection db_server1, db_login1, db_password1, db_nama1, db_port1
    dBPrimer.CursorLocation = adUseClient
    
    If dBPrimer.State = MY_CONN_CLOSED Then
        MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan!", vbExclamation, "Fatal error"
    End If
    
End Function

Public Sub RunSQL(strSql As String)
    
    Set rsNew = New MYSQL_RS
    rsNew.OpenRs strSql, dbprimer, adOpenDynamic, adLockBatchOptimistic
    
End Sub

Function CloseDB() As Boolean
    If CloseDB = True Then
        rsNew.CloseRecordset
    End If
End Function

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 comments:

Posting Komentar