不同结构的两个表，如何将A表有B表无的数据插入B

Echo_Gao

SQL求助.rar (10.14 KB, 下载次数: 15)

2012-6-8 09:32 上传

点击文件名下载附件
SQL

各位好
  搜索了相关主题，还是没能解决我的疑问；请参考附件，我有两个表，表1，表2结构不尽相同；他们依靠表1.ITEM_ID 和表2.ROOT_ITEM_ID 做关联；
如何将表1中ITEM_ID有，但是表2.ROOT_ITEM_ID 没有的数据（ITEM_ID，EXCESS_QTY ）两个字段相关值赋给表2的（ROOT_ITEM_ID  和EXCESS_QTY）两个字段呢？
非常感谢！！！

zxb7679

INSERT INTO 表2 ( ROOT_ITEM_ID, EXCESS_QTY )
SELECT T.ITEM_ID, T.EXCESS_QTY
FROM (SELECT 表1.ITEM_ID, 表1.EXCESS_QTY FROM 表1 WHERE (((表1.ITEM_ID) Not In (select ROOT_ITEM_ID from 表2))))  AS T;

marco

Excel 这样操作会出错，所以只好利用一个过渡表（sheet3 里先创建两个字段 ITEM_ID,EXCESS_QTY ）来处理：

Sub InsertDT()

    Dim objCnn As New ADODB.Connection
    Dim objRst As New ADODB.Recordset
    Dim Rst As New ADODB.Recordset

    strQryName = "[表2$]"
    objCnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0"
    objCnn.Open
   
    objRst.Open "select ITEM_ID,EXCESS_QTY from [表1$] where ITEM_ID not in (select ROOT_ITEM_ID from [表2$])", objCnn, 1, 1
    Sheets("sheet3").Range("a2:b1000").ClearContents
    Sheets("sheet3").Cells(2, 1).CopyFromRecordset objRst
    Rst.Open "insert into " & strQryName & " (ROOT_ITEM_ID,EXCESS_QTY) select ITEM_ID,EXCESS_QTY from [sheet3$] ", objCnn, 1, 1
End Sub

Echo_Gao

zxb7679 发表于 2012-6-8 10:25
INSERT INTO 表2 ( ROOT_ITEM_ID, EXCESS_QTY )
SELECT T.ITEM_ID, T.EXCESS_QTY
FROM (SELECT 表1.ITEM_ ...

这位高人，你这个思路逻辑性好强，太好了！
解决了~~ 非常感谢

Echo_Gao

marco 发表于 2012-6-8 11:35
Excel 这样操作会出错，所以只好利用一个过渡表（sheet3 里先创建两个字段 ITEM_ID,EXCESS_QTY ）来处理：
...

亲，我不是在Excel里面操作，附件的Excel只是给大家参考的。实际我是在TOAD里面。
不过不管怎么样，也谢谢了哈~