Здравствуйте.
Как составить запрос на удаление (редактирование) текущей записи?
И еще вопрос.
Пытался использовать компонент DBNavigator для работы с TQuery, но,
похоже, он годится только для навигации по таблице. Можно ли использовать его для редактирования данных? Что для этого нужно сделать (обработчики событий переписать или что - то иное)?
Спасибо.

Цитата(Virus @ 22.8.2003, 23:54)

Пытался использовать компонент DBNavigator для работы с TQuery, но, похоже, он годится только для навигации по таблице. Можно ли использовать его для редактирования данных?

А то! Конечно годится!
Даже по кнопкам видно:
nbInsert
nbDelete
nbEdit
nbPost
nbCancel
nbRefresh

Надо расписывать, что есть что?

По поводу удаления/редактирования...

Удаление строки из таблицы:

Код

DELETE FROM Имя_Таблицы [WHERE Условие_отбора]

Редактирование:

Код

UPDATE Имя_таблицы SET Имя_поля = Выражение,  .........  Имя_поля = выражение [WHERE Условие_отбора]

Пожалуйста.

Это все я еще в хелпах видел.
Мне же нужно знать, как составить условие отбора для текущей (!) записи.
Ну например.
У меня есть BDGrid, Query, UpdateSQL, DataSet и DBNavigator.
Связываю все эти компоненты как полагается.
Теперь надо написать запросы для свойств InsertSQL, DeleteSQL, UpdateSQL.
Вот как их написать, чтобы все работало?
Пусть у меня простая таблица MyTable.dbf с одним текстовым полем MyField.
Мне очень хочется, чтобы у меня была простая программа для просмотра и редактирования данной таблицы.
В DBGrid встал на определенную запись, нажал на кнопку удалить, и эта запись удалилась, нажал на кнопку редактировать, и эту запись можно редактировать.

Помоги написать хотя бы такую прогу, а дальше я сам постараюсь разобраться.

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

Хорошо, объясняю суть поставленной передо мной задачи.
Мне требуется создать приложение для работы с таблицей.
Данная прога должна поддерживать различные варианты сортировки, поиска. Кроме того, должна быть предусмотрена возможность не только навигации по таблице, но и редактирования.
Вот, собствено, и вся задача.

Сортировка обычно делается с помощью SQL, поэтому надо использовать компонент TQuery, а не TTable. Эту часть задачи я сделал.
Остается навигация и редактирование.
Я решил использовать компонент TDBNavigator. И вот тут начинаются сложности.
Если запустить программу, то у навигатора оказываются доступными только кнопки для перемещения по таблице, а редактировать не получается. Я так понял, что таблица у меня находится в состоянии ReadOnly.
Так вот, как сделать так, чтобы с помощью навигатора можно было бы редактировать таблицу (т.е. как сделать доступными кнопки для редактирования)?

вообще отказаться от навигатора для таких целей. ИМХО плохой стиль. Два варианта:

1. Все манипулирование данными осуществлять с помощью хранимых процедур. - ИМХО это предпочтительней и надежней. Если только:
а) это клиент-серверная БД;
б) если ХП предусмотрены в этой БД;

2. Все манипуляции (вставка, удаление, редактирование) с данными осуществлять с помощью того-же SQL. И соответственно логику программы строишь в соответствии с этим.

Цитата

Сортировка обычно делается с помощью SQL, поэтому надо использовать компонент TQuery, а не TTable.

Сортировка обычно делается с помощью индексов и для этого лучше использовать компонент TTable, с его помощью также легко и удобно фильтровать записи.

Есть ситуации когда лучше использовать TQuery, а есть и такие ситуации когда лучше все таки TTable. Этот вопрос освящен в статье Вита про работу с БД.

Но TQuery в большинстве случаев предпочтительней, так как в случае его использования у Вас в руках вся мощность, гибкость и изящество SQL.

Вот несколько примеров добавления, удаления и редактирования
DM - модуль данных
qPhone - TQuery
phonet - физическая таблица

Код

procedure TfmMain.tbAddClick(Sender: TObject); begin with DM, qPhone do begin  Close;  RequestLive:=True;  SQL.Clear;  SQL.Add('SELECT * FROM phonet');  Open;  Append;  fmEdit:=TfmEdit.Create(self);  if fmEdit.Showmodal=mrOK then begin    Post;  end else  begin    Cancel;  end;//else  fmEdit.Free;  Close;  RequestLive:=False;  SQL.Clear;  SQL.Add('SELECT * FROM phonet ORDER BY famil');  Open; end;//with end; procedure TfmMain.tbEditClick(Sender: TObject); Var  vRecEd: Integer; begin with DM, qPhone do begin  vRecEd:=qPhone['ID'];  qPhone.Close;  qPhone.SQL.Clear;  qPhone.SQL.Add('SELECT * FROM phonet');  RequestLive:=True;  qPhone.Open;  qPhone.Locate('ID',vRecEd,[]);  Edit;  fmEdit:=TfmEdit.Create(self);  if fmEdit.Showmodal=mrOK then begin    fmWait.Show;    application.ProcessMessages;    Post;  end else  begin    Cancel;  end;//else  fmEdit.Free;  qPhone.Close;  RequestLive:=False;  qPhone.SQL.Clear;  qPhone.SQL.Add('SELECT * FROM phonet ORDER BY famil');  qPhone.Open;  Locate('ID',vRecEd,[]); end;//with if fmWait.Showing then fmWait.Hide; end; procedure TfmMain.tbDelClick(Sender: TObject); begin with dm, qPhone do begin  if (Application.MessageBox('Данные восстановить будет не возможно! Вы уверены?', 'Удаление',        MB_OKCANCEL)=IDOK) and not (qPhone.IsEmpty) then  begin   vRecDel:=qPhone['ID'];   Close;   SQL.Clear;   SQL.Add('SELECT * FROM phonet');   RequestLive:=True;   Open;   Locate('ID',vRecDel,[]);   Delete;   Close;   RequestLive:=False;   SQL.Clear;   SQL.Add('SELECT * FROM phonet ORDER BY famil');   Open;  end//if end;//with end;

Есть очень простое решение:
Свойство RequestLife=true для TQuery, а дальше работаем с TQuery, как с TTable. Т.е. стандартные комманды:
Table.Edit;
Table.Insert;
Table.Post;

Удинственное условие: Запрос должен быть простым, а не составным (никаких JOIN).

Цитата(Piton @ 27.8.2003, 17:02)

Удинственное условие: Запрос должен быть простым, а не составным (никаких JOIN).

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


Потому что таблицы можно соединять как внешним соединением (Join), так и внутренним.

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

1. Это вопрос или утверждение?
2. Зачем дублировать топики?
3. Какая СУБД?
4. Что именно не получается?

надо удалить из таблицы БИЛЕТ все записи, где состояние равно заказано. БИЛЕТ связан с таблицей ПОКАЗ по 3 полям (дата, название и № сеанса). создала sql, где выбираются все заказанные билеты. но мне надо чтобы удалились на определенную дату,название и ....   знаю, что просто очень. но додуматься уже сил нет. Delphi7.  вот мой код 

Это сообщение отредактировал(а) Anastazi25252525 - 13.6.2009, 21:44

Вот так всё работает ))))))))) спасибо ))))))