vb mysql ado_vb6用ado连接mysql

1,安装odbc driver

2,设置mysql

my.ini文件的[mysqld]下加入skip-name-resolve这一句，保存

3,vb代码

Dim db_host$, db_data$, db_user$, db_pass$, strCn$

db_host = "localhost"

db_data = "test"

db_user = "root"

db_pass = "123456"

strCn = "DRIVER={MySQL ODBC 5.1 Driver};" & _

"SERVER=" & db_host & ";port=3306;" & _

"DATABASE=" & db_data & ";" & _

"UID=" & db_user & ";PWD=" & db_pass & ";" & _

"OPTION=3;"

' stmt=SET NAMES GB2312

' 这句是设置数据库编码方式

' 中文操作系统需要设置成 GB2312

' 这样中文才不会有问题

' 版本要求 mysql 4.1+

' 连接数据库

CN.Open strCn

' 设置该属性, 使 recordcount 和 absolutepage 属性可用

CN.CursorLocation = adUseClient

If CN.State = adStateOpen Then _

MsgBox "连接成功", vbOKOnly, "提示"

CN.Close