Vou te dar um exemplo de como eu faço com o SQLQuery:
// qr = TSQLQuery
procedure Salvar;
var td : TTransactionDesc;
begin
// AJUSTAMOS A VARIAVEL QUE TERA OS DADOS DA TRANSACAO
td.TransactionID := Cardinal('7'+FormatDateTime('ddmmyyyy',date)
+FormatDateTime('hhnnss',time));
td.IsolationLevel := xilREADCOMMITTED;
// CONFIGURAMOS O QUERY
with qr do
begin
SQLConnection.StartTransaction(td); // AQUI ABRE A TRANSACAO
if Active then Close;
SQL.Clear;
SQL.Add(' Insert Into TABELA ');
SQL.Add(' ( CAMPOS ) ');
SQL.Add(' values ');
SQL.Add(' ( CAMPOS ) ');
ExecSQL; // EXECUTAMOS O COMANDO SQL
SQLConnection.Commit(td); // FINALIZAMOS A TRANSACAO
end;
end;
--- Em delphi-br@yahoogrupos.com.br, Nivaldo Stainle
<[EMAIL PROTECTED]> escreveu
>
> eu usei as tabelas maiores(40.000) registros e coloquei num arquivo
à parte e funcionou, mas preciso deixar tudo num único programa.
> eu sómente leio e atualizo, os campos já são definidos no CDS, mas
vou tentar pelo SQLQuery,
> valeu pela ajuda.
>
> Stainle
>
