INSERT и UPDATE в MySQL

@Евгений_88 · Регистрация: 26.09.2012

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

Здравствуйте! Возникла такая проблема. При создании и редактировании записи использую один квери. При редактировании записи, происходит передача SQL кода:

Delphi

qrInupdel.SQL.Text:=
'UPDATE KONTRAGENT SET familiya =:familiya,'+
'imya =:imya, otchestvo =:otchestvo, seriya =:seriya, nomer =:nomer,'+
'registratsiya =:registratsiya, adres =:adres, dolzhnost =:dolzhnost,'+
'tip_kontragent =:tip_kontragent, data_rozhdeniya =:data_rozhdeniya,'+
'data_vydachi =:data_vydachi, kem_vydan =:kem_vydan, gorod =:gorod,'+
'rejting =:rejting, dopinfo =:dopinfo WHERE id =:id';
 
SotrudnikForm.Edit1.Text:= srSotrudnik.DataSet.FieldByName('familiya').AsString;
SotrudnikForm.Edit2.Text:= srSotrudnik.DataSet.FieldByName('imya').AsString;
SotrudnikForm.Edit3.Text:= srSotrudnik.DataSet.FieldByName('otchestvo').AsString;
SotrudnikForm.Edit7.Text:= srSotrudnik.DataSet.FieldByName('seriya').AsString;
SotrudnikForm.Edit8.Text:= srSotrudnik.DataSet.FieldByName('nomer').AsString;
SotrudnikForm.Memo1.Text:= srSotrudnik.DataSet.FieldByName('registratsiya').AsString;
SotrudnikForm.Memo3.Text:= srSotrudnik.DataSet.FieldByName('adres').AsString;
SotrudnikForm.Edit5.Text:= srSotrudnik.DataSet.FieldByName('dolzhnost').AsString;
SotrudnikForm.Edit10.Text:= srSotrudnik.DataSet.FieldByName('data_vydachi').AsString;
SotrudnikForm.Edit9.Text:= srSotrudnik.DataSet.FieldByName('data_rozhdeniya').AsString;
SotrudnikForm.Memo2.Text:= srSotrudnik.DataSet.FieldByName('kem_vydan').AsString;
SotrudnikForm.Edit4.Text:= srSotrudnik.DataSet.FieldByName('gorod').AsString;
SotrudnikForm.Edit6.Text:= srSotrudnik.DataSet.FieldByName('rejting').AsString;
SotrudnikForm.Memo4.Text:= srSotrudnik.DataSet.FieldByName('dopinfo').AsString;
SotrudnikForm.ShowModal;

На форме, которая открывается, имеется кнопка сохранить, на которой происходит передача параметров:

Delphi

Sotrudnik.qrInupdel.Parameters.ParamByName('familiya').Value:= Edit1.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('imya').Value:= Edit2.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('otchestvo').Value:= Edit3.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('seriya').Value:= Edit7.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('nomer').Value:= Edit8.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('registratsiya').Value:= Memo1.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('adres').Value:= Memo3.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('dolzhnost').Value:= Edit5.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('tip_kontragent').Value:= '1';
Sotrudnik.qrInupdel.Parameters.ParamByName('data_rozhdeniya').Value:= Edit9.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('data_vydachi').Value:= Edit10.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('kem_vydan').Value:= Memo2.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('gorod').Value:= Edit4.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('rejting').Value:= Edit6.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('dopinfo').Value:= Memo4.Text;
Sotrudnik.qrInupdel.Parameters.ParamByName('id').Value:=
Sotrudnik.srSotrudnik.DataSet.FieldByName('id').AsInteger;
 
Sotrudnik.qrInupdel.ExecSQL;
Sotrudnik.qrSelect.Refresh;
Close;

Проблема вот в чем... При сохранении я передаю параметр, чтобы было ясно, какую строку необходимо редактировать. Вопрос: "Как быть с добавлением записи? ". При создании новой записи передается вот такой SQL код:

Delphi

qrInupdel.SQL.Text:=
'INSERT INTO kontragent (familiya, imya, otchestvo, seriya, nomer, registratsiya, adres,'+
'dolzhnost, tip_kontragent, data_rozhdeniya, data_vydachi, kem_vydan, gorod, rejting,'+
'dopinfo) VALUES (:familiya, :imya, :otchestvo, :seriya, :nomer, :registratsiya, :adres,'+
':dolzhnost, :tip_kontragent, :data_rozhdeniya, :data_vydachi, :kem_vydan, :gorod, :rejting,'+
':dopinfo)';
SotrudnikForm.ShowModal;

