不创建DSN直接在程序中使用ODBC数据源




 

 

编写过基于WEB数据库应用程序的人都会接触ODBC(Open Database Conectivity 开放数据连接)，它是访问WEB数据库的接口。我们可以通过控制面板中的ODBC数据源程序来添加、删除、设置DSN(Data Source Name 数据源名称)。但大多数情况下，我们希望不建立DSN而在程序中直接访问数据库。如果你是用DAO或ADO对象操作数据库，那么，对象内建的一些方法就可以实现打开无DSN的连接。

数据库以SQL Server 7为例，如果你使用DAO对象，那首先你必须加载DAO对象。然后：

Set ws=CreateWorkspace

Set db=ws.OpenDatabase("", dbDriverNoPrompt, False, _

"ODBC;Driver=SQL Server;UID=" & sUID & _

";PWD=" & sPWD & ";SERVER=" & sServer & _

";DATABASE=" & sDatabaseName )

这样，应用程序就以sUID身份密码为sPWD与指定的服务器sServer上的数据库sDatabaseName建立了连接。

如果你使用ADO对象，则可以按如下方法：

Dim cn As ADODB.Connection

cn.ConnectionString="DRIVER=SQL Server" & _

";SERVER=" & sServer & ";UID=" & _

sUID & ";PWD=" & sPWD & ";DATABASE=" & _

sDatabaseName

cn.Open

...

cn.Close

当然，前提是你已经引用了ADO对象(ADODB)。