不创建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)。