VBA - 2つの表に挿入最初のテーブルからIDを第二

Question

フィールドである場合、私は二つに構造化されたデータの膨大な量を持っているが、次の列を持つシートをエクセル：

EXCEL DATA 

Sheet1 [pod, client, address, ...etc] -one record per [pod] 
Sheet2 [pod, pointofmeasure, typepct, ...etc] -one-to-many records per [pod] 

-relationshipはsheet1.pod の間であります

：と sheet2.pod（1対多リレーションシップ）

Iは、以下の表構造でAccessデータベースにその優れたシートからデータを挿入するSQLを必要

where table2.pod_id = table1.id

1つのSQLインサートで実行できますか？

私は今、地獄は、私がtable2のにデータを挿入するためにidを取得する方法...この大量の挿入で

cn.Open scn 
ssql = "INSERT INTO table1 (pod, client, address, ...etc) " 
ssql = ssql & "SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "].[sheet1$]" 

cn.Execute ssql, cAffectedRows 
cn.Close 

を思いつきましたか？

Answer 1

表1のPod-Columnが一意であると仮定すると、条件SELECT id FROM table1 WHERE pod = 'myCurrentPod'を挿入し、再度IDを選択する必要があります。

ポッドが一意ではなく、他の既知の値を持つポッドも一意でない場合、そのようにする機会はありません。 他の既知の値を持つポッドが一意である場合は、上位条件をさらに条件を展開することができます。

すべてのケースでは、一括挿入はできませんが、シート1から1行挿入し、シート2からリンクされた行を挿入し、次のシート1行などを挿入します。

テーブルを設計できる場合は、自動インクリメントIDは使用しないでくださいが、アプリケーションセットIDを使用してください。または、ポッドの値が本当にユニークであれば、これをpkとして使用します。

Answer 2

列の名前が正しく（つまり、各属性がスキーマ全体で一意かつ一貫して名前が付けられている）、外部キーが期待どおりに設定されている場合は、1つの挿入で行うことができます。あなたは、ビュー経由で挿入した場合ので、それを許可する（ID列を省略し、

CREATE TABLE TableA 
(ID IDENTITY NOT NULL UNIQUE, 
    a_col INTEGER NOT NULL); 

CREATE TABLE TableB 
(ID INTEGER NOT NULL UNIQUE 
    REFERENCES TableA (ID), 
    b_col INTEGER NOT NULL); 

CREATE VIEW TestAB 
(a_ID, a_col, b_ID, b_col) AS 
SELECT A1.ID, A1.a_col, B1.ID, B1.b_col 
    FROM TableA AS A1 
     INNER JOIN TableB AS B1 ON A1.ID = B1.ID; 

：

はここでアクセスのANSI-92 Query ModeためのSQL DDLを使用してクイックスケッチ（あなたがアクセスUIを使用して、同じオブジェクトを作成することができます）です

INSERT INTO TestAB (a_col, b_col) VALUES (55, 99); 

この場合、1つのSQLコマンドで各テーブルに行が挿入されます。

あなたの属性に名前を付ける際には、厳密には厳しくなっていないようです。 Table1.idpod_idの名前をTable2に変更し、idという名前がスキーマ内で一意ではありません。

Answer 3

私は、すべてのデータをretriveするシートの間のJOINを行うために...この...

INSERT INTO [table1] ([data]) 
OUTPUT [inserted].[id], [external_table].[col2] 
INTO [table2] SELECT [col1] 
FROM [external_table] 

と最後のSELECTで見つかりましたか？

このように機能していますか？