[求助]一个连接远程数据库的问题？
我引用了 Microsoft ActiveX D ata Objects 2.8 Library以下的代码,为什么在我的写程序的机器上测试能连接上,放到公司一台XP机器上也能连接.就是放到其他的2000的机器上就找不到SQLserver为什么???
各位前辈帮忙看看!
Public CON As ADODB.Connection
Private Sub Command1_Click()
Set CON = New ADODB.Connection
CON.ConnectionString = "Provider = SQLOLEDB.1;Persist Security Info = False;" & _
"User ID = p2p;Password =p2p ;Data Source = 61.129.251.198;" & _
"Initial Catalog = p2p"
On Error Resume Next
CON.Open
If CON.State <> 1 Then '判断是否连接成功!
MsgBox "数据库连接失败!" & Error
CON.Close
Else
MsgBox "数据库连接成功!"
CON.Close
End If
End Sub
