Удаление текущей записи Ado

[palochka]

Существует таблицы Подразделение,Должности,Сотрудники в access...
Таблицу сотрудники я выводу в dbgrid с помощью запроса(нужно по заданию)

DbGrid1.DataSource:=Module.DataSource3;
Module.ADoQuery1.Close;
Module.ADoQuery1.SQL.Clear;
Module.ADoQuery1.SQL.Add('Select Подразделение.название as Podr,Должности.название as Dolg,Сотрудники.Таб as tab,Сотрудники.Фамилия as fam,Сотрудники.пол as pol,Сотрудники.ДатаР as Rog,Сотрудники.адрес as adr,Сотрудники.СемПол as sem,+');
Module.AdoQuery1.SQL.Add('Сотрудники.Стаж as stag,Сотрудники.ДатаТр as Trud,Сотрудники.Разр as razr');
Module.ADOQuery1.SQL.Add('from Должности,Подразделение,Сотрудники');
Module.ADOQuery1.SQL.Add('Where Подразделение.шифр=Сотрудники.Подразделение AND Должности.шифр=Сотрудники.Должность');
Module.ADoQuery1.Open;
Module.AdoQuery1.FieldByName('Podr').DisplayLabel:='Подразделение';
Module.AdoQuery1.FieldByName('Dolg').DisplayLabel:='Должность';
Module.AdoQuery1.FieldByName('tab').DisplayLabel:='Табельный номер';
Module.AdoQuery1.FieldByName('fam').DisplayLabel:='ФИО';
Module.AdoQuery1.FieldByName('pol').DisplayLabel:='Пол';
Module.AdoQuery1.FieldByName('Rog').DisplayLabel:='Дата рождения';
Module.AdoQuery1.FieldByName('adr').DisplayLabel:='Адрес';
Module.AdoQuery1.FieldByName('sem').DisplayLabel:='Семейное положение';
Module.AdoQuery1.FieldByName('stag').DisplayLabel:='Стаж(мес.)';
Module.AdoQuery1.FieldByName('Trud').DisplayLabel:='Дата трудоустройства';
Module.AdoQuery1.FieldByName('razr').DisplayLabel:='Разряд';

Нужно осуществить удаление текущей записи
У меня почему то удаляет в любом случае первую запись..Помогите найдите ошибку!!!

if messagedlg('Удалить текущую запись?',mtConfirmation,[mbOk,mbCancel],0)=1 then
 begin
 Module.ADOQuery2.Close;
 Module.ADOQuery2.SQL.Clear;
 Module.ADOQuery2.SQL.add('DELETE FROM Сотрудники');
 Module.ADOQuery2.SQL.add('WHERE Таб='+Module.ADOTable3.fieldbyname('Таб').AsString);
 Module.ADOQuery2.ExecSQL;
 Module.ADOTable3.Close;
 Module.ADOTable3.Open;
  end;
DbGrid1.DataSource:=Module.DataSource3;
Module.ADoQuery1.Close;
Module.ADoQuery1.SQL.Clear;
Module.ADoQuery1.SQL.Add('Select Подразделение.название as Podr,Должности.название as Dolg,Сотрудники.Таб as tab,Сотрудники.Фамилия as fam,Сотрудники.пол as pol,Сотрудники.ДатаР as Rog,Сотрудники.адрес as adr,Сотрудники.СемПол as sem,+');
Module.AdoQuery1.SQL.Add('Сотрудники.Стаж as stag,Сотрудники.ДатаТр as Trud,Сотрудники.Разр as razr');
Module.ADOQuery1.SQL.Add('from Должности,Подразделение,Сотрудники');
Module.ADOQuery1.SQL.Add('Where Подразделение.шифр=Сотрудники.Подразделение AND Должности.шифр=Сотрудники.Должность');
Module.ADoQuery1.Open;
Module.AdoQuery1.FieldByName('Podr').DisplayLabel:='Подразделение';
Module.AdoQuery1.FieldByName('Dolg').DisplayLabel:='Должность';
Module.AdoQuery1.FieldByName('tab').DisplayLabel:='Табельный номер';
Module.AdoQuery1.FieldByName('fam').DisplayLabel:='ФИО';
Module.AdoQuery1.FieldByName('pol').DisplayLabel:='Пол';
Module.AdoQuery1.FieldByName('Rog').DisplayLabel:='Дата рождения';
Module.AdoQuery1.FieldByName('adr').DisplayLabel:='Адрес';
Module.AdoQuery1.FieldByName('sem').DisplayLabel:='Семейное положение';
Module.AdoQuery1.FieldByName('stag').DisplayLabel:='Стаж(мес.)';
Module.AdoQuery1.FieldByName('Trud').DisplayLabel:='Дата трудоустройства';
Module.AdoQuery1.FieldByName('razr').DisplayLabel:='Разряд';

[artemavd]

А таблицы у Вас связаны между собой?

[Stilet]

Module.ADOQuery2.ExecSQL;
Module.ADOTable3.Close;
Module.ADOTable3.Open;

Module.ADOTable3.Close;
Module.ADOTable3.Open;
Тут лишние.

Если твой запрос неправильный то попробуй использовать метод Module.ADOTable3.Delete;

Да кстати а сам запрос на удаление если в акцессе проверить?

[palochka]

artemavd,да таблицы связаны..

Stilet,когда я заполняла dbgrid не запросом,а просто данными с adotable3(т.е у меня было datasource3.dataset:=adotable3)-все удалялось правильно!
Таблица сотрудники у меня содержит Код подразделения,шифр должности,табельный номер,фио и остальные данные о сотруднике...
Но некорректно выводить код подразделения и шифр должности цифрами,нужно названиями..Поэтому пришлось использовать запрос для заполения dbgrid...

[palochka]

Ой ребята я поняла ошибка в этой строчке

Module.ADOQuery2.SQL.add('WHERE Таб='+Module.ADOTable3.fieldbyname('Таб').AsString);

Правильно

Module.ADOQuery2.SQL.add('WHERE Таб='+Module.ADOQuery1.fieldbyname('tab').AsString);

[artemavd]

Ну, молодец, поздравляем

[palochka]

Ну вот сразу же возник новый вопрос...Сотрудник-это как бы справочная таблица,и после запроса на вывод в dbgrid она в себе содержит ключевое поле Таб...Поэтому удаление получается без проблем...

А вот есть у меня таблица Штатное расписание..и Ключевые поля Код подразделения и шифр должности были выведены с помощью запроса просто названиями..Как в этом случае осуществить удаление?

[artemavd]

Наверное если таблицы связаны между собой, то должно произойти каскадное удаление.

[palochka]

if messagedlg('Удалить текущую запись?',mtConfirmation,[mbOk,mbCancel],0)=1 then
 begin
 Module.ADOQuery2.Close;
 Module.ADOQuery2.SQL.Clear;
 Module.ADOQuery2.SQL.add('DELETE FROM Штатное');
???
 Module.ADOQuery2.ExecSQL;
  end;

как вместо ??? мне написать условие where...
если писать это

Module.ADOQuery2.SQL.add('WHERE КодПодр='+Module.AdoQuery1.fieldbyname('Podr').AsString);
 Module.ADOQuery2.SQL.Add('AND ШифрДолж='+Module.AdoQuery1.fieldbyname('Dolg').AsString);

и я например выбираю удалить запись
Бухгалтерия Бухгалтер
Выдается ошибка "Параметр бухгалтерия не имеет значения по умолчанию!"