还是用ADO访问吧. 可用于 SQL Server 6.5,7.0,2000等,也可用于ACCESS但要更改Provider. '定义ADO连接 , sa 是用户名 Server001是服务器名,DB1 是数据库名 Dim CON As ADODB.Connection Set CON = New ADODB.Connection With CON .CursorLocation = adUseClient .ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DB1;Data Source=server001" .CommandTimeout = 500 .Open End With
ODBC数据源和ODBC API可不是一会事。
'定义ADO连接 , sa 是用户名 Server001是服务器名,DB1 是数据库名
Dim CON As ADODB.Connection
Set CON = New ADODB.Connection
With CON
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DB1;Data Source=server001"
.CommandTimeout = 500
.Open
End With
====
我喜欢VB,欢迎访问我的网站,上面有很多用VB编写的好东东.
http://www.minisoft.d2g.com
1 疾病诊断专家系统;
2 人工智能电子地图 ;
3 Word密码探测器;
4 知道别人在干啥(局域网监视器)
5 日积月累学英文
愿意与广大VB爱好者交流.
conn.connectionstring = <DSN name>