第1个回答 2019-07-18
截取我曾写过的一个数据库程序中的代码,
这段代码写在模块中,可以连接一个数据库
Public
DBConnct
As
New
ADODB.Connection
'连接数据库
Public
Function
Connt()
As
Boolean
'数据库连接函数
Dim
splstr
As
String
'App.Path
&
"\db\123.mdb为数据库路径
splstr
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
& App.Path
&
"\db\123.mdb"
& ";Persist
Security
Info=False"
DBConnct.Open
splstr
'连接数据库
Connt
=
True
End
Function