vb C/S架构 客户端无法连接服务器端数据库

Public Sub condatabase()
Set cn = New ADODB.Connection
    cn.Provider = "sqloledb"
        cn.Properties("Data Source").Value = "222.205.161.132"
        cn.Properties("Initial Catalog").Value = "YAOFEI"
        cn.Properties("Integrated Security").Value = "SSPI"
        cn.Open
End Sub

对应的服务器IP我写上了，在客户端连接时提示用户登录失败，是哪里出错，该如何更改呢？

6 个解决方案

#1

在查询分析器里用你的参数，能正确连接否？

#2

方法一，使用ADODC控件的连接字符串向导生成连接字符串。

　　用VB新建一标准EXE工程，先引用ADODC部件（选菜单[工程]\[部件...]，在弹出的部件窗口中选Microsoft ADO Data Control），再将其加到Form1上，默认名为Adodc1；选中Adodc1，在其上单击右键，单击“ADODC属性”，选“使用连接字符串”，单击“生成”按钮，接下来根据该向导一步一步输入各相关的连接信息，“确定”后，在“使用连接字符串”下面的文本框中就是我们需要的内容。
??
　　方法二，调用Ado连接窗口，获得连接字符串。

　　用VB新建一标准EXE工程，引用Microsoft OLE DB Service Component 1.0 Type Libary和Microsoft ActiveX Data Objects 2.x Library

（具体操作与ADODC的引用类似，只是通过菜单[工程]\[引用...]选），加一个TextBox到Form1，双击Form1，进入Code编辑区，清除VB自动生成的所有代码，再输入下述代码：

　　Option Explicit

　　Private Sub Form_Load()
   　　Dim dlTemp As MSDASC.DataLinks
   　　Dim cnTemp As ADODB.connection
   
   　　Set dlTemp = New MSDASC.DataLinks
   　　Set cnTemp = New ADODB.connection
   
   　　dlTemp.PromptEdit cnTemp
   　　Text1.Text = cnTemp.ConnectionString

   　　Set dlTemp = Nothing
   　　Set cnTemp = Nothing
　　End Sub

　　运行时会弹出一个与ADODC相似的生成连接字符串的向导，输入各相关数据，“确定”后在Form1的Text1中就得到我们需要的连接字符串。

#3

1.ping 222.205.161.132是否通.
2.用户密码是否正确
3.是否需要sql客户端?

#4

Dim mydb As Database 
Dim mydynaset As Dynaset オ 
Private Sub Form_Load() 
　 Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales") 
　 Set mydynaset = mydb CreateDynaset("Select*from Customers") オ 
End Sub 　

#5

Set conn = New ADODB.Connection

conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open

#6

Set conn = New ADODB.Connection 

conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=YAOFEI;Data Source=222.205.161.132"