【VB】VB 连接MYQSL
当前位置:点晴教程→知识管理交流
→『 技术文档交流 』
下面给你的代码是百分之百可以连接成功的,它也是我正在使用中的代码片段哦。 Private Sub Command1_Click() Dimcn As New ADODB.Connection '创建数据库对象 Dimrs As New ADODB.Recordset '创建表对象 DimstrCn As String '连接字符串 Dimdb_host As String Dimdb_user As String Dimdb_pass As String Dimdb_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=3;stmt=SET NAMES GB2312" cn.Open strCn '打开数据库 cn.CursorLocation = adUseClient Ifcn.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 '关闭数据库 Ifcn.State = adStateClosed Then MsgBox "远程数据库MySQL关闭成功" End Sub 首先将myodbc3.dll文件复制到系统下,然后将以下内容做成xxx.reg文件并运行。 Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\MySQL AB\MySQLConnector/ODBC 3.51] "Version"="3.51.24" [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\MySQLODBC 3.51 Driver] "UsageCount"=dword:00000001 "Driver"="C:\\WINDOWS\\system32\\myodbc3.dll" "Setup"="C:\\WINDOWS\\system32\\myodbc3S.dll" [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBCDrivers] "MySQL ODBC 3.51Driver"="Installed" 该文章在 2013/11/13 23:40:49 编辑过 |
关键字查询
相关文章
正在查询... |