连接字符串如下ODBC Driver for MySQL (via MyODBC)：
To connect to a local database:
复制内容到剪贴板
代码:
Conn.Open "Driver={mySQL};" & _
"Server=MyServerName;" & _
"Option=16834;" & _
"Database=mydb;" To connect to a remote database复制内容到剪贴板
代码:
Conn.Open "Driver={mySQL};" & _
"Server=db1.database.com;" & _
"Port=3306;" & _
"Option=131072;" & _
"Stmt=;" & _
"Database=mydb;" & _
"Uid=myUsername;" & _
"Pwd=myPassword;"不行继续试：
复制内容到剪贴板
代码:
strCon = "Driver={mySQL};" & _
"Server=服务器IP;" & _
"Port=3306;" & _
"Option=131072;" & _
"Stmt=;" & _
"Database=mydb;" & _
"Uid=myUsername;" & _
"Pwd=myPassword;"程序代码如下：
复制内容到剪贴板
代码:
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
strcon = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=211.151.*.*;PORT=3306;DATABASE=test;USER=assa;PASSWORD=12345;OPTION=3;"
conn.ConnectionTimeout = 20
conn.Open strcon
Set rs = New ADODB.Recordset
strsql = "select * from url"
rs.Open strsql, conn, adOpenKeyset, adLockOptimistic
Text1.Text = rs.Fields("URL")
conn.Close
Set rs = Nothing
Set conn = Nothing
MsgBox "finished"
End Sub更详细的资料可以上这儿查找:
http://www.connectionstrings.com/
