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

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

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=pubsuid=sapsw"

a.open

end

sub

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

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

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

打开mysql数据库 Set cn = CreateObject("ADODB.Connection") strCn = "driver=mysql odbc 3.51 driver" &_ "server=202.112.200.109" &_ "database=student" &_ "uid=root" &_ "pwd=123456" cn.Open strCn

---