Изменение и удаление выбранного элемента в базе данных sql

@Google_wk · Регистрация: 25.01.2015

Author24 — интернет-сервис помощи студентам

Помогите кто может!! Мне нужно изменить либо удалить выбранную запись, но что то допетрить как не могу, тоесть в DBGrid выбираем строку с данными и нужно эти данные либо редактировать, либо удалить.. Свою програмку могу выложить, только она наврятли у вас запустится так как у меня применены скины.. хотя бы что то похожее покажите, а то гугл не помогает

@Алекcей · 12.09.2016, 23:04

Я предпочитаю редактировать данные в отдельной форме, т.е. на форме с DBGrid есть кнопки "Новая запись", "Редактировать" и т.д. Нажимаем на кнопку и открывается форма для добавления/редактирования записи. Чтобы сохранить изменения использую Query (Query1.ExecSQL).

@Google_wk · 12.09.2016, 23:42 **[ТС]**

Сообщение от Алекcей

Я предпочитаю редактировать данные в отдельной форме, т.е. на форме с DBGrid есть кнопки "Новая запись", "Редактировать" и т.д. Нажимаем на кнопку и открывается форма для добавления/редактирования записи. Чтобы сохранить изменения использую Query (Query1.ExecSQL).

У меня при нажатии кнопки изменить/удалить открывается новая форма со всеми параметрами, вопрос был как реализовать ? что то может похожее есть что бы я понял

@Пытливый · 13.09.2016, 00:59

Неясно из вашего поста какие данные вы в грид запихиваете. Если это простая таблица, то неясно в чем проблема, команды edit,append,post помогают без проблем внести данные в таблицу. Если же у вас сложный запрос из нескольких таблиц, то маловато информации.

@andevel · 13.09.2016, 07:34

Допустим у Вас на форме(frmMain) есть 2 TQuery : qData и qEdit, DataSourse и DBgrid.
Для удаления записи можно сделать так:

Delphi

qEdit.Close;
qEdit.SQL.Clear;
qEdit.SQL.ADD (DELETE FROM `TABLE` WHERE item_id="'+IntToStr(qData.FieldByName(item_id).AsInteger)+'");
qEdit.ExecSQL.
qData.Close;
qData.Open;

Для редактирования создаем еще одну форму(frmEdit) с различными компонентами (Label, Edit и тд).
При нажатии на кнопку "Редактировать" пишем код?

Delphi

1
2
3

frmEdit.Label1.Caption := IntToStr(qData.FieldByName(item_id).AsInteger);
frmEdit.Edit2.text := IntToStr(qData.FieldByName(item_name).AsString);
frmEdit.ShowModal;

Теперь при нажатии на кнопку сохранить формы frmEdit пишем примерно такой код:

Delphi

frmMain.qEdit.Close;
frmMain.qEdit.SQL.Clear;
frmMain.qEdit.SQL.ADD (UPDATE `TABLE` SET item_name=" '+trim(Edit1.text)+' " WHERE item_id="'+IntToStr(label1.caption)+'");
frmMain.qEdit.ExecSQL.
frmMain.qData.Close;
frmMain.qData.Open;

@qwertehok · 13.09.2016, 09:03

andevel,
1 Выясните сначала какая СУБД у ТС
2 Почитайте про QuotedSTR()

@andevel · 13.09.2016, 12:38

Не по теме:

qwertehok, А как Вы тут хотите использовать QuotedSTR() ?

@Алекcей · 13.09.2016, 12:42

примерно так

Delphi

with frmMain.qEdit do begin
  Close;
  SQL.Text:='UPDATE `TABLE` SET item_name='+QuotedStr(Trim(Edit1.text))+' WHERE item_id='+QuotedStr(label1.caption);
  ExecSQL;
  frmMain.qData.Close;
  frmMain.qData.Open;
end;

@andevel · 13.09.2016, 13:22

Видимо я что-то не допонимаю. А зачем так делать?

@Алекcей · 13.09.2016, 13:30

Функция добавляет символ одиночной кавычки ( ' ) в начало и конец строки, а так же дублирует каждый одиночный символ кавычки внутри строки.

@andevel · 13.09.2016, 14:15

Я прочитал описание)Вот и спрашиваю, зачем так делать?

@qwertehok · 13.09.2016, 16:42

