初学者的问题：vb+sql2000远程连接。急急急
我用VB+SQL SERVER时，远程连接总是连不上。在网上看的代码：如下。ODBC加了系统DSN 。单机的能连接上。求助大侠们给个详细的解决方法，谢谢了。
'向数据库中添加数据
Private Sub Command2_Click()
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!UID = txtUid.Text
rs!PWD = txtPwd.Text
rs!TRUENAME = txtName.Text
rs!CREATEDATE = Format(Now, "YYYY/MM/DD")
rs.Update
Command1.Value = True
End Sub
Private Sub Form_Load()
Dim rs As New ADODB.Recordset, cn As New ADODB.Connection
Dim cnn As New ADODB.Connection
Dim s As String, i As Long
cnn.CursorLocation = 3 '
cnn.CommandTimeout = 30
cnn.Open "Provider=SQLOLEDB.1;Netwprk Library=DBMMSOCN; Data Source=127.0.0.1,1433; Password=; User ID=sa; Initial Catalog=sggl"
Set rs = Nothing
Set rs = cnn.Execute("select * from userpassword")
While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
s = s & rs(i) & vbTab
Next
s = s & vbCrLf
rs.MoveNext
Wend
MsgBox s
End Sub
--------------------编程问答-------------------- 不能用 ADO.Net 方式，应该是
Driver={SQL Server};Server=127.0.0.1,1433;Database=DBMMSOCN;Uid=sa;Pwd=; --------------------编程问答-------------------- Driver={SQL Server};Server=127.0.0.1,1433;Database=sggl;Uid=sa;Pwd=; --------------------编程问答-------------------- 你建立了ODBC？如果是系统数据源并且测试连接成功的话：
cnn.open "数据源名称","用户ID","密码"
不过效率更高的话最好不要用ODBC，连接字符串看以下链接：
http://www.connectionstrings.com/ --------------------编程问答-------------------- Tiger_Zhao(VB老鸟) 还是不可以呀，我安装SQL 的时候没有默认，而是用了wwq 这有关系吗？另外安装的时候验证方式用哪一种？谢谢了 --------------------编程问答-------------------- Tiger_Zhao(VB老鸟)：你能不能推荐一种最好的连接方法，我研究一下，谢谢了，还有能不能把你的QQ号给我？
vbman2003(家人) ：你的QQ能不能也说一下，谢谢了。
初学有太多不懂的地方了
--------------------编程问答-------------------- 公司不让用聊天工具，不好意思了，没有QQ号。有问题就上来问吧，也可以百度，google。我也有许多不明白的东西，这儿高手多了，呵呵 --------------------编程问答-------------------- 不用 QQ。wwq 不懂。
在 DSN 中将默认数据库更改为 sggl，先测试通过。
然后用 Driver={SQL Server};DSN=DBMMSOCN;Uid=sa;Pwd=; --------------------编程问答-------------------- constr = "Provider=MSDASQL.1;Persist Security Info=True;Data Source=book"
我用的access的ODBC方式链接，其中BOOK是系统DSN的名字，Provider=MSDASQL.1是对应驱动，自己设置下就好，网络的话，数据库要从网络邻居中选取 --------------------编程问答-------------------- dim Server as string '定义服务器名称的变量
dim User as string '定义用户名称的变量
dim Password as string '定义密码的变量
dim cnnstr as string
dim cnn as adodb.Connection
cnnstr = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=你的数据库名称"
cnn.open cnnstr
补充：VB , 数据库(包含打印，安装，报表)
