Как найти запись по известному внешнему ключу?

[Илья Сергеевич]

Сутки добрые! Делаю в delphi базу данных через ado.
У меня есть две таблицы.
Необходимо удалить запись из первой таблицы с известным idATS записи.
И во второй таблице найти запись с тем же idTC и тоже удалить

Проблему для меня составляет найти запись во второй таблице.

{Asking user, you sure that you want delete note?}
If MessageDlg('Вы уверены, что хотите удалить запись',mtConfirmation,[mbYes,mbNo],0)=mrYes Then
   Begin
    DM.ADOQuery_AdresTC.Close;
    DM.ADOQuery_ATS.Close;
    DM.ADOStoredProc_d_ATS.Parameters.ParamByName('@idATS').Value:=DM.ADOQuery_ATSidATS.Value;
    DM.ADOStoredProc_d_AdressTC.Parameters.ParamByName('@idTC').Value:=DM.ADOQuery_ATSidATS.Value;

    Try
     DM.ADOConnection_DM.BeginTrans;
     e:=0;
     DM.ADOStoredProc_d_ATS.ExecProc;
     e:=1;
     DM.ADOStoredProc_d_AdressTC.ExecProc;
    Except
     If e=0 Then MessageDlg('Удаление не прошло!'+#13+'Запись заблокирована, либо уже удалена! Попробуйте позже либо перезапустите приложение!'+#13+'{Служебная информация:е=0}',mtError,[mbOK],0);
     If e=1 Then MessageDlg('Удаление не прошло!'+#13+'Запись заблокирована, либо уже удалена! Попробуйте позже либо перезапустите приложение!'+#13+'{Служебная информация:е=1}',mtError,[mbOK],0);
     DM.ADOConnection_DM.RollbackTrans;
    
    End;
   End;
  DM.ADOQuery_AdresTC.Open;
  DM.ADOQuery_ATS.Open;
 End;

[Sparky]

метод Locate

[Илья Сергеевич]

Подскажи как работает?

[mihali4]

DM.ADOQuery_ATS.Close;
DM.ADOStoredProc_d_ATS.Parameters.P aramByName('@idATS').Value:=DM.ADOQ uery_ATSidATS.Value;

"Шикарная" связка...
И что вы намереваетесь получить в DM.ADOQuery_ATSidATS.Value при закрытом DM.ADOQuery_ATS ???
Не желаете ли запомнить эту величину перед закрытием DM.ADOQuery_ATS в какой-нибудь темповой переменной?

[Илья Сергеевич]

Спасибо я старался...
может подскажите где можно почитать про все компоненты .... желательно в русском варианте!?
А про тупость, порой хрен поймешь как процедура работает, интуитивно тыкаю.
А второй вариант мне нарвится ... был близок к нему.
А вот с Locate проблемы не пойму принцип работы. Первый параметр хранит название поля, а вот что означает что второй параметр хранит исходное значение не понятно, да и третий параметр -фильтр не понять для чего и как работает?

Подскажите для faq найти.... надоело по примеру делать! знаний хочу ... сессия пришла

[mihali4]

Первый параметр передает имя поля, второй - значение, которое нужно найти в этом поле, третий - искать по частичному совпадению, с учетом регистра...
Возвращает True при успехе.

[Илья Сергеевич]

Спасибо!...
А что насчет фака?

[mihali4]

http://programmersclub.ru/files/book1_100comp.rar
У этого автора был цикл книжечек - поищите в инете по ФИО.
Например, по работе с БД
http://letitbit.net/download/0644.06..._bazi.zip.html

[Илья Сергеевич]

Спасибо!ну просто огромное надеюсь там есть то что мне нужно!

Все работает!
Какая тупость надо было query закрывать после ADOStoredProc

DM.ADOStoredProc_d_ATS.Parameters.ParamByName('@idATS').Value:=DM.ADOQuery_ATSidATS.Value;
    DM.ADOStoredProc_d_AdressTC.Parameters.ParamByName('@idTC').Value:=DM.ADOQuery_ATSidATS.Value;

DM.ADOQuery_AdresTC.Close;
DM.ADOQuery_ATS.Close;

Спасибо огромное за отклик.

Тупость рождается от незнания