VB 数据库

Public
conAdo
As
ADODBConnection
Public
record
As
ADODBRecordset
Function
conn()
As
String
'连接本地Access数据库
Set
conAdo
=
New
ADODBConnection
conAdoConnectionString
=
"Provider=MicrosoftJetOLEDB40;Data
Source="
&
AppPath
&
"\DATAmdb;Persist
Security
Info=False"
conAdoCursorLocation
=
adUseClient
conAdoOpen
Set
record
=
New
ADODBRecordset
recordCursorLocation
=
adUseClient
recordCursorType
=
adOpenDynamic
recordLockType
=
adLockOptimistic
End
Function
'读取数据库中的users表
SQLtxt
=
"select

from
[users]
where
姓名='"
&
Trim(Text1Text)
&
"'
;"
recordOpen
SQLtxt,
conAdo,
ADODBCursorTypeEnumadOpenDynamic,
ADODBLockTypeEnumadLockOptimistic

以上就是关于VB 数据库全部的内容，包括:VB 数据库、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！