- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 动态设置数据库连接请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6687)
-- 发布时间：2010/4/19 16:33:00
-- 动态设置数据库连接请教
我想在项目打开时自动读取项目路径中txt文件建立指定名称的部数据源，在项目关闭时删除此数据源，如何设置写代码？
-- 发布时间：2010/4/19 16:39:00
--
Connections
一般用户可以忽略本节内容，因为很少需要通过代码来管理数据源的。
Connections表示数据源集合，可以获得指定名称的数据源。
示例
Dim
cn As Connectioncn = Connections("test")
Connections的属性和方法有：
Add
增加数据源。
语法：
Add(ConnName, ConnString)
ConnName： 新增数据源的名称。
ConnString: 新增数据源的链接字符串。
例如：
Connections.Add(
"test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\abc.mdb;Persist Security Info=False")Delete
删除指定名称的数据源。
语法：
Delete(ConnName)
ConnName： 要删除的数据源名称。
TryConnect
测试指定的链接字符串能否连通，如果能连通，则返回True，否则返回False。
ConnString：要测试的链接字符串。
Dim
s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\data\\Northwind.mdb;Persist Security Info=False"If Connections.TryConnect(s) = False Then
MessageBox.Show("数据源无法连通!")
End If
Contains
判断是否存在指定名称的数据源，如果存在，就返回True。
语法：
Contains(ConnName)
ConnName： 要删除的数据源名称。
Count
返回数据源的数量。
-- 发布时间：2010/4/19 20:48:00
--
当前外部数据链接为Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\aaa.mdb;Persist Security Info=False，
想改为Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\bbb.mdb;Persist Security Info=False，通过代码如何实现，不是在BeforeConnectOuterDataSource中设置
-- 发布时间：2010/4/19 21:00:00
--
Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\**.mdb;Persist Security Info=False")
-- 发布时间：2010/4/20 17:04:00
--
这样报错!
此主题相关图片如下：b.bmp