请教高手,怎样用B数据库中的某字段去更新A数据库中的字段?

Kittle 2001-10-27 10:18:58
请看下面的一段程序:
Dim astr As String
Dim dbAdd As Database
Dim dbOld As Database
Set dbAdd = DBEngine.Workspaces(0).OpenDatabase("e:\我的程序\新建文件夹\zjs.mdb")
Set dbOld = DBEngine.Workspaces(0).OpenDatabase("e:\我的程序\新建文件夹\zjs1.mdb")
astr = "UPDATE zjs SET [zjs].[工资]=[zjs1].[工资] WHERE [dbAdd].[姓名]=[dbOld].[姓名]"
dbAdd.Execute astr

dbAdd.Close
dbOld.Close

上面一段程序目的是想用数据库zjs1中的工资值更新zjs中的工资字段,但运行却没有效果。请高手指教。
...全文
25 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
woowindice 2001-10-28
up
回复
gmc007 2001-10-27
同意楼上。
如果是在同一个MDB的两个SHEET,就可以像你这样了。
回复
AFIHA 2001-10-27
要打开两个记录集吧

回复
相关推荐
发帖

1188

社区成员

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