小弟有一個問題想請教各位先進，小弟現在需要比對兩個資料表裡面的資料，salary和humall_mstr資料表，如果salary裡面沒有humall_mstr的資料再將humall_mstr資料插入salary裡面，小弟是先利用Query抓出humall_mstr的資料，再丟到salary裡面查詢，如果沒有再將資料插入salary，現在卡在如何傳回單筆查無humall_mstr資料？


with Query11 do //抓取humall_mstr資料
begin
close;
sql.clear;
sql.Add('select t_no,t_name,po_name1,po_name2,po_cd from humall_mstr');
open;
end;

while not Query11.Eof do
begin
with Query15 do //選擇salary內有humall_mstr的資料
begin
close;
sql.clear;
sql.Add('select * from salary where t_no=''' query11.fieldbyname('t_no').asstring '''');
open;
if query11. then //不知道要怎寫
begin
with Query16 do
begin;
close;
sql.clear;
sql.Add('insert into salary (T_NO,T_NAME,PO_CD,PO_NAME1,PO_NAME2)values(''' query11.fieldbyname('t_no').asstring ''',''' query11.fieldbyname('t_name').asstring ''',''' query11.fieldbyname('PO_CD').asstring ''',''' query11.fieldbyname('PO_NAME1').asstring ''',''' query11.fieldbyname('PO_NAME2').asstring ''')');
execsql;
end;
end;
end;
Query11.next;
end;

[code delphi]
while not Query11.Eof do
begin
//選擇salary內有humall_mstr的資料
Query15.close;
Query15.sql.clear;
Query15.sql.Add('select * from salary where t_no=''' query11.fieldbyname('t_no').asstring '''');
Query15.open;
if Query15.eof then // <------
begin
with Query16 do
begin
close;
sql.clear;
sql.Add('insert into salary (T_NO,T_NAME,PO_CD,PO_NAME1,PO_NAME2)values(''' query11.fieldbyname('t_no').asstring ''',''' query11.fieldbyname('t_name').asstring ''',''' query11.fieldbyname('PO_CD').asstring ''',''' query11.fieldbyname('PO_NAME1').asstring ''',''' query11.fieldbyname('PO_NAME2').asstring ''')');
execsql;
end;
end;

Query11.next;
end;

[/code]
或者

Insert Into salary (T_NO,T_NAME,PO_CD,PO_NAME1,PO_NAME2)
SELECT T_NO,T_NAME,PO_CD,PO_NAME1,PO_NAME2 FROM humall_mstr
where T_NO not in (select T_NO from salary)

------
What do we live for if not to make life less difficult for each other?

感謝christie的指導，我利用
Insert Into salary (T_NO,T_NAME,PO_CD,PO_NAME1,PO_NAME2)
SELECT T_NO,T_NAME,PO_CD,PO_NAME1,PO_NAME2 FROM humall_mstr
where T_NO not in (select T_NO from salary)
如此就可以插入salary內資料了，又學了一招了。

編輯記錄