批量记录插入

Question

我需要从一个表（多行）中获取数据，并在修改和添加一些新字段后插入到其他表中。

例如：

表 1
项目ID，
价格，
qnt,
date_of_dispatch

表2
发票编号，
发票日期，
客户 ID，
项目ID，
价格，
qnt,
总金额，
发货日期，
grandtotal

请帮我用 ms access 制作它

Answer 1

在循环中逐条插入第一个表中的记录：

Dim oConn1
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "connection string here"
Set oRS = oConn.Execute("Select * From Table1")
Do Until oRS.EOF
    strItemId = oRS("item_id")
    strPrice = oRS("price")
    '....get more data
    '....also add new fields like:
    Invoicedate = Date()
    customer_id = 500
    '.......
    If Request("confirm_" & strItemId)="1" Then
        strSQL = "Insert Into Table2 (itemid, price, customer_id, ...) Values ('" & strItemId & "', '" & strPrice & ', ..."
        oConn.Execute(strSQL)
        Response.Write("Item " & strItemId & " inserted<br />")
    Else  
        Response.Write("Confirm insert of item " & strItemId & " <input type=""checkbox"" name=""confirm_" & strItemId & """ value=""1"" />")
    End If
    oRS.MoveNext
Loop
oRS.Close

这是基本方法，希望它足够清楚。

编辑：添加了对确认每条记录的支持 - 现在每条记录都会出现复选框，并且仅当选中该复选框时才会发生 INSERT 语句。这将每个 item_id 作为某种“键”，您也可以使用任何其他唯一值。