работа с транзакциями

[kate158]

Привет!
Помогите разобраться с транзакциями. В БД добавляю инф-ю:

 
  q.Connection:=adoconnection1;
    q.SQL.Add('INSERT "MYTABLE);
    q.SQL.Add('SELECT ' +  quotedstr(12.05.2009) + ', ' + quotedstr(Объект1)+ ',hour,val');
    q.SQL.Add('FROM TEST');
    q.SQL.Add('WHERE Year ='+ FormatDateTime( 'yyyy',caldatepicker.date) + ' AND Month ='+FormatDateTime( 'mm',caldatepicker.date));
    q.SQL.Add('AND day ='+ FormatDateTime( 'dd', caldatepicker.date));
    q.ExecSQL;

в БД, в той таблице, в которую идет добавление, хранятся первичные ключи.Поэтому при повторном нажатии кнопки на добавление, будет появлятся сообщение об ошибке что нельзя добавить данные, т.к. нарушеие целостности и пр.
Знаю что можно использовать транзакцию, удалить старые данные и записать новые. Как это можно сделать?

[kate158]

сама спросила,сама отвечу
вот код.может.кому понадобится

  q:= TADOQuery.Create(nil);
   TRY
    if not (adoconnection1.InTransaction) then adoconnection1.BeginTrans;
     //сначала все удаляем
    q.Connection:=adoconnection1;
    q.SQL.Add('DELETE MYTABLE);
    q.SQL.Add('WHERE dateDST ='+ quotedstr(FormatDateTime( 'yyyymmdd',caldatepicker.date)));
    q.ExecSQL;
     //пишем новые данные
    q.SQL.Add('INSERT MYTABLE');
    q.SQL.Add('SELECT ' +  quotedstr(FormatDateTime( 'yyyymmdd',caldatepicker.date)) + ,hour,val');
    q.SQL.Add('FROM TEST');
    q.SQL.Add('WHERE Year ='+ FormatDateTime( 'yyyy',caldatepicker.date) + ' AND Month ='+FormatDateTime( 'mm',caldatepicker.date));
    q.SQL.Add('AND day ='+ FormatDateTime( 'dd', caldatepicker.date);
    q.ExecSQL;
    adoconnection1.CommitTrans;
 except
    adoconnection1.RollbackTrans;
    ShowMessage('Скопировать не удалось!');
  end;