有人懂怎样把VB程序和数据库联系起来吗?

Question

如题所述

Answer 1

截取我曾写过的一个数据库程序中的代码,

这段代码写在模块中,可以连接一个数据库

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