VB6.0连接mysql5.7
2018年2⽉4⽇12:15:42  我的系统是win7 64位
这个地⽅刚开始我下载的是64位的⼀直不⾏
mysql下载odbc失败
打开vb  ⼯程 ——引⽤ 弹出上⾯界⾯到蓝⾊条条的那个插件勾选，点击确定
以下是 VB6.0代码，创建⼀个按钮，把代码复制⾥⾯就可以了
Option Explicit
'需要安装 MySQL 的 ODBC 驱动，官⽹上有，我的是 Connector ODBC 5.3
'先引⽤ Microsoft ActiveX Data Objects 6.1 Library 我的是 6.1，⽤最新的就⾏
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public fld As ADODB.Field
Private Sub 连接_Click()
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & "SERVER=127.0.0.1;" & "UID=root;PWD=851222;OPTION=3"    '注意ODBC驱动版本号，现在最新的 MySQL 5.71 + ODBC 5.3
conn.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
MsgBox " 连接成功！"
End Sub
这样就可以连接成功了
下⼀步读写数据库

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。