удаление из базы через sql

[ArcaN0id]

у меня есть 3 edit'a и БД accessa, подключенная через ADO. Как удалить из базы строку содержащую в столбцах edit1, edit2, edit3, а если какой то из editов не совпадает, то вывести ошибку?

[Serge_Bliznykov]

удалять надо через SQL (DDL) команду: "DELETE FROM Таблица where условия отбора"

проверять наличие через SQL команду "SELECT COUNT(*) FROM Таблица where условия отбора"


какой вопрос, такой и ответ...

[ArcaN0id]

не, это я знаю, я не врубаюсь как sql запрос должен выглядеть..
попробую еще раз объяснить

есть база, в ней таблица users. В users столбцы: imya,familiya,gruppa.
заполнена: Вася Иванов 17892, Ваня Петров 23141 и т.д

есть edit1, edit2,edit3. В них я ввожу Вася Иванов 17892.

И как написать запрос, чтобы удалился именно Вася Иванов 17892?

[Аватар]

DELETE FROM users WHERE imya='Вася' AND familiya='Иванов' AND gruppa=17892

[Serge_Bliznykov]

И как написать запрос, чтобы удалился именно Вася Иванов 17892?

например, так:

ADOQquery1.Close;
ADOQquery1.SQL.clear;
ADOQquery1.SQL.Add('Select count(*) as CntRec from users where ');
ADOQquery1.SQL.Add(' imya = '+QuotedStr(edit1.Text)+' and ');
ADOQquery1.SQL.Add(' familiya = '+QuotedStr(edit2.Text)+' and ');
ADOQquery1.SQL.Add(' gruppa = '+QuotedStr(edit3.Text));
ADOQquery1.Open;
if ADOQquery1.FieldByName('CntRec').AsInteger = 0 then
   ShowMessage('Вааще нет таких записей!');
if ADOQquery1.FieldByName('CntRec').AsInteger > 1 then
   ShowMessage('Таких записей в таблице аж '+IntToStr(ADOQquery1.FieldByName('CntRec').AsInteger)+' штук!');
if ADOQquery1.FieldByName('CntRec').AsInteger = 1 then 
  {записей в таблице строго одна, удаляем} begin
  ADOQquery1.Close;
  ADOQquery1.SQL.clear;
  ADOQquery1.SQL.Add('Delete from users where ');
  ADOQquery1.SQL.Add(' imya = '+QuotedStr(edit1.Text)+' and ');
  ADOQquery1.SQL.Add(' familiya = '+QuotedStr(edit2.Text)+' and ');
  ADOQquery1.SQL.Add(' gruppa = '+QuotedStr(edit3.Text));
  ADOQquery1.ExecSQL;
end;

дополнительные вопросы/проверки и прочая расставите по вкусу самостоятельно!


важно! если поле gruppa числовое - тогда надо убрать QuotedStr при добавлении edit3.Text
примерно так: ADOQquery1.SQL.Add(' gruppa = '+edit3.Text);

[ArcaN0id]

Спасибо большое! Все заработало!))))

[ArcaN0id]

Еще вопрос. А как выбрать нужную запись (1 ячейку) и вывести в edit?

[Serge_Bliznykov]

одна тема - один вопрос.

ЗАКРЫТО.