以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有问:如何动态创建外部数据源  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32368)
--  作者：飞天
--  发布时间：2013/4/30 19:53:00
--  有问:如何动态创建外部数据源

如题;

是否可以通过代码,动态的创建一个外部的数据源,我指的是SQL2005
--  作者：瞩望星空
--  发布时间：2013/5/1 10:40:00
--  

设置动态外部数据源

Dim str1 As String

\'调试时,先使用本地的Access数据库作外部数据源,正式使用时,再修改。

str1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\test.mdb;Persist Security Info=False"  \'按实际情况编写

Dim Conn As New Data.Oledb.OledbConnection(Str1)

Try

    conn.Open

    messagebox.show("数据库连接成功")

    conn.Close

    Catch

    messagebox.show("情数据库连接失败")

    

End Try

If Connections.Contains("testdb")=False Then

    

    Connections.Add("testdb",str1)

    

    MessageBox.Show("数据源添加成功.")

Else

    MessageBox.Show("系统已有数据源!本次不需要再添加.")

    

End If

<!--EndFragment-->
[此贴子已经被作者于2013-5-1 10:41:40编辑过]