标题：动态设置数据库连接请教

1楼

exonjee 发表于：2010/4/19 16:33:00

我想在项目打开时自动读取项目路径中txt文件建立指定名称的部数据源，在项目关闭时删除此数据源，如何设置写代码？

2楼

狐狸爸爸 发表于：2010/4/19 16:39:00

Connections

一般用户可以忽略本节内容，因为很少需要通过代码来管理数据源的。

Connections表示数据源集合，可以获得指定名称的数据源。

示例

Dim cn As Connection
cn = 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

返回数据源的数量。

3楼

tianhe95 发表于：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中设置

4楼

mr725 发表于：2010/4/19 21:00:00

Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\**.mdb;Persist Security Info=False")

5楼

exonjee 发表于：2010/4/20 17:04:00

这样报错!

此主题相关图片如下：b.bmp

共5 条记录, 每页显示 10 条, 页签: [1]