Connections

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

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

示例

Dim cn As Connection
cn =  Connections("test"
)

Connections的属性和方法有:

Add

增加数据源。

语法:

Add(Name, ConnectionString)

Name:       新增数据源的名称。
ConnectionString:新增数据源的链接字符串。

例如:

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

Delete

删除指定名称的数据源。

语法:

Delete(Name)

Name:   要删除的数据源名称。

TryConnect

测试指定的链接字符串能否连通,如果能连通,则返回True,否则返回False。

语法:

TryConnect(ConnectionString,ErrMsg)

ConnectionString:要测试的链接字符串。
ErrMsg:一个可选参数,用于获取导致数据源无法连接的错误原因。

例如:

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

如果要获取数据源无法连接的原因,代码为:

Dim ErrMsg As String
Dim
Conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\Northwind.mdb;Persist Security Info=False"
If
Connections.TryConnect(Conn,ErrMsg) = False Then
   
MessageBox.Show("数据源无法连通,原因:" & ErrMsg)
Else

    MessageBox.Show("数据源可以连通!")

End
If

Contains

判断是否存在指定名称的数据源,如果存在,就返回True。

语法:

Contains(Name)

Name:   数据源名称。

Count

返回数据源的数量。


本页地址:http://www.foxtable.com/webhelp/topics/1944.htm