Удаление и редактирование записей DbGrid Firebird

@RxStrike · Регистрация: 09.04.2015

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

Всем привет! Не смог в интернете найти решение своей проблемы, прошу прощения, если где-то на форуме уже обсуждался мой вопрос

Пытаюсь написать клиентское приложение к базе FireBird 2.5 на Lazarus. Не могу разобраться как удалить выбранную в DbGrid запись. Данный код:

Delphi

procedure Tworkspace.BitBtn3Click(Sender: TObject);
var t:TModalResult;
  st:string;
begin
  t:=MessageDlg('Вы действительно хотите удалить информацию о сотруднике?',TMsgDlgType.mtConfirmation,[mbYes,mbNo],0);
  if t=6 then // 6 - номер кнопки Yes по умолчанию
     begin
  st:=SQLQuery1.FieldByName('id').AsString;
  SQLQuery1.Active:=False; //отключение SQLQuery
  SQLQuery1.SQL.Clear; //Стираем любой предыдущий запрос
  SQLQuery1.SQL.Add('DELETE FROM Sotrudnik WHERE id="'+st+'"');//запрос
  SQLQuery1.ExecSQL;//Выполняем запрос(DELETE) и открываем набор данных
  SQLTransaction1.Commit;
     end
  else
end;

Не работает и приложение падает с ошибкой. Скриншот ниже:

Удаление и редактирование записей DbGrid Firebird

Прошу помочь

@FIL · 28.04.2015, 22:13

Delphi

1	SQLQuery1.Delete;

@RxStrike · 28.04.2015, 23:11 **[ТС]**

Спасибо, но можно поподробнее, пожалуйста, куда вставить данный код?

@FIL · 29.04.2015, 00:25

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

куда вставить данный код?

Туда, где надо удалить выбранную в Гриде запись.

@RxStrike · 03.05.2015, 19:27 **[ТС]**

Еще одна просьба помочь

Найдите, пожалуйста, ошибку в моём коде на удаление выбранной в DbGrid записи:

Delphi

procedure Teditsotr.BitBtn1Click(Sender: TObject);
var id, familia, imya, otchestvo, otdel, dolsh, adress:string;
begin
Familia:=edit1.text;
Imya:=edit2.text;
Otchestvo:=edit3.text;
Otdel:=edit4.text;
Dolsh:=edit5.text;
Adress:=edit6.text;
id:=workspace.SQLQuery1.FieldByName('id').AsString;
workspace.SQLQuery1.Close;
workspace.SQLQuery1.SQL.Clear;
 
workspace.SQLQuery1.SQL.Add('UPDATE  sotrudnik SET (Familia , Imya , Otchestvo , Otdel , Dolsh , Adress) VALUES('+#39+edit1.text+#39+', '+#39+edit2.text+#39+', '+#39+edit3.text+#39+', '+#39+edit4.text+#39+', '+#39+edit5.text+#39+', '+#39+edit6.text+#39+'); WHERE id='+id);
 
ShowMessage(workspace.SQLQuery1.SQL.Text);
workspace.SQLQuery1.ExecSQL;
workspace.SQLQuery1.SQL.Text:='SELECT * from  sotrudnik;';
workspace.SQLQuery1.Open;
end;

Я подозреваю сам запрос SQLQuery1.SQL.Add

@FIL · 03.05.2015, 21:53

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

удаление выбранной в DbGrid записи

А где удаление-то ?
UPDATE изменяет запись, а не удаляет.

@RxStrike · 06.05.2015, 06:22 **[ТС]**

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

А где удаление-то ?
UPDATE изменяет запись, а не удаляет.

Извиняюсь, код на обновление записи. Опечятка.

@FIL · 06.05.2015, 08:59

Точка с запятой в SQL-запросе обозначаеть конец этого сАмого запроса, поэтому WHERE уже не учитывается.
Если под ошибкой подразумеваетя что-то другое, то напиши что.

@RxStrike · 06.05.2015, 10:53 **[ТС]**

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

Точка с запятой в SQL-запросе обозначаеть конец этого сАмого запроса, поэтому WHERE уже не учитывается.
Если под ошибкой подразумеваетя что-то другое, то напиши что.

Ошибку прикрепил.
Вот код кнопки редактирования.

Delphi

procedure Teditsotr.BitBtn1Click(Sender: TObject);
var id, familia, imya, otchestvo, otdel, dolsh, adress:string;
begin
Familia:=edit1.text;
Imya:=edit2.text;
Otchestvo:=edit3.text;
Otdel:=edit4.text;
Dolsh:=edit5.text;
Adress:=edit6.text;
 
id:=workspace.SQLQuery1.FieldByName('id').AsString;
workspace.SQLQuery1.Close;
workspace.SQLQuery1.SQL.Clear;
workspace.SQLQuery1.SQL.Add('UPDATE  sotrudnik SET (Familia , Imya , Otchestvo , Otdel , Dolsh , Adress) VALUES('+#39+edit1.text+#39+', '+#39+edit2.text+#39+', '+#39+edit3.text+#39+', '+#39+edit4.text+#39+', '+#39+edit5.text+#39+', '+#39+edit6.text+#39+') WHERE id='+id);
ShowMessage(workspace.SQLQuery1.SQL.Text);
workspace.SQLQuery1.ExecSQL;
workspace.SQLQuery1.SQL.Text:='SELECT * from  sotrudnik;';
workspace.SQLQuery1.Open;
end;

@RxStrike · 06.05.2015, 11:06 **[ТС]**

Код ошибки, идущий после:

Delphi

1	ShowMessage(workspace.SQLQuery1.SQL.Text);

@RxStrike 0 / 0 / 0 Регистрация: 09.04.2015 Сообщений: 6
	28.04.2015, 23:11 [ТС]	3
	Спасибо, но можно поподробнее, пожалуйста, куда вставить данный код? 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	29.04.2015, 00:25	4
	Сообщение от RxStrike куда вставить данный код? Туда, где надо удалить выбранную в Гриде запись. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	03.05.2015, 21:53	6
	Сообщение от RxStrike удаление выбранной в DbGrid записи А где удаление-то ? UPDATE изменяет запись, а не удаляет. 0

@RxStrike 0 / 0 / 0 Регистрация: 09.04.2015 Сообщений: 6
	06.05.2015, 06:22 [ТС]	7
	Сообщение от FIL А где удаление-то ? UPDATE изменяет запись, а не удаляет. Извиняюсь, код на обновление записи. Опечятка. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	06.05.2015, 08:59	8
	Точка с запятой в SQL-запросе обозначаеть конец этого сАмого запроса, поэтому WHERE уже не учитывается. Если под ошибкой подразумеваетя что-то другое, то напиши что. 0

	06.05.2015, 11:06

Удаление и редактирование записей DbGrid Firebird

Решение