Increasing Inserts and Updates Speed
|
Previous Top Next |
// insert data by portions of 2000 records
|
ABSDatabase1.StartTransaction;
|
for i:=1 to 2000 do
|
with ABSTable1 do
|
begin
|
Insert;
|
FieldByName('Name').AsString := 'John';
|
Post;
|
end;
|
ABSDatabase1.Commit(False);
|
UPDATE Orders SET ShipToAddr1=(SELECT Addr1 FROM Customer WHERE CustNo=Orders.CustNo), ShipToAddr2= (SELECT Addr2 FROM Customer WHERE CustNo=Orders.CustNo) WHERE CustNo IN (1221, 2156)
|
UPDATE Orders SET (ShipToAddr1,ShipToAddr2) = (SELECT Addr1, Addr2 FROM Customer WHERE CustNo=Orders.CustNo) WHERE CustNo IN (1221, 2156)
|