这段代码写在模块中,可以连接一个数据库
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
你可以直接建个datagridview的控件
然后点上边的一个小三角选择数据源,可以直接建立连接。
设置数据源指向你想要操作的数据库
在VB中用Adodc控件连接到该数据源
使用adodc的方法操作数据库