程序提示说：“未发现数据源名称并且未指定默认驱动程序“怎么办？

Question

你的连接串写的有问题。
MSDASQL.1用的是odbc,自然要求你建了dsn
Dim StrCon As String 
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _ 
     & "Initial Catalog=数据;Data Source=202.99.16.5;" _ 
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _ 
     & "Use Encryption for Data=False;Tag with column collation when possible=False" 
             

Answer 1

可是我用的是ACCESS数据库。我自然不能用SQLOLEDB。如果我用了。程序提示说：
“SQL SERVER不存在或拒绝访问”
所以我只能用MSDASQL。但是我就是会出现上面那种提示。那你说，我该怎么办？

Answer 2

什么，你用的是ACCESS？
方案一个，建一个ODBC,配置好连接的数据库文件（看样子是远程的，保证MDB所在的目录共享出来了，而且要可写的）
StrCon = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dsnNAME"方案二
用ACCESS专用的
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\202.99.16.5\share\xxx.mdb;Persist Security Info=False"

Answer 3

呵呵用简单的
strCn="DRIVER={SQL SERVER};SERVER=YOURSERVER;UID=UserId;PWD=Password;DATABASE=数据"