dim
dbConn
As
ADODBConnection
'定义一个ADODB连接
dim
MenuRs
As
ADODBRecordset
'定义Recordset对象
dim
WordRs
As
ADODBRecordset
Function
Conn2DB(byval
dbname
as
string)
As
Boolean
'数据库连函数,dbname为数据库文件的绝对路径
Dim
connStr
As
String
'
Access连接字符串
conStr
=
"Provider=MicrosoftJetOLEDB40;Data
Source="
&
dbName
&
";Persist
Security
Info=False;Jet
OLEDB:Database
Password=abcdef"
Set
dbConn
=
New
ADODBConnection
'定义一个ADODB连接对象
If
dbConnState
<>
adStateOpen
Then
'判断ADODB连接是否打开
dbConnOpen
conStr
'如果不是打开状态
就打开连接
End
If
Conn2DB
=
True
End
Function
Function
CloseDb()
As
Boolean
If
dbConnState
=
adStateOpen
Then
dbConnClose:
Set
dbConn
=
Nothing
End
If
End
Function
Private
Sub
Form_Load()
dim
dbname
as
string
dbname="D:\dbmdb"
‘数据库文件路径
if
Conn2DB(dbname)=true
then
msgbox
"连接数据库成功!"
CloseDb
end
if
End
sub
以上就是关于怎么如何用VB软件连接数据库全部的内容,包括:怎么如何用VB软件连接数据库、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)