ADO 远程连接SQL SERVER问题？？

Question

Private Con As New Connection
Private Rs As New Recordset
    Con.Open "Provider=SQLOLEDB.1;Password=用户密码;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器IP"
    Set Rs.ActiveConnection = Con

Answer 1

Private Con As New Connection
Private Rs As New Recordset
    Con.Open "Provider=SQLOLEDB.1;Password=用户密码;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器IP"
    Set Rs.ActiveConnection = Con

Answer 2

1.检查服务器上的guest用户是否可用。
2.在连接前，访问服务器的任何共享文件夹。
希望可以解决您的问题。

Answer 3

可以这样写连接字符串：
cnnstr="DRIVER=SQL Server;SERVER=[server Name];Address=server Ip address,port;User Id=userid;PASSWORD=password;database=database name"
其中[server name]是远程server的名字，address若固定可以写IP地址，若动态分配则写成xx.xx.xx类地址，port缺省是1433。

Answer 4

另一台机器能连SQL吗，先弄清楚这点再说

Answer 5

最好使用FilsDsn，用ODBC32管理器确定能连接，在程序中就可以用了
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset   
Set cnn = New ADODB.Connection
cnn.Open "FileDSN=file.dsn"
还有就是安装时选用的用户验证方式，如在WINNT/2000安装Sql Server,Win98作为Client端访问，验证方式需选用混合方式才方便，否则使用什么信任关系就麻烦了

Answer 6

我以前也出现这个问题，但不是语句的问题，而是另外一台机器没有安装微软MDAC2.6以上版本，请到微软下载一个安装后就应该能够解决了。

Answer 7

你用的是ODBC方式，要先看你有没有在控制面办理设置过数据源。用楼上所说语句比较方便，是OLEDB形式，但数据的准确性有时候可能会稍差一点。

Answer 8

客户端需要安装IPX/SPX协议，否则无法解析名称。

Answer 9

第一个问题：
Private db As NEW adodb.Connection
Private Rs As New adodb.Recordset
dim connstr as string 
   Connstr= "Provider=SQLOLEDB.1;Password=用户密码;Persist Security Info=false;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器IP"
  if  db.state=0 then
db.open connstr
rs.open "select* ................."
这样链接拿到美国联邦调查局都可以（只要美国联邦调查局的电脑链入你们公司局域网中） 试试看吧！！第二问题：
 当你把程序放在另外一台机上时，把该机的OBDC数据源重新设置一下（控制面板）中 进行，把DSN 再设置一个MYDB 就没问题了

Answer 10

第一个问题；忘了写  END IF