关于ACCESS数据库用新数据替换原有数据库部分数据(有规律)求教!!!_百 ...
发布网友
发布时间：2024-03-31 03:04
共1个回答
热心网友
时间：2024-04-14 00:48
现在把B的数据 更新到A里面！ 我只做奖金这个字段！剩下的你自己写
，---下面是代码
'工程->引用->Microsoft ActiveX Data Objects 2.8 Library
'上面这个必须引用,否则下面不能运行
假设 a 库里面有A1 表 B库里面有B1表
Dim conn As New ADODB.Connection
Dim conn1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql
sql = "select * from b1"
conn.Open "driver={Microsoft Access Driver (*.mdb)};Dbq=b"
conn1.Open "driver={Microsoft Access Driver (*.mdb)};Dbq=a"
rs.Open sql, conn, 1, 1
do while not rs.eof
conn1.execute "update a1 Set 奖金='" & rs("奖金") & "',保险='" & rs("保险") & "'where 工号=" & rs("工号")
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
conn1.close
set conn1=nothing
'搞定！ 做之前先备份你的数据库！以防不测
