VB连接MYSQL数据的方法
博客分类：
VB
VBMySQLSQLServerSQLSocket
第一步：上网http://dev.mysql.com/downloads/connector/odbc/下载mysql-connector-odbc-5.1.6-win32.msi
第二步：安装mysql-connector-odbc-5.1.6-win32.msi
第三步：运行VB并新建一标准EXE工程, 通过菜单工程->引用 打开”引用”对话框, 找到 MicrosoftActiveX Data Objects x.x Library , 其中 x.x 是版本号, 可能会有很多个, 这里我选择的是2.5
第四步：打开代码窗口, 在 Form_Load 过程中输入下面的代码(具体说明在代码的注释中):
Vb代码
' 定义并创建数据库连接和访问对象
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 = ""
db_data = "erqiuda"
' 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.1 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
' 访问表users
sql = "select * from users"
rs.Open sql, cn
MsgBox rs.RecordCount
B. VB6.0使用什么方法连接mysql数据库比较好且不需要再每台客户端机器上安装程序
在VB中可以使用ADO数据控件实现对MySQL数据库的访问，但ADO控件不能直接访问MySQL，需要安装MyODBC(可以在网上下载)并在ODBC中注册一个用户DSN(控制面板/管理工具/数据源)，这样就能使VB顺利连接到MySQL数据库了。
连接上了还需要执行SQL查询操作并能取得查询结果，可以使用ADODB的Command对象和RecordSet对像。
C. vb访问mysql
需要安装MYSQL ODBC驱动程序.下载地址: http://dev.mysql.com/downloads/ Application Programming Interfaces (APIs) Official APIs: The C API is included with the server, above. Connector/ODBC - MySQL ODBC driver Connector/ODBC 3.52 -- development release Connector/ODBC 3.51 -- proction release Connector/ODBC 2.50 -- old release //呵,我用的是这个,内有9X/NT版本的驱动 装成功以后,在ODBC数据源建一个MYSQL的ODBC(一般在最下面):输入ODBC名,用户,密码,数据库名等. 接下来就用这个ODBC进行联接就可以了.(当然你要先启动MYSQL)
D. 如何用VB连接远程的mysql数据库
1、显示密码
如：MySQL
连接远程数据库（192.168.5.116），端口“3306”，用户名为“root”，密码“123456”
C:/>mysql -h
192.168.5.116 -P 3306 -u root -p123456
2、隐藏密码
如：MySQL 连接本地数据库，用户名为“root”
C:/>mysql -h
localhost -u root -p
Enter password:
E. VB 连接MySQL数据库 报错 未发现数据源名称且未指定默认驱动程序 求解～～感谢！！MySQL是8.0版本的
《MySQL 8.0.17》网络网盘资源免费下载:
链接: https://pan..com/s/1PQdVY20q0er1aX7mgxu-QQ
MySQL 8.0.17是一种开放源代码的关系型数据库管理系统，使用最常用的数据库管理语言–结构化查询语言SQL进行数据库管理。MySQL 8.0.17优化了SQL查询算法，有效地提高查询速度；支持多线程，充分利用CPU资源，支持多用户；提供用于管理、检查、优化数据库操作的管理工具。由于其体积小、速度快、总体拥有成本低，目前被广泛地应用在Internet上的中小型网站中。
F. VB 怎么读取 mysql 数据库
ServerIP
=
SQL的服务器IP
也可以是
服务器的名称
DB_PWD
=
"sa"
DB_User
=
"sa"
DB_Name
=
SQL数据库表名
SqlStr
=
"Provider
=
SQLOLEDB.1;Password
="
&
DB_PWD
&
";Persist
Security
Info
=
True;User
ID
="
&
DB_User
&
";Initial
Catalog="
&
DB_Name
&
";Data
Source="
&
ServerIP
Public
DBCnn
As
New
ADODB.Connection
DBCnn.Open
SqlStr
DBCnn就可以做连接字符串了
G. vb的ADO控件如何连接操作MYSQL数据库啊
由于ADO对象不直接支持MySQL,所以必须先安装MyODBC, 后者也是一个免费产品，在 www.mysql.org上有下载，安装好了MyODBC, 就可以在ODBC数据源管理中配置一个数据源名称，把它指向你想连接的MySQL数据库。代码如下：Sub connectMySQL() '通过MyODBC去连接MySQL数据库，并将Microsoft SQL Server 7 '的数据转进mysql中 Dim sConnect As String, sSql As String, i As Long Dim cnMSSQL As New ADODB.Connection Dim cnMySQL As New ADODB.Connection '声明并创建对象 连接 Dim rs As New ADODB.Recordset '声明并创建对象 记录集 Dim cm As New ADODB.Command '声明并创建对象 命令 sConnect = "dsn=mysql1" '指定MySQL的数据源名称 cnMySQL.Open sConnect '连接到 mysql sConnect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123456;Initial Catalog=softdown;Data Source=ntserver" '连接到 ms sql server 7 cnMSSQL.Open sConnect 'sSql = "create table softinfo (softNum smallint,softname varchar(70),softdesc blob," & _ "softpath varchar(30),softleng varchar(10),softclass varchar(10),softsugest tinyint(1)," & _ "softdown smallint(4))" '创建新的MySQL数据表语句 sSql = "select * from softinfo order by softnum" rs.Open sSql, cnMSSQL, 1, 1 While Not rs.EOF sSql = "insert into softinfo values (" & Trim(rs(0).Value) & ",'" & Trim(rs(1).Value) & _ "','" & Trim(rs(2).Value) & "','" & Trim(rs(3).Value) & "','" & Trim(rs(4).Value) & _ "','" & Trim(rs(5).Value) & "'," & Trim(rs(6).Value) & "," & Trim(rs(7).Value) & ")" cm.ActiveConnection = cnMySQL cm.CommandType = adCmdText cm.CommandText = sSql cm.Execute rs.MoveNext Wend rs.Close Set rs = Nothing cnMySQL.Close Set cnMySQL = Nothing cnMSSQL.Close Set cnMSSQL = Nothing End Sub
H. vb6.0如何连接MYSQL数据库
最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。
I. VB查询MYSQL数据
源码名称:
查询MySQL数据库的管理器
资源语言
英文
资源类型
VB源码 数据库
资源环境:
VB
/
Windows
资源大小:
163
整理时间:
2009-6-23
4:53:22
下载次数:
0
资源标签:
MySQL
资源上传:
VB中国团队 资源简介
Explorer
for
MySQL
Data
Base.You
can
retrieve
and
execute
your
query.
查询MySQL数据库的管理器
J. 我想用vb操作mysql数据库，可行否
可以的，这个没有问题。
参考：
Option Strict On
Imports MySql.Data.MySqlClient
Mole Example
Sub Main()
Dim cs As String = "Database=testdb;Data Source=localhost;" _
& "User Id=testuser;Password=test623"
Dim conn As New MySqlConnection(cs)
Try
conn.Open()
Console.WriteLine("MySQL version : {0}", conn.ServerVersion)
Catch ex As MySqlException
Console.WriteLine("Error: " & ex.ToString())
Finally
conn.Close()
End Try
End Sub
End Mole