首页 > 数据库> 文章详细

在VB6.0中连接MySQL数据库版本是5.7.31

2021-11-03 18:34:19 阅读：487 来源： 互联网

标签：Dim 5.7 ODBC rs db VB6.0 MySQL 连接

第一步：在服务器上按照mysql ODBC连接器

必须安装32位的，64位会报错。

如果安装时提示：this application requires visual studio 2019 x86 redistributable.install the redistributable then run this installer again.

需要下载

Latest supported Visual C++ Redistributable downloads | Microsoft Docs

先安装然后在安装MySQL ODBC连接器

安装完后到控制面板进行配置

第二步：配置数据源（ODBC）管理器

详情可以参考MySQL ODBC驱动安装和配置数据源_cn130404的博客-CSDN博客_mysql odbc驱动安装过程

第三步：连接代码

' 定义并创建数据库连接和访问对象
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' 定义数据库连接参数变量
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
' 定义 SQL 语句变量
Dim sql As String

Private Sub cmd_Click()
' 定义数据库连接字符串变量
Dim strCn As String
' 初始化数据库连接变量

'连接的主机名
db_host = txtLJ.Text

'连接的用户名
db_user = txtName.Text
'连接的密码
db_pass = txtSN.Text
'连接的表名
db_data = txtD.Text
'+------------+---------------------+----------------------------------+
'| 参数名 | 默认值 | 说明 |
'+------------+------------------------------------------------------–+
'| user | ODBC (on Windows) | MySQL 用户名 |
'| server | localhost | MySQL 服务器地址 |
'| database | | 默认连接数据库 |
'| option | 0 | 参数用以指定连接的工作方式 |
'| port | 3306 | 连接端口 |
'| stmt | | 一段声明, 可以在连接数据库后运行 |
'| password | | MySQL 用户密码 |
'| socket | | (略) |
'+------------+---------------------+----------------------------------+

strCn = "DRIVER=MySQL ODBC 8.0 ANSI Driver;SERVER=" & db_host & ";DATABASE=" & db_data & ";UID=" & db_user & ";PWD=" & db_pass & ";OPTION=3;stmt=SET NAMES GB2312"

cn.Open strCn

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

cn.CursorLocation = adUseClient
'cn现在就是SQL的操作对象，一切与数据库操作的都是cn的事情

'查询数据

current_username = "abc"

sql = "select * from lzyy_payment"

rs.Open sql, cn

'如果取得的不止一条记录，则用rs.MoveNext 让指针指向下一条记录

While rs.EOF = False '如果EOF为真，则表示"游标"已经在最后一条记录后面。

MsgBox ("txt111:" & rs.Fields(0) & "||txt222:" & rs.Fields(1))

rs.MoveNext

Wend

End Sub

标签：Dim,5.7,ODBC,rs,db,VB6.0,MySQL,连接
来源： https://blog.csdn.net/zhoufeng210/article/details/121127299

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

在VB6.0中连接MySQL数据库版本是5.7.31