vb6用ado连接mysql
发布时间:2020-12-16 22:40:24 所属栏目:大数据 来源:网络整理
导读:http://mysql.cs.pu.edu.tw/Downloads/Connector-ODBC/5.1/ http://www.jb51.cc/article/p-alqkflby-pe.html http://www.jb51.net/article/15061.htm 1,安装odbc driver http://mysql.cs.pu.edu.tw/Downloads/Connector-ODBC/5.1/mysql-connector-odbc-noins
http://mysql.cs.pu.edu.tw/Downloads/Connector-ODBC/5.1/ http://www.52php.cn/article/p-alqkflby-pe.html http://www.aspzz.cn/article/15061.htm 1,安装odbc driver http://mysql.cs.pu.edu.tw/Downloads/Connector-ODBC/5.1/mysql-connector-odbc-noinstall-5.1.9-win32.zip 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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |