vb和mysql怎么连接 vb和数据库怎么连接

如何使vb与mysql连接，并且在其他电脑上不用安装和设置odbc

首先得建立odbc数据源！步骤如下：

多端合一成都响应式网站建设公司:PC+平板+手机,同一后台修改数据多端同步更新提交您的需求,获取网站建设与营销策划方案报价,我们会在1小时内与您联系!

1.

在资源管理器或者

我的电脑中，进入到控制面板-管理工具，可以看到“数据库odbc项”。

2.

双击“数据源（odbc）”项，进入到数据源的配置。

3.

要想创建一个指定的数据库，点“添加按钮”，将出现数据源类型选择对话框，

在这一部中，你一定要写明连接的是sql

server

还是aceess。

4.点完成，进入到建立不同数据源的配置项或配置向导，注意，不同的数据库，配置界面有所不同。我介绍的是sql

，首先要输入数据源的名称，描述信息和指定服务器

5.

下一部，进入到sql连接的安全验证，可以选择以windows

nt验证方式或者sql登陆的方式。

6.再点击下一部，安全通过后，进行sql数据库的连接。

7.

继续进行下一部操作，进行一些系统消息语言，日志等配置，一般保持为默认方式。

8.点完成按钮，将提示一些总结信息，并可以执行数据与数据库的连接测试。

这是建立odbc数据源的步骤，下面还得在模块里面把ado连接的代码写好，才能真正连上，代码如下：

private

sub

command_click()

dim

a

as

connection

set

a

=

new

connection

a.connectstring="dsn=pubs;uid=sa;psw"

a.open

end

sub

这有的地方你得自己改改，因为我和你机子不一样！

自己调试吧，好的程序都是调试出来的！

在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

在VB中存储数据到MySQL数据库的过程非常简单，只需要建立一个数据库连接，然后使用SQL语句将数据写入数据库即可。

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

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