如何用编程的方法用表B的字段去更新表A中的字段

付谦

有2个表,如表A有工作单位与单位代码两个字段,表B是代码库,也有工作单位与单位代码两个字段.如何用编程的方法用表B的单位代码去更新表A中的单位代码(不用查询的方法),我曾编程:

Sub Mm()



Set db = CurrentDb() '指定数据库为当前数据库

Set maindb = db.OpenRecordset("select 工作单位,单位代码 from 表A")  

Do While Not maindb.EOF

Dim sr As String

Dim MC As String

Dim strsql As String

sr = maindb![工作单位]

Set 表B = db.OpenRecordset("select * from dwdm where [工作单位]='" + sr + "'")

maindb![单位代码] = 表B ![单位代码]

maindb.MoveNext '记录一条条下移

Loop



maindb.Close

End Sub

运行通不过.试图在过程中用

UPDATE 表A INNER JOIN 表B ON 表A.工作单位=表B.工作单位 SET 表A.单位代码 = 表B.单位代码

同样运行不了.更新语句究竟怎么写才才能通过.请高手赐教.

hi-wzj

UPDATE 表A INNER JOIN 表B ON 表A.工作单位=表B.工作单位 SET 表A.单位代码 = 表B.单位代码sql语句后增加一个“;”的结束符，应可运行，若不行，将例子放上来。