以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据库接口设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117759)

--  作者:wtfwsk05
--  发布时间:2018/4/18 18:03:00
--  数据库接口设置
各位大卡,请问下怎么实现下列功能?图片点击可在新窗口打开查看
--  作者:wtfwsk05
--  发布时间:2018/4/18 18:04:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180418180219.png
图片点击可在新窗口打开查看

--  作者:wtfwsk05
--  发布时间:2018/4/18 18:04:00
--  
请各位老师,帮我写下代码?????
--  作者:有点甜
--  发布时间:2018/4/18 18:31:00
--  

合成连接字符串,参考

 

http://www.foxtable.com/webhelp/scr/1810.htm

 

http://www.foxtable.com/webhelp/scr/2310.htm

 

http://www.foxtable.com/webhelp/scr/1944.htm

 


--  作者:wtfwsk05
--  发布时间:2018/5/16 21:56:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:223344.png
图片点击可在新窗口打开查看

老师可以帮我写下代码不,我看了教材,不知道怎么写

--  作者:有点甜
--  发布时间:2018/5/16 22:33:00
--  
Dim ip As String = "voyo"
Dim u As String = "sa"
Dim p As String = "hailun."
Dim d As String = "test"
Dim s As String = "Provider=SQLOLEDB.1;Password=" & p & ";Persist Security Info=True;User ID=" & u & ";Initial Catalog=" & d & ";Data Source=" & ip
If Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!")
Else
    msgbox("正常")
End If