Здравствуйте.
Как составить запрос на удаление (редактирование) текущей записи?
И еще вопрос.
Пытался использовать компонент 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

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

не работает...... удаляет или все билеты (проданные и заказанные), либо по частям... Может я циклы не правильно сделала?

А что сия метаморфоза значит? (с)

простите, конечно, я только 3 года изучаю Delphi 7 в колледже. и не умею точно формулировать вопрос.....

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

Там что-то begin'ов очень много, аж глаза разбегаются.  И ещё: что значит эта строчка:

?

Добавлено через 3 минуты и 16 секунд

Эмм....  Всего три года...   Ну да, вот ещё лет 30 пройдёт, и будешь тогда уже профессиональным дельфи-кодером.  

эта строка считает количество записей в квери3. а этот квери3 выполняет выборку всех заказанных билетов из таблицы БИЛЕТ, связанной по трем полям с таблицей ПОКАЗ.

Эта строка возвращает (только в никуда) текущую строку Query3, т.е. её номер.

так у меня везде  стоит... но дело - то не в ней.......Так?

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

Осталось выяснить, что именно.    Точнее, что именно она делает - я написал в предыдущем посте, а выяснить осталось, для чего сия строка нужна в твоём коде. 

Быстро редактируешь посты.  Да, дело не в ней. Попробуй для начала структурировать код и убрать with... : мне кажется, они тут только мешают.

Это сообщение отредактировал(а) Данкинг - 13.6.2009, 23:05

даже не знаю... волшебник ты, или только учишься.... но без этого  with  всё работает!!!!!!!!!
СПАСИБО ОГРОМНОЕ!!!!


а счас нет... вообще не удаляет ничего.... (((((((((


может просто сделать запрос на удаление по четырем параметрам?....

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

В каком смысле? Грохнуть нужное в каждой таблице? Можно попробовать. Но от with всё равно избавляйся.

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

SQL? Ты хочешь сказать, Query? Может удалять, т.е. он так и должен удалять, ты же запрос на удаление пишешь. Только если есть ExecSQL, то Active уже не нужно.  
 А вообще мы какую СУБД-то всё же разбираем?!

СУБД - Delphi 7.   Запрос написала, не удаляет..... при нажатии на кнопку ругается на текст запроса. сначала такую же процедуру написала на самом квери, потом сделала его неактивным и пересылала процедуру по нажатию кнопки. потом сделала цикл на удаление, а в нем выбор всех этих полей. во всех случаях нету результата. либо на запрос ругается, либо ничего не делает.  сейчас вот этот код(прописан только на кнопке). при выполнении он говорит, что Table(1) does not exist. 





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

я думаю, что за три года можно было узнать различия между RecNo и RecordCount 

Добавлено через 2 минуты и 8 секунд

    это что за страшная последовательность?
Предлагаю прочесть книженцию хотя бы по начальным знаниям баз данных, а всё, что изучила за три года - ЗАБУДЬ, ЗАБУДЬ КАК СТРАШНЫЙ СОН   

Не знаю такой СУБД.  Видимо, "йа блондинко". (с) 


При нажатии на эту кнопку вообще нечто страшное должно происходить, типа локальный армагедец.  


Что конкретно удаляет этот код? Первую (текущую) строчку table1 ? Тогда зачем там "table1.Edit;"? Удаление произойдёт и без этого.


Зачем в коде какой-то select, если речь идёт об удалении?


После .delete уже не нужно ставить .post.


Значит, так оно и есть: транслятор не обманешь.  



  Предлагаю такой код:

    


Эх, молодость, зря загубленная...  

  

забыть вот вряд ли получится... да и изучать поздно. защита завтра уже. а тот "страшный код" выбирает нужные для удаления записи. необходимо соблюдение 4х условий. три из коротых должны совпадать с другой таблицей. сначала какой должен цикл идти? С запросом из Квери, или с таблицей1?

забыла написать, чем дело кончилось....
всё оказалось намного проще ))))

Может все таки это "йа блондинко", но до меня так и не доходит...почему нельзя все это сделать одним запросом к базе через Query...зачем таблицы гонять туда-сюда? А если в таблице записей под миллион...это же повеситься можно  

Я вообще забыл, чем оно начиналось.  


Значит, ты не блондинко.  Я вот тоже не понимаю.  

Anastazi25252525,  есть такой SQL-запрос (в общем виде):

  

1. Удалять нужно с конца таблицы.
2. А лучше удалять SQL запросом

тут вообще такая сложная штука....  
на форме в запущенном виде все данные отображаются в уже отсортированном(по трем параметрам) виде.
и при нажатии на кнопку с этой процедурой удаляются только те записи, которые = Заказано.  еще раз выполнять сортировку данных из 3х таблиц  по трем параметрам не нужно.... как-то так...

Добавлено через 4 минуты и 11 секунд
а запросом смысла нет удалять. т.к. пользователь сам решает, удалить ему эти заказанные билеты или нет...
вообще-то планировалось сделать это удаление с привязкой ко времени... то есть если до n-го времени осталось 15 минут, то программа автоматически удаляет эти самые места.... но решили не заморачиваться и сделать простой кнопкой, а на форме выставить часы, чтоб пользователь сам , глядя на время, удалял.... )))

идеальный вариант запросом


Добавлено через 1 минуту и 15 секунд

в любом случае удалять нужно с конца таблицы, так меньше проблем

Это сообщение отредактировал(а) Akella - 30.10.2009, 14:08

то есть сделать запрос и на него кнопку?....