database - TADOQuery.Open 执行一条语句但只执行一次

Question

我使用此代码将行从 Table1 复制到 Table2，但它给了我

Command Text does not return a result set

 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('insert into Table1');
 ADOQuery1.SQL.Add('select Field1 ,Field2 from Table2');
 ADOQuery1.SQL.Add('where ArtNo= 1');
 ADOQuery1.Open;
 ADOQuery1.Refresh ;

如果我不使用

 ADOQuery1.Open;

它给了我

ADOQuery1: Cannot perform this operation on a closed dataset.

它复制我想要的但只复制一次。如何复制多次？谢谢。

Answer 1

对于不打开游标的脚本(如插入、更新或执行脚本)，请使用 TADOQuery 的 ExecSQL 方法。

它返回一个整数，表示您的查询影响的行数。

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into Table1');
ADOQuery1.SQL.Add('select Field1 ,Field2 from Table2');
ADOQuery1.SQL.Add('where ArtNo= 1');
NumRows := ADOQuery1.ExecSQL;
ShowMessageFmt('Affected rows on Table2: %d', [NumRows]);