VB如何调用ACCESS 2000的数据库(.mdb), 若还有组文件(.mdw),请教如何编写?

rick_gao 2001-07-24 08:08:14
VB如何调用ACCESS 2000的数据库(.mdb), 若还有组文件(.mdw),请教如何编写?
...全文
116 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
riluo 2001-07-30
做个标记
回复
0208ahui 2001-07-30
调用组文件,我只在access97上用过,不知是否有帮助。
数据库访问,使用ado或odbc都可以
调用*.mdw
只需设置一下DBEngine的sysdb属性即可。
DBEngine.Sysdb=app.path+"\*.mdw"
回复
silence 2001-07-27
把原来的dao升级,从3.50 升级到3.60 就可以了,升级到4.0也可以,
回复
lzb 2001-07-24
你没打vb的sp4、sp5补丁吧?
回复
iamfancy 2001-07-24
使用 ADO 或者 ODBC 都可以的
回复
little_hero 2001-07-24
dim AdoCN As New ADODB.Connection
dim rs As New ADODB.Recordset
connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\My Documents\blj\MDB\BitSoft.mdb;Mode=Read¦Write;Persist Security Info=False"
AdoCN.open connstr
rs.CursorLocation = adUseClient
sqlstr = "select * from MST_OPERATOR WHERE OperatorID=2"
rs.Open sqlstr, conn, adOpenKeyset, adLockOptimistic
rs("OperatorNO")="0001"
rs("OperatorName")="blj"
rs("Password")="WERW"
rs("Remark")="dfg"
rs.update
rs.close
set adocn=nothing
回复
cqq_chen 2001-07-24
也可以引用DAO36来现实。
回复
fool_chen 2001-07-24
Public Function PJ_DB_ConnectDB(dbName As String) As Integer

On Error GoTo ErrorTrap
Dim strPath As String

On Error GoTo ErrorTrap
strPath = "Provider=microsoft.jet.OLEDB.4.0;" & _
"Data Source=" & dbName

Set mObjAccessConnect = New ADODB.Connection
With mObjAccessConnect
.ConnectionString = strPath
.Open
End With

PJ_DB_ConnectDB = 0
Exit Function

ErrorTrap:
MsgBox "データベースファイルが見つかりません。システム管理者に連絡してください。"
PJ_DB_ConnectDB = -1

End Function

dbName是数据库路径
仅供参考
回复
fool_chen 2001-07-24
以前有这种问题的,你可以查询一下,使用ADO是可以连接ACCESS2000的
回复
ahphone 2001-07-24
改用97吧,
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-07-24 08:08
社区公告
暂无公告