VB 远程登录MYSQL

要先到Mysql官网上下载MySQL ODBC 5.1 Driver

VB code

 

'获得数据库连接
Public Function CreateConnection() As ADODB.Connection

   On Error GoTo Handler

    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    cn.CommandTimeout = 60
    cn.ConnectionString = " DRIVER={MySQL ODBC 5.1 Driver}; " _
                          & " Password=123; " _
                          & " Persist Security Info=True; " _
                          & " User ID=admin; " _
                          & " Server=192.168.0.10;" _
                          & " DataBase=db; " _
                          & " OPTION=3"
    cn.Open
    Set CreateConnection = cn

    Set cn = Nothing
    Exit Function

Handler:

    MsgBox "数据连接时出现错误！", vbOKOnly + vbInformation

End Function

 

上面一个是连接MySQL的,其它操作都一样的了