Удаление в связаных таблицах ADO

[Alexsandr]

Доброе время суток! Я начинающий программер, у меня возникла проблемма. Есть БД Access в ней 2 связаные талицы Klient и Rab. При удалении из табл.Klient строка1 удаляеться но с таблицы Rab строка1 не удаляеться Делаю так:

procedure TDelForm.Button1Click(Sender: TObject);
begin
ZakazForm.ZKADOTable.Delete;
Close;
end;

[mihali4]

Называется "каскадное" удаление.
Сначала

SQL.Text:='delete from rab where <поле связи>='+
Quoted(ZakazForm.ZKADOTable.FieldByName('<поле связи>').AsString);

А уже потом

ZakazForm.ZKADOTable.Delete;

[Alexsandr]

Спасибо! Но можно по подробней Я не понял надо на форму бросить ADOQuery, а дальше
что писать в SQL и Parametrs ??? В SQL написал
DELETE FROM Rab
WHERE Rab_ID1 = '+'
Выдаёт ошибку Параметры Rab_ID1 не имеет значения по умолчанию.
В что я не правильно сделал подскажите плиз?

[Pitbull]

try
              //начинаем транзакцию
DataModule1.ADOConnection1.BeginTrans;
adoQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('delete from rab where Rab_ID1=' +
Quoted(ZakazForm.ZKADOTable.FieldByName('<поле связи>').AsString);
ADOQuery1.ExecSQL;
ZakazForm.ZKADOTable.Delete; 
DataModule1.ADOConnection1.CommitTrans;
except
ADOConnection1.RollbackTrans;
              ShowMessage('Невозможно выполнить удаление. Повторите.');
end;

или в одном запросе:

procedure del();
var iDel : integer; //можите String
begin
 if ZakazForm.ZKADOTable.RecordCount=0 then
     begin
        Application.MessageBox(PChar('В базе нет больше записей!'), 'Внимание!!!', MB_OK);
        exit;
     end;
if Application.MessageBox(PChar('Вы действительно хотите удалить данную запись? '), 'Внимание!!!', MB_OKCANCEL)=id_OK then
        //блок обработки исключений
        try
              //начинаем транзакцию
              ADOConnection1.BeginTrans;
              ZakazForm.ZKADOTable.Edit;
              iDel:=ZakazForm.ZKADOTable.fieldByName<имя поля>.AsInteger;//можно указать String-поле...
       //удаление из дочерней таблицы 
                 adoQuery1.close;
                 adoQuery1.sql.Clear;
                 adoQuery1.sql.add('delete from rab');
                 adoQuery1sql.add('where rab_id1= :id;');
                 adoQuery1.Parameters[0].Value :=iDel ;
                 adoQuery1.ExecSQL;
     //удаление из основной таблицы
                       adoQuery1.Active :=false;
                       adoQuery1.sql.Clear;
                       adoQuery1.sql.add('delete from <имя главной таблиці>');
                       adoQuery1.sql.add('where <поле>= :id;');
                       adoQuery1.Parameters[0].Value:=iDel ;
                       adoQuery1.ExecSQL;


             //подтверждаем транзакцию
             ADOConnection1.CommitTrans;
   
  except
              //при ошибке отменяем транзакцию
              ADOConnection1.RollbackTrans;
              ShowMessage('Невозможно выполнить удаление. Повторите.');
     end;
     //обновляем данные
    ZakazForm.ZKADOTable.Active:=false;
    ZakazForm.ZKADOTable.Active:=true;//или Refresh
end;

[Alexsandr]

что писать в SQL и Parametrs ???

[mihali4]

Сообщение от Alexsandr

что писать в SQL и Parametrs ???

Мы вам уже 2 раза ответили на этот вопрос.
У вас со зрением плохо? Или вы только с третьего раза понимать начинаете?
Читайте внимательнее...
А если неясности так и останутся, скачайте с нашего сайта книгу для начинающих. Найдете много интересного для себя.

[Pitbull]

Я тренером работал мне частенько приходилось встречаться с непониманием...
я так понял,Вам не понятна сама технология запросов..постараюсь объяснить...
Вы можите добавить в самом Delphi (в окне object inspector) вібрать AdoQuery, и в своствах AdoQuery.sql добавить свой запрос...А можно єто делать в самом коде, вот как я делал

 adoQuery1.close; // закрываем компонент, на открытом нельзя работать   
                 adoQuery1.sql.Clear; //очищаем поле SQL   
                 //добавляем нужній скрипт в запрос
                 adoQuery1.sql.add('delete from rab');   
                 adoQuery1sql.add('where rab_id1= :id;');  //Здесь :id - єто и есть параметр, тоесть SQL  считает, что если стоит : ,то далее следует параметр, которій мі потом передадим
                 adoQuery1.Parameters[0].Value :=iDel ;  //а вот тут мі и передаем параметр, которій первім встречается первім в запросе, если б у нас  біл  еще какой-то параметр, то у него б біл индекс 1... Можно параметр передавать  по имени.... Єто как вам удобнее  
                 adoQuery1.ExecSQL; //віполняем написанное в запросе....

Если Вам не понятно само действие с параметрами, то откажитесь от него и используйте просто :
SQL.Text:='delete from rab where <поле связи>='+
QuotedStr(ZakazForm.ZKADOTable.Fiel dByName('<поле связи>').AsString); // где ві сразу передаете в запрос значение поля таблиці, которое нужно удалить(ваш ключ)... QuotedStr() - єто функция ковычек......

[Alexsandr]

Спасибо всем большое за науку,всё получилось!!!