|
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)
|