以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据源判断问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14967)
--  作者：lpxjw_zyl
--  发布时间：2011/12/8 15:06:00
--  数据源判断问题

Dim S As String = User.ExtendedValues("IP")
Output.Show(S)
Dim s1 As String ="Provider=SQLOLEDB.1;Password=f53239897xjgl;Persist Security Info=True;User ID=sa;Initial Catalog=Lppj;Data Source="& s &""
If Connections.TryConnect(s1) = True Then
    MessageBox.Show("数据源无法连通!")
End If
上述代码不能正确判断数据源是否连通

把User.ExtendedValues("IP") 改成具体的IP地址能够判断，请 问为什么
--  作者：狐狸爸爸
--  发布时间：2011/12/8 15:29:00
--  
Dim S As String = User.ExtendedValues("IP")
Output.Show(S)
Dim s1 As String ="Provider=SQLOLEDB.1;Password=f53239897xjgl;Persist Security Info=True;User ID=sa;Initial Catalog=Lppj;Data Source=" & s &""
If Connections.TryConnect(s1) = False  Then
       MessageBox.Show("数据源无法连通!")
End If
--  作者：lpxjw_zyl
--  发布时间：2011/12/9 10:17:00
--  

狐爸运行报错是怎么的
--  作者：狐狸爸爸
--  发布时间：2011/12/9 10:22:00
--  

报什么错？

 

messagebox.show(s1)

 

看看是不是你合成的链接字符串有问题。