Office中国论坛/Access中国论坛

标题: [求助]odbc连接问题 [打印本页]

作者: hxntxm 时间: 2007-1-31 21:21
标题: [求助]odbc连接问题
我做了一个MDB文件，在控制面板里做了一个ODBC数据源与Sqlserver2000连接，但每次启动都要手动按连接属性，很讨厌，希望用代码在启动时自动连接Sql，我需要同时连接3个Sql数据库，请提供代码，多谢！

作者: hi-wzj 时间: 2007-2-1 17:49
直接用acc中的链接即可。

作者: zhowgx 时间: 2007-2-5 23:50
在启动的第一个窗体加载事件中写入如下代码,亦可连接.

Dim con As Object
Dim rs As Object
Dim stSql As String

Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
stSql = "SELECT *FROM " & 表名 & " IN '' [ODBC;DSN=" & ODBC名& ";Description=" & ODBC说明& ";UID=sa

WD=;DATABASE=" & 数据库名 & ";Network=DBMSSOCN] "
rs.Open stSql, con, 1

三个数据库就写三次

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)