Редактирование выделой записи - БД в Delphi

Droid · 05.07.2009, 11:46

Я хочу отредактировать запись выделеную, нажимаю на кнопку правую кнопку "редактировать" изменяю данные и нажимаю ОК он мне пишет, что id - не найдено, делаю точку останова он мне там пишет значение 0 ? Что не правильно и как исправить ?

Код:

procedure TFD_PAC.BitBtn3Click(Sender: TObject);
begin
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Text:='UPDATE pacient SET familiya=:e1, imya=:e2,otchestvo=:e3,data_rogdeniya=:d,telefon=:e4,kollichestvo_detey=:e5,semeynoe_pologenie=:e6,adres=:m1,gitel=:e7,obrazovanie=:e8,opekun=:o1,pol=:p1 WHERE id_pacienta=:id';
DM.ADOQ_PAC.Parameters.ParamByName('e1').Value:=Edit1.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e2').Value:=Edit2.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e3').Value:=Edit3.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e4').Value:=Edit4.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e5').Value:=strtoint(Edit5.Text);
DM.ADOQ_PAC.Parameters.ParamByName('e6').Value:=Edit6.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e7').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e8').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('m1').Value:=memo1.Text;
dm.ADOQ_PAC.Parameters.ParamByName('o1').Value:=o;
dm.ADOQ_PAC.Parameters.ParamByName('p1').Value:=p;
DM.ADOQ_PAC.Parameters.ParamByName('d').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
DM.ADOC_PAC.Parameters.ParamByName('id').Value:=DM.ADOQ_PACid_pacienta.Text;
DM.ADOQ_PAC.ExecSQL;

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('SELECT * FROM pacient');
DM.ADOQ_PAC.Open;
FormActivate(Self);
end;

Evgeniy26 · 05.07.2009, 12:03

Опять ... закрыл ADOQ_PAC, потом запрашиваешь данные:

Код:

DM.ADOQ_PAC.Close;
.....
DM.ADOC_PAC.Parameters.ParamByName('id').Value:=DM.ADOQ_PACid_pacienta.Text;

Droid · 05.07.2009, 12:18

Цитата:

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

Опять ... закрыл ADOQ_PAC, потом запрашиваешь данные:

Код:

DM.ADOQ_PAC.Close;
.....
DM.ADOC_PAC.Parameters.ParamByName('id').Value:=DM.ADOQ_PACid_pacienta.Text;

Пишет id не найден (

Код:

procedure TFD_PAC.BitBtn3Click(Sender: TObject);
begin
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Text:='UPDATE pacient SET familiya=:e1, imya=:e2,otchestvo=:e3,data_rogdeniya=:d,telefon=:e4,kollichestvo_detey=:e5,semeynoe_pologenie=:e6,adres=:m1,gitel=:e7,obrazovanie=:e8,opekun=:o1,pol=:p1 WHERE id_pacienta=:id';
DM.ADOQ_PAC.Parameters.ParamByName('e1').Value:=Edit1.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e2').Value:=Edit2.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e3').Value:=Edit3.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e4').Value:=Edit4.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e5').Value:=strtoint(Edit5.Text);
DM.ADOQ_PAC.Parameters.ParamByName('e6').Value:=Edit6.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e7').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e8').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('m1').Value:=memo1.Text;
dm.ADOQ_PAC.Parameters.ParamByName('o1').Value:=o;
dm.ADOQ_PAC.Parameters.ParamByName('p1').Value:=p;
DM.ADOQ_PAC.Parameters.ParamByName('d').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
DM.ADOQ_PAC.ExecSQL;
DM.ADOC_PAC.Parameters.ParamByName('id').Value:=DM.ADOQ_PACid_pacienta.Text;
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('SELECT * FROM pacient');
DM.ADOQ_PAC.Open;
FormActivate(Self);
end;

так делал и куда только не вставлял один фиг

Код:

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOC_PAC.Parameters.ParamByName('id').Value:=DM.ADOQ_PACid_pacienta.Text;
DM.ADOQ_PAC.SQL.Text:='UPDATE pacient SET familiya=:e1, imya=:e2,otchestvo=:e3,data_rogdeniya=:d,telefon=:e4,kollichestvo_detey=:e5,semeynoe_pologenie=:e6,adres=:m1,gitel=:e7,obrazovanie=:e8,opekun=:o1,pol=:p1 WHERE id_pacienta=:id';
DM.ADOQ_PAC.Parameters.ParamByName('e1').Value:=Edit1.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e2').Value:=Edit2.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e3').Value:=Edit3.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e4').Value:=Edit4.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e5').Value:=strtoint(Edit5.Text);
DM.ADOQ_PAC.Parameters.ParamByName('e6').Value:=Edit6.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e7').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e8').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('m1').Value:=memo1.Text;
dm.ADOQ_PAC.Parameters.ParamByName('o1').Value:=o;
dm.ADOQ_PAC.Parameters.ParamByName('p1').Value:=p;
DM.ADOQ_PAC.Parameters.ParamByName('d').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
DM.ADOQ_PAC.ExecSQL;

Evgeniy26 · 05.07.2009, 12:24

Редактируй через StoredProc. Или так попробуй:

Код:

procedure TFD_PAC.BitBtn3Click(Sender: TObject);
var
  id: Integer;
