VB6 如何连接MYSQL数据库
1 从官网下载MYSQL的ODBC,选择与自己操作系统对应的版本(前提是你安装了MYSQL)
http://dev.mysql.com/downloads/connector/odbc/
2 安装完成之后,搜索数据源,你可以发现刚才装好的MYSQL ODBC驱动
3 新建一个VB6的工程,引用microsoft activex data objects 2.8 library
4 在这个VB6的工程中,复制粘贴以下代码(所有代码都在Form_Load中,不需要做别的什么按钮,控件),其中红色部分是你需要修改的代码
Private Sub Form_Load()
' 定义并创建数据库连接和访问对象
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
' 定义数据库连接字符串变量
Dim strCn As String
' 定义数据库连接参数变量
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
' 能连接得上数据库(即便主机端口是8080,也没事)
' 初始化数据库连接变量
'连接的主机名
db_host = "localhost"
'连接的用户名
db_user = "root"
'连接的密码
db_pass = "123456"
'连接的表名
db_data = "vb_test"
' MySQL ODBC 连接参数
'+------------+---------------------+----------------------------------+
'| 参数名 | 默认值 | 说明 |
'+------------+------------------------------------------------------–+
'| user | ODBC (on Windows) | MySQL 用户名 |
'| server | localhost | MySQL 服务器地址 |
'| database | | 默认连接数据库 |
'| option | 0 | 参数用以指定连接的工作方式 |
'| port | 3306 | 连接端口 |
'| stmt | | 一段声明, 可以在连接数据库后运行 |
'| password | | MySQL 用户密码 |
'| socket | | (略) |
'+------------+---------------------+----------------------------------+
' 详细查看官方说明
' http://dev.mysql.com/doc/refman/5.0/en/myodbc-configuration-connection-parameters.html
' 数据源驱动要对的上(一个字都不能差!!!)
strCn = "DRIVER={MySQL ODBC 5.2 ANSI Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
' stmt=SET NAMES GB2312
' 这句是设置数据库编码方式
' 中文操作系统需要设置成 GB2312
' 这样中文才不会有问题
' 版本要求 mysql 4.1+
' 连接数据库
cn.Open strCn
' 设置该属性, 使 recordcount 和 absolutepage 属性可用
cn.CursorLocation = adUseClient
' 表要对的上
' 访问表 tg_user
sql = "select * from tg_user"
rs.Open sql, cn
MsgBox rs.RecordCount
End Sub
5 然后就能连接上了(见本文最后附上的代码,包括了所有数据库的常见操作:插入,修改,查询,删除)
Private Sub Form_Load()
' 定义并创建数据库连接和访问对象
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
' 定义数据库连接字符串变量
Dim strCn As String
' 定义数据库连接参数变量
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
' 初始化数据库连接变量
'连接的主机名
db_host = "localhost"
'连接的用户名
db_user = "root"
'连接的密码
db_pass = "123456"
'连接的表名
db_data = "vb_test"
' MySQL ODBC 连接参数
'+------------+---------------------+----------------------------------+
'| 参数名 | 默认值 | 说明 |
'+------------+------------------------------------------------------–+
'| user | ODBC (on Windows) | MySQL 用户名 |
'| server | localhost | MySQL 服务器地址 |
'| database | | 默认连接数据库 |
'| option | 0 | 参数用以指定连接的工作方式 |
'| port | 3306 | 连接端口 |
'| stmt | | 一段声明, 可以在连接数据库后运行 |
'| password | | MySQL 用户密码 |
'| socket | | (略) |
'+------------+---------------------+----------------------------------+
strCn = "DRIVER={MySQL ODBC 5.2 ANSI Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
' stmt=SET NAMES GB2312
' 这句是设置数据库编码方式
' 中文操作系统需要设置成 GB2312
' 这样中文才不会有问题
' 版本要求 mysql 4.1+
' 连接数据库
cn.Open strCn
' 设置该属性, 使 recordcount 和 absolutepage 属性可用
cn.CursorLocation = adUseClient
' 访问表 tg_user
'sql = "select * from tg_user"
'rs.Open sql, cn
'返回所有记录的条数
'MsgBox rs.RecordCount
'cn现在就是SQL的操作对象,一切与数据库操作的都是cn的事情
'插入数据 如果数据库已经存在主键,则主键不能重复!!!
'如果这个字段是字符串,一定要加''
'cn.Execute "INSERT INTO 表名 (字段名1,字段名2) values('数据1','数据2')"
'cn.Execute "INSERT INTO tg_user(user_name,password) values('bbb','998877')"
'cn.Execute "INSERT INTO tg_user(user_name,password) values('ccc','998877')"
'MsgBox ("插入成功")
'修改数据 如果没找到这个字段符合的记录,则自动结束,不会报错
'cn.Execute "UPDATE tg_user set user_name='ddd' WHERE user_name= 'ccc'"
'如果是变量,或者要更新的不止一条记录,则代码参考下面,没找到也不会报错
'new_username = "eee"
'new_password = "222222"
'cn.Execute "UPDATE tg_user set user_name='" & new_username & "', password='" & new_password & "'WHERE user_name= 'ccc'"
'MsgBox ("修改成功")
'删除数据 如果没找到这个字段符合的记录,则自动结束,不会报错
'cn.Execute "DELETE FROM tg_user WHERE user_name = 'ccc'"
'如果是变量,则还是加'"& 变量名 &"'
'new_username = "eee"
'cn.Execute "DELETE FROM tg_user WHERE user_name = '" & new_username & "'"
'MsgBox ("删除成功")
'查询数据
current_username = "abc"
sql = "select * from tg_user"
rs.Open sql, cn
'返回取得的第一条记录,如果要输出这条记录的第一个字段,就是rs.Fields(0),第二个字段就是rs.Fields(1)
'MsgBox ("user_name:" & rs.Fields(0))
'MsgBox ("password:" & rs.Fields(1))
'如果取得的不止一条记录,则用rs.MoveNext 让指针指向下一条记录
While rs.EOF = False '如果EOF为真,则表示"游标"已经在最后一条记录后面。
MsgBox ("user_name:" & rs.Fields(0) & "||password:" & rs.Fields(1))
rs.MoveNext
Wend
End Sub
转载于:https://www.cnblogs.com/acetaohai123/p/6600749.html
VB6 如何连接MYSQL数据库相关推荐
- VB6.0连接MySQL数据库
VB6.0连接MySQL数据库 转载于:https://www.cnblogs.com/OneFri/p/5006026.html
- .net连接mysql数据_.net连接MYSQL数据库的方法及示例!
连接MYSQL数据库的方法及示例 方法一: 使用MYSQL推出的MySQL Connector/Net is an ADO.NET driver for MySQL 该组件为MYSQL为ADO.NET ...
- JDBC连接MySQL数据库及演示样例
JDBC是Sun公司制定的一个能够用Java语言连接数据库的技术. 一.JDBC基础知识 JDBC(Java Data Base Connectivity,java数据库连接)是一种用 ...
- python用django连接mysql_三分钟了解Django如何连接Mysql数据库
处理用户注册请求.Django连接MysqL数据库相关配置.数据库迁移命令: my_Dproject/app01/views.py 在views函数文件中添加register函数,来处理用户注册 ...
- eclipselink mysql_Eclipse连接MySQL数据库(傻瓜篇)
Eclipse连接MySQL数据库(傻瓜篇) 本来不想写这么简单人文章,在百度上搜索我这个标题,完全符合标题的一大堆.但我按照那些文章捣鼓了很久,就是不行. 我的环境:MySQL:mysql-esse ...
- Linux JSP连接MySQL数据库
Linux(Ubuntu平台)JSP通过JDBC连接MySQL数据库,与Windows平台类似,步骤如下: 下载 jdbc: mysql-connector-java-5.1.18.tar.gz 解压 ...
- python使用PyMySQL的连接MySQL数据库
如何实现将100000条数据插入到MySQL数据库?如果使用MySQL客户端来完成这个操作,那么这个工作量无疑是巨大的,可以通过使用程序代码的方式去连接MySQL数据库,然后对MySQL数据库进行增删 ...
- python3连接mysql,python3连接MySQL数据库实例详解
本文实例为大家分享了python3连接MySQL数据库的具体代码,供大家参考,具体内容如下 #python3连接MySQL实例 import pymysql """导入连 ...
- java linux mysql数据库_Linux Java连接MySQL数据库
Linux(Ubuntu平台)Java通过JDBC连接MySQL数据库,与Windows平台类似,步骤如下: 解压 jdbc: tar -zxvf mysql-connector-java-5.1.1 ...
最新文章
- 腾讯员工上半年人均月薪 7.8 万,网友:别人拿月薪我拿年薪。。。
- 为WordPress添加favicon图标
- SQLite安装、编译与应用
- boost::sloan_ordering用法的测试程序
- [css] z-index有时不起作用的原因是什么?怎么解决?
- 接口-----java
- 毕设日志——配置服务器与测试gpu版本的tf faster rcnn代码
- 解决Ubuntu刚装好的时候su命令密码错误的问题
- sql还原数据库备份数据库_有关数据库备份,还原和恢复SQL面试问题–第二部分
- JavaWeb过滤器的应用
- 多个浏览器同时访问mysql_48- 多线程启动多个不同浏览器
- Bootstrap3系列:按钮组
- JSONObject简单测试使用
- pop和push等使用方法,every和some、join
- AD18学习速通教程
- Android 8.0 安装Google服务
- GAN网络-简单明了
- Kali Linux 软件源和软件更新(留着自己看)
- css基础--border属性
- linux rescan-scsi-bus.sh,关于rescan-scsi-bus.sh脚本的来历和使用注意事项
热门文章
- HTTP Status 500 - An exception occurred processing JSP page /common/../left.jsp at line 20
- ES6环境搭建及react-router学习
- 受损虚拟机的修复方法
- 在给Ext2 Grid设置了autoHeight属性后,如何显示滚动条
- django get和filter方法的几点不同
- 解读中国杰出CFO之道
- 禅道批量删除bug_写代码有这16个好习惯,可以减少80%非业务的bug
- java并发编程之HappenBefore
- RocketMQ(二)——系统架构及基本知识
- 3-31Pytorch与auto-variabletensor