SQL server 远程连接问题

Question

错误内容：[DBNETLIB][connectionread(recv().]一般性网络错误，请检查网络文档。
cn.Open "Provider=sqloledb;" & _
                   "Data Source=211.140.33.156,8000;" & _
                   "Network Library=DBMSSOCN;" & _
                   "Initial Catalog=pubs;" & _
                   "User ID=sa;" & _
                   "Password=abc;"
ping 211.140.33.156 通
telnet 211.140.33.156 8000 正常
请问是什么原因？

Answer 1

对方限制了1433端口的访问，但是允许访问8000端口
sqlserver默认是以1433端口访问

Answer 2

telnet 211.140.33.156 1433 就连接不上了

Answer 3

先用控制面板里面的ODBC数据源测一下连接
再试

Answer 4

先用控制面板里面的ODBC数据源测一下连接
再试!!
---up上面的。

Answer 5

在ODBC里面的客户端配置把端口改为8000
再试
如果还是不行且你的系统是98的话，在系统安装包里提取
wsock32.dll wsock.vxd wsock2.vxd三个文件
还原到WINDOWS\SYSTEM里面去，重启，再试

Answer 6

我系统是2000 server
如果是8000端口仍是以上错误
如果是1433端口错误则是SQL server不存在或访问被拒绝

Answer 7

绝对没问题！！        Dim Connstr As String
    Dim objConn As New ADODB.Connection
    Dim objRS As New ADODB.Recordset
    
    On Error GoTo errIP:
    Me.grdData.Clear
    Screen.MousePointer = 11
    Connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=AAA;PassWord=rising;Data Source= 222.183.39.222" 
    objConn.Open Connstr
    objRS.Open "Select * from Internet ", objConn, adOpenStatic, adLockReadOnly
    Set Me.grdData.DataSource = objRS
    objRS.Close
    Set objRS = Nothing
    objConn.Close
    Set objConn = Nothing
    Screen.MousePointer = 0
    Exit Sub
errIP:
    Screen.MousePointer = 0
    MsgBox Err.Description, vbInformation + vbOKOnly, "ÐÅÏ¢"