begin
id := DM.ADOQ_PACid_pacienta.Text;
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Text:='UPDATE pacient SET familiya=:e1,' + 'imya=:e2,otchestvo=:e3,data_rogdeniya=:d,telefon=:e4,kollichestvo_detey=:e5, ' +
'semeynoe_pologenie=:e6,adres=:m1,gitel=:e7,obrazovanie=:e8,' +
'opekun=:o1,pol=:p1 WHERE id_pacienta=:id';
DM.ADOQ_PAC.Parameters.ParamByName('e1').Value:=Edit1.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e2').Value:=Edit2.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e3').Value:=Edit3.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e4').Value:=Edit4.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e5').Value:=strtoint(Edit5.Text);
DM.ADOQ_PAC.Parameters.ParamByName('e6').Value:=Edit6.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e7').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e8').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('m1').Value:=memo1.Text;
dm.ADOQ_PAC.Parameters.ParamByName('o1').Value:=o;
dm.ADOQ_PAC.Parameters.ParamByName('p1').Value:=p;
DM.ADOQ_PAC.Parameters.ParamByName('d').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
DM.ADOQ_PAC.Parameters.ParamByName('id').Value:= id;
DM.ADOQ_PAC.ExecSQL;
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('SELECT * FROM pacient');
DM.ADOQ_PAC.Open;
FormActivate(Self);
end;

Сам подумай, почему пишет id не найден:

Код:

DM.ADOQ_PAC.Parameters.ParamByName('d').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
DM.ADOQ_PAC.ExecSQL;
DM.ADOC_PAC.Parameters.ParamByName('id').Value:=DM.ADOQ_PACid_pacienta.Text;

И тут у тебя опечатка видимо:

Код:

DM.ADOQ_PAC.ExecSQL;
DM.ADOC_PAC.Parameters.ParamByName('id').Value:=DM.ADOQ_PACid_pacienta.Text;

Droid · 05.07.2009, 12:35

Теперь все норм но данные не вносит *(

Evgeniy26 · 05.07.2009, 12:44

Возможно, какие-то поля текстовые их надо в кавычки взять.

Droid · 05.07.2009, 12:47

Цитата:

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

Возможно, какие-то поля текстовые их надо в кавычки взять.

не понял что за поля и где их искать ? ? ? ?

Droid · 05.07.2009, 12:54

Цитата:

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

Возможно, какие-то поля текстовые их надо в кавычки взять.

При точке останова значение =0 ППЦ
DM.ADOQ_PAC.Parameters.ParamByName( 'id').Value:=DM.ADOQ_PACid_pacienta .Value;

Evgeniy26 · 05.07.2009, 12:57

Ты закрыл Query потом запрашиваешь id.... Я ведь написал используй StoredProc и не закрывай Query. И я привел пример с переменной id

Droid · 05.07.2009, 13:01

Цитата:

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

Ты закрыл Query потом запрашиваешь id.... Я ведь написал используй StoredProc и не закрывай Query. И я привел пример с переменной id

Вроде все меняет если так ) А как испольовать Stored ? - для чего он нужен ?

Код:

var
id: integer;
begin
id:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Text:='UPDATE pacient SET familiya=:e1, imya=:e2,otchestvo=:e3,data_rogdeniya=:d,telefon=:e4,kollichestvo_detey=:e5,semeynoe_pologenie=:e6,+adres=:m1,gitel=:e7,obrazovanie=:e8,opekun=:o1,pol=:p1 WHERE id_pacienta=:id';
DM.ADOQ_PAC.Parameters.ParamByName('e1').Value:=Edit1.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e2').Value:=Edit2.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e3').Value:=Edit3.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e4').Value:=Edit4.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e5').Value:=strtoint(Edit5.Text);
DM.ADOQ_PAC.Parameters.ParamByName('e6').Value:=Edit6.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e7').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('e8').Value:=Edit7.Text;
DM.ADOQ_PAC.Parameters.ParamByName('m1').Value:=memo1.Text;
dm.ADOQ_PAC.Parameters.ParamByName('o1').Value:=o;
dm.ADOQ_PAC.Parameters.ParamByName('p1').Value:=p;
DM.ADOQ_PAC.Parameters.ParamByName('d').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
DM.ADOQ_PAC.Parameters.ParamByName('id').Value:=id;
DM.ADOQ_PAC.ExecSQL;

05.07.2009, 12:03	#2
Evgeniy26 Форумчанин Регистрация: 29.05.2009 Сообщений: 384	Опять ... закрыл ADOQ_PAC, потом запрашиваешь данные: Код: `DM.ADOQ_PAC.Close; ..... DM.ADOC_PAC.Parameters.ParamByName('id').Value:=DM.ADOQ_PACid_pacienta.Text;` Последний раз редактировалось Evgeniy26; 05.07.2009 в 12:15.

05.07.2009, 12:35	#5
Droid Форумчанин Регистрация: 24.04.2008 Сообщений: 440	Теперь все норм но данные не вносит *( 1 старый программист, лучше новых 2-х

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Редактирование записи через компонент Query	Macklay	БД в Delphi	11	30.06.2009 12:16
Редактирование	Valera24	Помощь студентам	9	11.06.2009 19:41
Редактирование таблицы	Rio309	БД в Delphi	6	16.11.2008 12:28
редактирование Query	photozaz	БД в Delphi	3	10.11.2008 19:10
Редактирование	AntiZero	Помощь студентам	2	12.11.2007 18:02

05.07.2009, 12:44	#6
Evgeniy26 Форумчанин Регистрация: 29.05.2009 Сообщений: 384	Возможно, какие-то поля текстовые их надо в кавычки взять.

05.07.2009, 12:57	#9
Evgeniy26 Форумчанин Регистрация: 29.05.2009 Сообщений: 384	Ты закрыл Query потом запрашиваешь id.... Я ведь написал используй StoredProc и не закрывай Query. И я привел пример с переменной id