怎么连局域网的数据库，或者远程的广域？？

Question

不会吧，VB这一个高手也没有

Answer 1

客户端使用 VB+ADO
服务器使用 Win2000 Server+SQL ServerDim 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
      .NonnectionString = StrCon
      .ConnectionTimeout = 30
      .Open
    End With