如何在 FD查询 4 上恢复 FD查询 7 值

Question

如何集成这两个代码以在 fdquery4 中插入 fdquery7 的值？

FDQuery7.SQL.Add ('SELECT nom FROM bases.nomm ');
FDQuery7.open;
FDQuery7.First;
while not FDQuery7.EOF do
begin
  FDQuery7.Fields[0].Value;
  FDQuery7.Next;
end;
FDQuery4.SQL.Add ('INSERT INTO name(firstname)  Values ("fdquery4")');
FDQuery4.execSQL;
showmessage('insert');

Answer 1

您可以尝试仅使用一个 FDQuery 来完成这样的工作：

FDQuery4.SQL.Add ('INSERT INTO name (firstname) SELECT nom FROM bases.nomm');
FDQuery4.execSQL;
showmessage('insert');

它将对表中bases.nomm条记录执行INSERT。