Office中国论坛/Access中国论坛

标题: 如何用编程的方法用表B的字段去更新表A中的字段 [打印本页]

作者: 付谦 时间: 2005-3-29 23:59
标题: 如何用编程的方法用表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 时间: 2005-3-30 02:47
UPDATE 表A INNER JOIN 表B ON 表A.工作单位=表B.工作单位 SET 表A.单位代码 = 表B.单位代码sql语句后增加一个“;”的结束符，应可运行，若不行，将例子放上来。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)