局网内的SQL2000访问题

Question

Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"
            
dim AcSys  as new adodb.connection 
   With AcSys
      If .State = adStateOpen Then .Close
      .ConnectionString = StrCon
      .ConnectionTimeout = 30
      .Open
    End With

Answer 1

按照楼上老大的做法，在本机运行没问题，编译后放到另一台就出错了
无本得到文本框里应显示的两个字段内容
Dim rst As New ADODB.RecordsetPrivate Sub Command1_Click()
    rst.MoveNext
End SubPrivate Sub Form_Load()
    Dim StrCon As String
    Dim IP As String
    IP = "10.10.0.1"
    StrCon = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=dbfee;Data Source=" & IP & ";" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"
    
    Dim AcSys  As New ADODB.Connection
   With AcSys
      If .State = adStateOpen Then .Close
      .ConnectionString = StrCon
      .ConnectionTimeout = 30
      .Open
    End With
        rst.ActiveConnection = AcSys
    rst.Open "select * from lines"
    
    Set Text1.DataSource = rst
    Set Text2.DataSource = rst
End Sub

Answer 2

另一电脑要能ping上数据库服务器