vb6.0如何连接MYSQL数据库？

最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。

原因分析：

连接数据库的账号密码错误

国内无法访问国外服务器

解决方法：

先确定能否连接得到国外的服务器。

在开始菜单下面找运行，输入“cmd”，回车；

然后输入：ping 59.39.59.58（服务器IP）

关键是看packets这行，如果是0%loss，那就是网络通着，如果是100%loss，那就是网络不通，如果是其他的数值，那就是网络不稳定

检测数据库字符是否正确

连接字符串

"driver={MySQL ODBC 3.51 Driver}server=服务器database=数据库名uid=用户名pwd=密码"

下面给你的代码是百分之百可以连接成功的，它也是我正在使用中的代码片段哦。

Private Sub Command1_Click()

Dim cn As New ADODB.Connection '创建数据库对象

Dim rs As New ADODB.Recordset '创建表对象

Dim strCn As String '连接字符串

Dim db_host As String

Dim db_user As String

Dim db_pass As String

Dim db_data As String

db_host = "188.88.88.188" '服务器IP地址

db_user = "users"'登陆服务器时的“用户名”

db_pass = "passwords"'登陆服务器时的“密 码”

db_data = "sqlname"'数据库的库名称sqlname（不是表名称）

strCn = "DRIVER={MySQL ODBC 3.51 Driver}" &"SERVER=" &db_host &"" &"DATABASE=" &db_data &"" &_

"UID=" &db_user &"PWD=" &db_pass &"" &"OPTION=3stmt=SET NAMES GB2312"

cn.Open strCn '打开数据库

cn.CursorLocation = adUseClient

If cn.State = adStateOpen Then MsgBox "打开远程MySQL数据库成功"

'下面开始对具体表（假设"userstabel"）进行 *** 作

rs.Open "userstabel", cn, adOpenKeyset, adLockOptimistic'打开表"userstabel"

MsgBox "远程数据表 userstabel 中的记录数量 = " &rs.RecordCount

rs.AddNew '开始添加一条记录

rs.Fields("filed1") = x

rs.Fields("filed2") =y

rs.Fields("filed2") = z

rs.Update

rs.Close '关闭表

cn.Close '关闭数据库

If cn.State = adStateClosed Then MsgBox "远程数据库MySQL关闭成功"

End Sub

注意，要首先知道你的：

1、数据库服务器IP地址

2、登陆服务器的“用户名”

3、登陆服务器的“密 码”

4、数据库的库名称

5、数据库内的表名称

还要在你使用上述代码的计算机上设置DSN或正确安装驱动程序。

---