Здесь, как видно параметра id не существует. и это правильно, ведь он создается автоматически на уровне БД. Как быть в такой ситуации?

@Bit_Man · 28.09.2012, 18:39

Я так понял тебе надо проверить есть он или нет и если есть предать его. и Где тут проблема?!
либо

Delphi

1	Try Except

@Евгений_88 · 28.09.2012, 19:35 **[ТС]**

Я переделал всё под FireBird. Но принцип один и тот же. Ведь в FB ID создается с помощью триггера и генератора.

"Я так понял тебе надо проверить есть он или нет и если есть предать его" -

Он по-любому будет. И я об этом знаю. Я ведь создаю новую запись. Я просто думаю, может изменить вот эту часть запроса:

Delphi

qrInupdel.SQL.Text:=
'UPDATE KONTRAGENT SET 
...
WHERE id =:id';

Можно ли без WHERE id =:id, объяснить, какую именно мне строку необходимо апдейтить? Может есть какой-нибудь другой способ? Тогда я наконец избавлюсь от этого параметра.

@Bit_Man · 29.09.2012, 07:49

с firebird все проще, если у тебя версия 2 и выше. в нем есть такая функция Update or Insert и у тебя вопрос отподет сам собой.

Сообщение от Евгений_88

Здесь, как видно параметра id не существует. и это правильно, ведь он создается автоматически на уровне БД.

ты путаешь параметр IBDataSet со значением поля. Я тебе говорил именно про параметр IBDataSet

@Евгений_88 · 30.09.2012, 20:33 **[ТС]**

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

с firebird все проще, если у тебя версия 2 и выше. в нем есть такая функция Update or Insert и у тебя вопрос отподет сам собой.
ты путаешь параметр IBDataSet со значением поля. Я тебе говорил именно про параметр IBDataSet

Ну это уже использование дополнительного компонента. А у меня был лишь квери и датасет. Я думал все сделать через квери. Раньше я всё гораздо проще делал. Подключал компонент IBUpdateSQL и производил добавление с помощью DataSet.Insert. И быстрее и проще и кода в 10 раз меньше. Но один умный человек сказал, что это ни есть правильно, что каждую операцию нужно проводить через отдельную транзакцию. Вот теперь и создал сам себе проблем с параметрами. Может просто он был не прав?

@Bit_Man · 01.10.2012, 15:22

у тебя firebird точно? если да то прочитай про Update or Insert

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

Сообщение от Евгений_88

через отдельную транзакцию

Это все зависит от потребностей

@Bit_Man 479 / 392 / 112 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	29.09.2012, 07:49	4
	с firebird все проще, если у тебя версия 2 и выше. в нем есть такая функция Update or Insert и у тебя вопрос отподет сам собой. Сообщение от Евгений_88 Здесь, как видно параметра id не существует. и это правильно, ведь он создается автоматически на уровне БД. ты путаешь параметр IBDataSet со значением поля. Я тебе говорил именно про параметр IBDataSet 1

@Евгений_88 2 / 2 / 0 Регистрация: 26.09.2012 Сообщений: 27
	30.09.2012, 20:33 [ТС]	5
	Сообщение от Bit_Man с firebird все проще, если у тебя версия 2 и выше. в нем есть такая функция Update or Insert и у тебя вопрос отподет сам собой. ты путаешь параметр IBDataSet со значением поля. Я тебе говорил именно про параметр IBDataSet Ну это уже использование дополнительного компонента. А у меня был лишь квери и датасет. Я думал все сделать через квери. Раньше я всё гораздо проще делал. Подключал компонент IBUpdateSQL и производил добавление с помощью DataSet.Insert. И быстрее и проще и кода в 10 раз меньше. Но один умный человек сказал, что это ни есть правильно, что каждую операцию нужно проводить через отдельную транзакцию. Вот теперь и создал сам себе проблем с параметрами. Может просто он был не прав? 0

@Bit_Man 479 / 392 / 112 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	01.10.2012, 15:22	6
	у тебя firebird точно? если да то прочитай про Update or Insert Добавлено через 1 минуту Сообщение от Евгений_88 через отдельную транзакцию Это все зависит от потребностей 0

Опции темы