<< Click to Display Table of Contents >> 去掉打开数据库密码提示(gf_OpenWorkSpace函数) |
函数说明
该函数可以去掉打开数据库时的密码提示。
注意:该函数的参数必须包含登录用户名和密码信息才有效。和gf_OpenDataBase函数效果一样。
函数原型
|
Public Function gf_OpenWorkSpace(strCnn As String) As Boolean |
语法
gf_OpenWorkSpace(strCnn)
参考:gf_OpenWorkSpace("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data.mdb") ‘获取D盘下Data.mdb的数据库对象
参数
参数名 |
必需/可选 |
数据类型 |
参数说明 |
---|---|---|---|
strCnn |
必需 |
String |
字符串表达式。要获取数据库的连接语句。 |
返回值
返回布尔型(Boolean)。若操作成功,则返回True;不成功,则返回False。
示例
|
'得到D盘下的Data.mdb数据库的表的个数 Sub subTest() Dim strConnect As String '定义字符串变量,设置数据库连接语句 Dim blnResult As Boolean '定义布尔值变量,接收执行结果
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Data.mdb" '设置数据库连接语句 blnResult = gf_OpenWorkSpace(strConnect) '去掉打开数据库的密码提示
If blnResult Then Msgbox "去密码提示,操作成功" Else Msgbox "操作不成功,请检查" End If End Sub |