Access平台开发人员帮助 > 通用函数库 > 按功能 > 数据库操作

函数说明

该函数可以打开并获取一个数据库对象。

注意：该函数除了获取数据库对象，如果该连接语句包含用户和密码信息，可以起到去输入密码提示的功能。gf_OpenWorkSpace函数也可以去掉密码提示。

函数原型

Public Function gf_OpenDataBase(strConnect As String) As Object

语法

gf_OpenDataBase(strConnect)

参考：gf_OpenDataBase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data.mdb") ‘获取D盘下Data.mdb的数据库对象

参数

参数名	必需/可选	数据类型	参数说明
strConnect	必需	String	字符串表达式。要获取数据库的连接语句。

返回值

返回一个DAO的Database对象。若打开错误，则返回Nothing。

示例

'得到D盘下的Data.mdb数据库的表的个数

Sub subTest()

Dim strConnect As String '定义字符串变量，设置数据库连接语句

Dim intCount As Integer '定义整型变量，接收表的数量

Dim objDb As Object '定义一个对象变量，接收打开的数据库对象

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data.mdb" '设置数据库连接语句

Set objDb = gf_OpenDataBase(strConnect) '打开并获取数据库

If objDb Is Nothing Then Exit Sub 'objDb为Nothing的时候，说明打开错误，则退出该过程

intCount = objDb.TableDefs.Count '获取表的数量

Msgbox "D盘下的Data.mdb，表的数量是 " & intCount

End Sub

获取数据库对象（gf_OpenDataBase函数）