что бы не писать кучу кавычек

Сообщение от andevel

SET item_name=" '+trim(Edit1.text)+' " WHERE

вот тут у тебя их уже 6
а если строка длинная и вхождений много, то можно запутаться

@andevel · 13.09.2016, 17:15

qwertehok, так у меня же там двойные кавычки . . а одиночных только 2.

@qwertehok · 13.09.2016, 17:32

я вам что пишу что бы вы обязательно писали так как я скажу?
делайте что хотите

@Алекcей 548 / 479 / 190 Регистрация: 11.12.2013 Сообщений: 2,494
	13.09.2016, 13:30	10
	Функция добавляет символ одиночной кавычки ( ' ) в начало и конец строки, а так же дублирует каждый одиночный символ кавычки внутри строки. 0

@andevel 4 / 4 / 0 Регистрация: 19.07.2015 Сообщений: 96
	13.09.2016, 14:15	11
	Я прочитал описание)Вот и спрашиваю, зачем так делать? 0

@Google_wk 1 / 1 / 0 Регистрация: 25.01.2015 Сообщений: 39
		1
	Изменение и удаление выбранного элемента в базе данных sql 12.09.2016, 22:09. Показов 982. Ответов 13 Метки нет (Все метки) Помогите кто может!! Мне нужно изменить либо удалить выбранную запись, но что то допетрить как не могу, тоесть в DBGrid выбираем строку с данными и нужно эти данные либо редактировать, либо удалить.. Свою програмку могу выложить, только она наврятли у вас запустится так как у меня применены скины.. хотя бы что то похожее покажите, а то гугл не помогает 0

@Алекcей 548 / 479 / 190 Регистрация: 11.12.2013 Сообщений: 2,494
	12.09.2016, 23:04	2
	Я предпочитаю редактировать данные в отдельной форме, т.е. на форме с DBGrid есть кнопки "Новая запись", "Редактировать" и т.д. Нажимаем на кнопку и открывается форма для добавления/редактирования записи. Чтобы сохранить изменения использую Query (Query1.ExecSQL). 0

@Google_wk 1 / 1 / 0 Регистрация: 25.01.2015 Сообщений: 39
	12.09.2016, 23:42 [ТС]	3
	Сообщение от Алекcей Я предпочитаю редактировать данные в отдельной форме, т.е. на форме с DBGrid есть кнопки "Новая запись", "Редактировать" и т.д. Нажимаем на кнопку и открывается форма для добавления/редактирования записи. Чтобы сохранить изменения использую Query (Query1.ExecSQL). У меня при нажатии кнопки изменить/удалить открывается новая форма со всеми параметрами, вопрос был как реализовать ? что то может похожее есть что бы я понял 0

@Пытливый 3584 / 2194 / 692 Регистрация: 29.05.2013 Сообщений: 9,365
	13.09.2016, 00:59	4
	Неясно из вашего поста какие данные вы в грид запихиваете. Если это простая таблица, то неясно в чем проблема, команды edit,append,post помогают без проблем внести данные в таблицу. Если же у вас сложный запрос из нескольких таблиц, то маловато информации. 0

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	13.09.2016, 09:03	6
	andevel, 1 Выясните сначала какая СУБД у ТС 2 Почитайте про QuotedSTR() 0

@andevel
	13.09.2016, 12:38 #7
	Не по теме: qwertehok, А как Вы тут хотите использовать QuotedSTR() ? 0

@andevel 4 / 4 / 0 Регистрация: 19.07.2015 Сообщений: 96
	13.09.2016, 13:22	9
	Видимо я что-то не допонимаю. А зачем так делать? 0

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	13.09.2016, 16:42	12
	что бы не писать кучу кавычек Сообщение от andevel SET item_name=" '+trim(Edit1.text)+' " WHERE вот тут у тебя их уже 6 а если строка длинная и вхождений много, то можно запутаться 0

@andevel 4 / 4 / 0 Регистрация: 19.07.2015 Сообщений: 96
	13.09.2016, 17:15	13
	qwertehok, так у меня же там двойные кавычки . . а одиночных только 2. 0

@qwertehok 5393 / 4321 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	13.09.2016, 17:32	14
	я вам что пишу что бы вы обязательно писали так как я скажу? делайте что хотите 0

Опции темы