Connections
一般用户可以忽略本节内容,因为很少需要通过代码来管理数据源的。
Connections表示数据源集合,可以获得指定名称的数据源。
示例
Dim
cn As ConnectionConnections的属性和方法有:
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
ConnectionString:要测试的链接字符串。
例如:
Dim
s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\Northwind.mdb;Persist Security Info=False"如果要获取数据源无法连接的原因,代码为:
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
返回数据源的数量。