Code: Select all
var
Q : TUniQuery;
begin
Q:=TUniQuery.Create(nil);
try
Q.Connection:=MSAcsConnect;
Q.SQL.Text:='SELECT * FROM Table1';
Q.UpdatingTable:='Table1';
Q.KeyFields:='Table1ID';
Q.Open;
try
Q.Insert;
...
finally
Q.Close
end;
Q.SQL.Text:='SELECT * FROM Table2';
// Why on this place do not to clear properties UpdatingTable&KeyFields, the query SQL is changed?
....
finally
Q.Free
end
end;