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

2008-11-25 08:29:49 849 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

[DBNETLIB][ConnectionOpen(connect()).]SQL Server 不存在或拒绝访问解决方本人为一客户死里活里的忙了好几天，问题终于解决，借助于网络同时也做了一些收集，以助遇到了同样问题的朋友!下面是我的网络搜索到的集：1、一台机器即作服务器又作客户机，软件连接中出现：[DBNETLIB][ConnectionOpen(connect()).]SQL Server 不存在或拒绝访问。现从网上查阅问题解决办法有如下几种：（A）1:你如果是独立上网的请把21端口打开.局域网把1433端口... 阅读详情

用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

...全文

从仿真到真机：如何将XTDrone的VINS-Fusion+RTABMap建图方案部署到真实无人机上？本文详细介绍了如何将XTDrone的VINS-Fusion+RTABMap建图方案从仿真环境迁移到真实无人机上。内容涵盖硬件选型、传感器配置、VINS-Fusion调优、RTABMap性能优化以及系统集成等关键步骤，特别针对三维稠密重建在真实环境中的挑战提供了实用解决方案。阅读详情

wangzhengcun

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

wangzhengcun 2008-11-26

打赏
举报

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

T315608 2008-11-26

打赏
举报

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

wangzhengcun 2008-11-26

打赏
举报

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

lsftest 2008-11-25

打赏
举报

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

Tiger_Zhao 2008-11-25

打赏
举报

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

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

wangzhengcun 2008-11-25

打赏
举报

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

Tiger_Zhao 2008-11-25

打赏
举报

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

jhone99 2008-11-25

打赏
举报

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

aohan 2008-11-25

打赏
举报

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

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

wangzhengcun 2008-11-25

打赏
举报

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了

jhone99 2008-11-25

打赏
举报

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

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

相关推荐