在vb连接mysql数据库查询

『壹』 vb.net远程连接mysql数据库的问题

Dim ADOrs AS RecordsetADOrs.Open "select * from {你的抄表名} where name='"+text1+"'" '把textbox1作为检索的对象即用来输入查找的条件 if NOT ADOrs.EOF then '开始查找(用了取么操作没有找到到指针即找到了记录)那么执行下面的语句 ADOrs("name")=trim(text1) '把字段name显示给textbox1 ADOrs("year")=trim(text2） '把字段year显示给textbox2 else msgbox "数据库没有检索到你要搜索的记录！"，vbokonly,"提示" end if ADOrs.close '最后记得把刚才打开的记录集给关闭掉或则会给数据库添加负荷的。

『贰』 如何用VB连接远程的mysql数据库

Dim cn As New ADODB.Connection '创建链接对象
Dim rs As New ADODB.Recordset '创建指针集
Private Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\lbj\Desktop\test.mdb" '连接字符串
End SubPrivate Sub Form_Unload(Cancel As Integer)
cn.Close '关闭数据库对象
End SubPrivate Sub Text1_Change()
c = "select year from info where name='" & Text1.Text & "'" '查询语句
rs.Open c, cn, 3, 3 '查询
Text2.Text = rs.Fields(0) '赋值过去
rs.Close '关闭对象
End Sub
实时查询 只有输入到相应的名字才会显示年龄

『叁』 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数据库的管理器

『肆』 如何使用VB2010连接网络mysql数据库

必须安装MYSQL的驱动才行，不管是VB还是c++都需要这个驱动。代码如下： Public Function exemysql(ByVal sql As String) As ADODB.Recordset sql = Trim$(sql) Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Driver=MySQL ODBC 3.51 Driver;" & _ "Server=服务器地址;" & _ "Port=3306;" & _ "Database=数据库名;" & _ "Uid=用户名;" & _ "Pwd=密码" conn.DefaultDatabase = "数据库名" conn.CursorLocation = adUseClient Set rs.ActiveConnection = conn rs.LockType = adLockBatchOptimistic rs.CursorType = adOpenKeyset rs.Open sql Set exesql = rs Set rs = Nothing Set conn = Nothing End Function

『伍』 在VB中，如何连接MYSQL

楼上讲的是VB2005的连接方法，不知道你用的是什么版本的VB,我给你一个VB6.0的连接方法吧

先在本机上安装最新的ODBC CONNECTER/mysql

无需设置ODBC,就可以使用.

注意MYSQL的帐户登录是根据主机的,设置好MYSQL的帐户后再做测试.

测试代码:

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String

'connect to MySQL server using MySQL ODBC 3.51 Driver
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=192.168.0.1;" _
& " DATABASE=db_name;" _
& "UID=username;PWD=password; OPTION=3"

conn.Open

'create table
conn.Execute "DROP TABLE IF EXISTS my_ado"
conn.Execute "CREATE TABLE my_ado(id int not null primary key, name varchar(20)," _
& "txt text, dt date, tm time, ts timestamp)"

'direct insert
conn.Execute "INSERT INTO my_ado(id,name,txt) values(1,100,'venu')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(2,200,'MySQL')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(3,300,'Delete')"

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer

'fetch the initial table ..
rs.Open "SELECT * FROM my_ado", conn
Debug.Print rs.RecordCount
rs.MoveFirst
Debug.Print String(50, "-") & "Initial my_ado Result Set " & String(50, "-")
For Each fld In rs.Fields
Debug.Print fld.name,
Next
Debug.Print

Do Until rs.EOF
For Each fld In rs.Fields
Debug.Print fld.value,
Next
rs.MoveNext
Debug.Print
Loop

rs.Close
conn.Close

『陆』 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上的中小型网站中。

『柒』 求一个vb.net链接mysql数据库的增删改查程序，求速度。。。

1. 首先你本地要安装MySQL Connector Net

2. 工程引用mysql.data

3. 连接数据库：

   
   

Imports MySql.Data

Imports MySql.Data.MySqlClient

‘连接字符串dbServerName 是ip,下面的英文应该懂得吧。

dim sA as string

sA = "server=" & Me.dbServerName & "; port=3306; database=" & Me.dbDataBaseName & _

"; user id=" & Me.dbUserName & "; password=" & Me.dbPassWord & "; "

dim mvardbConnectionMysql As MySqlConnection

With mvardbConnectionMysql

.ConnectionString = sA

.Open()

End With

4. 读取数据

dim xx As MySqlDataReader

Dim oC As MySqlCommand = New MySqlCommand(sSql, Me.mvardbConnectionMysql)

oC.CommandType = CommandType.Text

xx= oC.ExecuteReader()

if xx.HasRows

do while xx.read() ’一次读取一行

msgbox xx.item(2) '取出当前行的第三个字段的值显示。

loop

end if

5. 写入数据

Dim oT As MySqlTransaction = Me.mvardbConnectionMysql.BeginTransaction()

Try

Dim oC As MySqlCommand

'下面的commandtext是执行的更新语句，例如Insert into 语句。

oC = New MySqlCommand(CommandText, Me.mvardbConnectionMysql, oT)

oC.CommandType = CommandType.Text

oC.ExecuteNonQuery()

oT.Commit()

oC = Nothing

oT = Nothing

Catch oe As Exception

oT.Rollback()

End Try

『捌』 vb的ADO控件如何连接操作MYSQL数据库啊

由于ADO对象不直接支持MySQL,所以必须先安装MyODBC, 后者也是一个免费产品，在 www.mysql.org上有下载，安装好了, 就可以在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

『玖』 如何用VB连接MySQL数据库求解答

最简单的办法是：在VB里添加一个ADO部件，将其放到窗体中，然后右键选择属性，在其属性页的下面有个生成连接字符串的项，点击其后的按钮，然后一步步的来做（很简单的），然后连接字符串就会在那里生成，只要拷贝这个字符串，就可以用ADODB来连接了。。。

『拾』 VB6.0使用什么方法连接mysql数据库比较好且不需要再每台客户端机器上安装程序

在VB中可以使用ADO数据控件实现对MySQL数据库的访问，但ADO控件不能直接访问MySQL，需要安装MyODBC(可以在网上下载)并在ODBC中注册一个用户DSN(控制面板/管理工具/数据源)，这样就能使VB顺利连接到MySQL数据库了。
连接上了还需要执行SQL查询操作并能取得查询结果，可以使用ADODB的Command对象和RecordSet对像。