我有个软件用到sql数据库。多数机都正常,最近出现一二台机连不上,但是它的网络也是通的。提示连接数据库失败。
下面最简单的代码,调试正常,放到那台机也连接不上
Private rsS As ADODB.Recordset '公用变量
Private conS As ADODB.Connection '公用变量
Dim conStrSPrivate Sub Command1_Click()
Set conS = New ADODB.Connection
conStrS = "Provider=SQLOLEDB.1;Password=*;Persist Security Info=True;User ID=***;Initial Catalog=***;Data Source=ip***"
conS.Open conStrS
MsgBox conS.State
conS.Close
set conS=Nothing
End Sub
不知是什么原因
下面最简单的代码,调试正常,放到那台机也连接不上
Private rsS As ADODB.Recordset '公用变量
Private conS As ADODB.Connection '公用变量
Dim conStrSPrivate Sub Command1_Click()
Set conS = New ADODB.Connection
conStrS = "Provider=SQLOLEDB.1;Password=*;Persist Security Info=True;User ID=***;Initial Catalog=***;Data Source=ip***"
conS.Open conStrS
MsgBox conS.State
conS.Close
set conS=Nothing
End Sub
不知是什么原因
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货