老生常谈了,为什么我的程序连接数据库时,显示拒绝访问或找不到服务器!

wixwiz 2003-09-24 06:41:00
我想在本地机器上访问远程数据库,连接代码如下:
sqlconnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=Test;Data Source=202.96.86.*"

同样的程序在于2000好用,能边上数据库。在98下运行就告诉找不到服务器
这是为什么啊?

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open sqlconnStr()
...全文
22 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Gelim 2003-09-24
密码!
回复
hemeijun81 2003-09-24
远程服务器又密码或密码被修改后为空格
回复
chenkangli 2003-09-24
没有添加ODBC数据源
回复
busisoft 2003-09-24
在98下面添加ODBC数据源,测试连接成功后就没有问题了。
回复
注意在98下需要安装微软的那个mdac之类的东西
回复
dljinsui 2003-09-24
兄弟的sqlconnStr 是写在DLL内吗?如果是,注意一下系统的用户名及操作权限;
另外,注意到你的联结是远程调用,也请注意一下系统的用户名及操作权限;
试一下。
回复
Jackile 2003-09-24
下面是一个连接数据库的模块(不知那里转贴过来的,忘了):
代码如下:
Public rsNew As ADODB.Recordset
Public CnNew As ADODB.Connection
Public addFlag As Boolean
'连接数据库
Public Function OpenCn() As Boolean
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
CnNew.ConnectionTimeout = 25
CnNew.Provider = "sqloledb"
CnNew.Properties("data source").value = "" 'SQL服务器的名
CnNew.Properties("initial catalog").value = "pubs"'库名
CnNew.Properties("integrated security").value = "SSPI"'登陆类型
'con.Properties("user id").value = "sa"
'con.Properties("password").value = "wwww"

CnNew.Open
OpenCn = True
addFlag = True
Exit Function
strErrMag:
Mag = "数据库末连接"
Call MsgBox(Mag, vbOKCancel, "错误:数据库连接")
addFlag = False
End
End Function
Public Sub Clocn()
'闭关数据库
On Error Resume Next
If CnNew.State <> adStateClosed Then CnNew.Close
Set CnNew = Nothing
End Sub
Public Function OpenRs(ByVal strSql As String) As Boolean
'连接数据库记录集
Dim Mag As String
Dim rpy As Boolean
On Error GoTo strErrMag
Set rsNew = New ADODB.Recordset
If addFlag = False Then rpy = OpenCn
With rsNew
.ActiveConnection = CnNew
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSql
End With
addFlag = True
OpenRs = True
Exit Function
strErrMag:
Mag = "数据库数据集末连接"
Call MsgBox(Mag, vbOKOnly, "错误:数据库连接")
OpenRs = False
End
End Function
Public Sub cloRs()
'闭关数据集
On Error Resume Next
If rsNew.State <> adStateClosed Then rsNew.Close
Set rsNew = Nothing
End Sub

只要在你的标准模块中加入该代码,你就可以使用其中的函数来连接数据源了。
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-09-24 06:41
社区公告
暂无公告