VB中使用ODBC连接数据库，如何创建ACCESS数据库表

连接数据库

方法1：

Set

conn

=

Server.CreateObject("ADODB.Connection")

conn.Open

"driver={Microsoft

Access

Driver

(*.mdb)}dbq="&Server.MapPath("data.mdb")

方法2：

Set

conn

=

Server.CreateObject("ADODB.Connection")

conn.Open

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source="&Server.MapPath("data.mdb")

注意：一个页面中，只要连接一次就可以了，数据库使用完后要及时关闭连接。

conn.Close

Set

conn

=

Nothing

参考资料：http://www.haao.cn/article.asp?id=5

首先得建立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

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

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

用ACCESS的ODBC试一下，VB连接ACCESS作为桥接。ACCESS不做任何处理。

在VB的数据集合RecordSource属性里这么写语句：

rs.RecordSource="Select

*

from

表

IN

[ODBC][ODBCDriver=SQL

。ServerUID=...PWD=...Server=服务器IPDataBase=数据库名]"。

这样还可以跨数据库跨服务器 *** 作。

---