新手紧急求助：求VB连接远程MYSQL的代码？

Question

MYSQL数据库放在服务器上，本地用VB，已安装了MYSQL ODBC驱动，并在ODBC里配置好了系统DSN，已经测试连接成功
下面在VB中要怎么与ODBC连呢，我只需要验证用户登陆就可以了。
2，这种方法作成客户端安装程序，有无弊端，是否要每台机器还得配置ODBC？请大家指点，谢谢！

Answer 1

strCon = "driver=mysql odbc 3.51 driver;" & _
                "server=服务器IP;" & _
                "database=数据库名称;" & _
                "port=3306;" & _
                "uid=用户名;" & _
                "pwd=在这里写口令"

Answer 2

oConn.Open "Driver={mySQL};" & _ 
　　　　　　　　　 "Server=服务器IP;" & _
　　　　　　　　　 "Port=3306;" & _
　　　　　　　　　 "Option=131072;" & _
　　　　　　　　　 "Stmt=;" & _
　　　　　　　　　 "Database=mydb;" & _
　　　　　　　　　 "Uid=myUsername;" & _
　　　　　　　　　 "Pwd=myPassword;"

Answer 3

下面在VB中要怎么与ODBC连呢，
---------------------
'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection
    cn.ConnectionString = "dsn=你在ODBC里配置的dsn名"
    cn.CursorLocation = adUseClient
    cn.Open    
    ......
    cn.Close
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 4

是否要每台机器还得配置ODBC？
----------------
用ODBC的话，应该是每个客户端都要配置的

Answer 5

谢谢楼上给代码的二位，
那么这种方法作成客户端安装程序，有无弊端，是否要每台机器还得配置ODBC？
有没有能给出建议呢？

Answer 6

你安装了MYSQL ODBC 
直接用上面给的代码连接就行了

Answer 7

如果不想配置ODBC，可以直接用连接字符串来连接，就像上面说的一样：
    'MyConString="DSN=你配置的DSN;UID=用户名;PWD=登录密码" 
    MyConString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
    "SERVER=服务器IP;" & _
    "DATABASE=数据库名;" & _
    "UID=用户名;" & _
    "PASSWORD=登录密码;" & _
    "OPTION=3";

Answer 8

谢谢你，楼上的
我现在已经能连上了，不过我现在最担心的是采用这种配置ODBC方法，
是否在作出安装程序后，客户端是否还要每台机器也去配置ODBC用你的这种连接字符串的方法，是否就能避免这样？

Answer 9

用配置ODBC的方法的话，每个客户端都要配置的，用上面的连接字符串就不用去配置ODBC了，客户端也不用作什么设置

Answer 10

谢谢，楼上，每个客户端都要装MYODBC吗？
有没有什么简便的方法？可以一块打包在安装程序里吗？

Answer 11

MYSQL不能和SQL一样采用下列方式连接吗? 使用ADO方式连接数据库?   ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI; & _ 
Persist Security Info=False; & _ 
Initial Catalog=数据库名;Data Source=服务器别名"