VB6.0连接mysql5.7

最新推荐文章于 2024-08-22 00:33:22 发布

zheyinglv

最新推荐文章于 2024-08-22 00:33:22 发布

阅读量6.8k

点赞数 3

分类专栏： vb+mysql57 文章标签： mysql57 VB6.0

本文链接：https://blog.csdn.net/zheyinglv/article/details/79251937

版权

vb+mysql57 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

2018年2月4日12:15:42 我的系统是win7 64位

1.在mysql官网下载mysql5.7： https://dev.mysql.com/downloads/installer/ 这个安装版本是5.71 32位

和MySQL Connectors ：https://dev.mysql.com/downloads/connector/odbc/ 这个一定要下载32位的 VB不支持64位

这个地方刚开始我下载的是64位的一直不行

打开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

这样就可以连接成功了

下一步读写数据库