Question

我有一个access 2007数据库，其中包含两个表main和main1两个表具有相同的设计和相同的字段（85字段）

我想从另一个更新其中一个，有一个简单的方法吗？我知道我可以使用更新查询，但我看到在这种情况下我必须在查询设计中指定两个表中的每个字段，这对85个字段来说很难。

那么在这种情况下该怎么做？

 UPDATE main 
 SET main.ID = [main1]![ID], 
 main.eng1job = [main1]![eng1job],   
 main.[eng1job-s] = [main1]![eng1job-s], 
 main.[eng1job-q] = [main1]![eng1job-q];

Answer 1

使用VBA

dim rs1 as Recordset
dim rs2 as Recordset
dim i   as Integer
dim c   as Integer

    set rs1 = CurrentDb.OpenRecordset("main")
    set rs2 = CurrentDb.OpenRecordset("main1", dbOpenDynaset)
    c = rs1.Fields.Count - 1
    Do Until rs1.EOF
        rs2.AddNew
            For i = 0 To c
                rs2(i) = rs1(i)
            Next
        rs2.Update
        rs1.MoveNext
    Loop

如何使用另一个表更新表

1 个答案: