[DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问

[wangzhengcun]

用vb开发了一个小程序,在A机器（2000系统上运行正常). 在B机器上(XP系统),主登录介界下的组合框下的值取数据库中的数正常,可是，在点确定按钮时就出现[DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问,然后本程序死掉.
请问这是怎么回事？为什么Win2000好使？
主要源码：
Option Explicit
Dim sql As String
Dim str As String
Dim sql1 As String
Dim i As Integer
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Private Sub Form_Load()
Cn.ConnectionString = "Provider=SQLOLEDB.1;Password=83152003;Persist Security Info=True;User ID=sa;Initial Catalog=Mroom;Data Source=10.65.128.156"

sql = "select name from Muser "
Rs.CursorLocation = adUseClient
Rs.Open sql, Cn, adOpenDynamic, adLockPessimistic
Rs.MoveFirst
For i = 0 To Rs.RecordCount - 1
Cb1.AddItem (Rs.Fields("name"))
Rs.MoveNext
Next
Rs.MovePrevious
Cb1.Text = Rs.Fields("name")
End Sub
Private Sub Command1_Click()
main.StatusBar1.Panels(4).Text = Cb1.Text
Dim Cn1 As New ADODB.Connection
Dim Rs1 As New ADODB.Recordset
Cn1.ConnectionString = "Provider=SQLOLEDB.1;Password=83152003;Persist Security Info=True;User ID=sa;Initial Catalog=Mroom;Data Source=10.65.128.156"
Cn1.Open
sql1 = "select * from muser where name='" & Trim(Cb1.Text) & "'"
Rs1.CursorLocation = adUseClient
Rs1.Open sql1, Cn1, adOpenDynamic, adLockPessimistic

If Rs1.RecordCount = 0 Then
MsgBox "无此用户，请重新选择！", vbOKOnly
Else
If Trim(Text2.Text) = Trim(Rs1.Fields("password")) Then
If Rs1.Fields("authority") = 1 Then
Load backmanager
backmanager.Show
Unload Me
Else
Load main
main.Show
Unload Me
End If
Else
MsgBox "用户名或密码不对，请重新输入！", vbOKOnly, "警告"
Cb1.SetFocus
End If
End If
End Sub

[jhone99]

网络连接没有问题？
sql server的引擎在xp那台电脑是否正常？

[wangzhengcun]

Private Sub Form_Load()
Cn.ConnectionString = "Provider=SQLOLEDB.1;Password=83152003;Persist Security Info=True;User ID=sa;Initial Catalog=Mroom;Data Source=10.65.128.156"

sql = "select name from Muser "
Rs.CursorLocation = adUseClient
Rs.Open sql, Cn, adOpenDynamic, adLockPessimistic
Rs.MoveFirst
For i = 0 To Rs.RecordCount - 1
Cb1.AddItem (Rs.Fields("name"))
Rs.MoveNext
Next
Rs.MovePrevious
Cb1.Text = Rs.Fields("name")
End Sub
这段代码执成功了，可以证明网络及SQL server 没有问关，主要是在:
If Trim(Text2.Text) = Trim(Rs1.Fields("password")) 这段代码这里程序死掉，感觉rs1.fields("password")这里出错，但为什么有的机器上可用呢！另外说明一下，我的服务器IP均改为127.0.0.1了

[aohan]

If Trim(Text2.Text) = Trim(Rs1.Fields("password") & "") 试试

有可能是你那个密码为空了,所以报错

[jhone99]

127.0.0.1
这个不好
好像很多设备默认这个，容易冲突

[Tiger_Zhao]

同一个画面为什么要用两个 Connection？
建议使用 ODBC 的连接方式而不是 SQLOLEDB 方式。

[wangzhengcun]

现在主要是有的机器上好使，有的机器上不好使，怎么回事呀？
这段代码怎么简化为1个connection?

[Tiger_Zhao]

Win2000 和 WinXP 关于安全性方面的差异比较大，你的 SQL Server 可能用来混合安全方式，除了用 sa 数据库用户还会用当前的 Windows 用户进行验证，这样两个操作系统会有明显差异。而配置 ODBC 时可以指定仅使用数据库用户进行验证，建议试试。

只用同一个 cn 对象就可以了。

[lsftest]

先在有问题的机子里用excel或其它的工具看看能不能读出数据来。
另外，除非基于安全考虑，否则似乎没有必要在formload和command1click的时候重复查询，一次把用户名、密码东西都读出来就行了。。还有，用完的时候注意释放。在你的formload事件中我就看不到有释放的动作。

[wangzhengcun]

谢谢各位，其实问题出在连接字符串上。
我是在Win2000系统上开发的，当是在backmanager窗体上加了一个adodc控件，和很多的text控件，而且邦定了数据库，但是在adodc的"连接"符中忘记了改SQL的服务器地址了，故，在别的机器上(SQL服务器也在此机上),无法连成功

[T315608]

一般不建议用控件进行绑定数据源

[wangzhengcun]

直接绑定可以节约代码，提高程序执行效率