Дублирование записей при Update

[Error_kpi]

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

id:=Button11.Tag;
dogovor:=ed_ed_Dogovor.Text;
Card:=ed_ed_Card.Text;
fio:=ed_ed_Fio.Text;
adrr:=ed_ed_Adress.Text;
tel:=ed_ed_Tel.Text;
regdate:=ed_ed_RegData.Date;
hisdatefrom:=ed_ed_HisPayfrom.Date;
hisdateto:=ed_ed_HisPayto.Date;
ourdateto:=ed_ed_OurPayto.Date;
sql:=format('UPDATE clients SET dogovor=''%s'',card=''%s'',fio=''%s'',pakid=''%d'',regdata=''%s'',adr=''%s'',fon=''%s'',firmid=''%d'',hispaydatafrom=''%s'',hispaydatato=''%s'',ourpaydatato=''%s'' WHERE id=''%d'';',
[dogovor,card,fio,pakid,datetostr(regdate),adrr,tel,firmid,datetostr(hisdatefrom),datetostr(hisdateto),datetostr(ourdateto),id]);
if fmMain.db_SQL(sql,false) then
 begin
   ShowMessage('Редактирование клиента');
   sql:=format('INSERT INTO history (clid,date,value) VALUE(''%d'',''%s'',''%s'');',[id,datetostr(now),'Редактирование клиента']);
   if (fmMain.db_SQL(sql,false))<>true then ShowError('Невозможно обновить историю','Ошибка запроса к базе');
   ini.WriteInteger('db','clientid',id);
 end
else
 ShowError('Невозможно редактировать клиента','Ошибка запроса к базе');
end;

[Stilet]

Ну а кто знает что делает fmMain.db_SQL?
И кстати, с чего ты взял что этот код выполняется не дважды?
Как и где ты его вызываешь?

[Error_kpi]

Вызываю по нажатию на кнопке, это раз

function TfmMain.db_SQL(sql:String;resp:boolean):boolean;
begin
  result:=false;
  if not zc1.Connected then
   fmMain.db_reconnect;
  if not zc1.Connected then
   begin
    ShowError('Запит не виконано','Немає підключення до бази данних');
    exit;
   end;
  zq1.SQL.Clear;
  zq1.SQL.Text:='';
  zq1.SQL.Text:=sql;
  try
    if resp then
      begin
       zq1.Close;
       zq1.Open;
       result:=true;
      end
    else
      begin
        zq1.Close;
        zq1.ExecSQL;
        zq1.Close;
        result:=true;
      end;
   except
   on E:Exception do
       ShowError('Помилка виконання запиту',E.Message);
   end;
end;

Ну а если и два раза выполнить то чо? Дублироваться запись не должна всеравно это-же UPDATE, а не INSERT...

[Serge_Bliznykov]

При выполнении запроса Update записи в БД дублируются

погодите..
т.е. вы хотите сказать, что после
Update clients set ... where id = ВашID
в таблице clients появляются ДВЕ записи с одним ID ?!!

но это же невозможно!
Что за СУБД, через что подключаетесь?
В дублировании удостоверялись 100% ?! (могут неверные запросы (неверно связанные из нескольких таблиц) показывать мнимое дублирование, которого, разумеется, в таблице нет!

[Error_kpi]

В дублировании удостоверялись 100% ?!

да вызваполнив запрос SELECT * FROM clients WHERE id=МойID.

в таблице clients появляются ДВЕ записи с одним ID ?!!

ДА, а то и 4 записи

Что за СУБД, через что подключаетесь?

MySQL 5.1, ZeoS lib

но это же невозможно!

сам понимаю но.... дефакто глюк есть.

Глюк проявился только на этапе эксплуатации. На тестовой базе все досихпор работает как часы, а вот в рабочей базе нет. Причем глюк странный появляется рандомно. Но при добавлении одной и тойже записи (абсолютно тойже, кроме ид) и ее редактировании появляется обязательно.

Может связанно с самими данными, хотя редактировалась дата....

[Error_kpi]

Вот структура базы на всякий случай
clients
+----------------+------------------+------+-----+---------+-------+
| Field | Type | Null | Key | Default | Extra |
+----------------+------------------+------+-----+---------+-------+
| id | int(10) unsigned | YES | | NULL | |
| dogovor | varchar(20) | YES | | NULL | |
| card | varchar(20) | YES | | NULL | |
| fio | varchar(50) | YES | | NULL | |
| pakid | int(10) unsigned | YES | | NULL | |
| regdata | date | YES | | NULL | |
| adr | varchar(50) | YES | | NULL | |
| fon | varchar(50) | YES | | NULL | |
| firmid | int(10) unsigned | YES | | NULL | |
| hispaydatafrom | date | YES | | NULL | |
| hispaydatato | date | YES | | NULL | |
| ourpaydatato | date | YES | | NULL | |
| ourpaydatafrom | date | YES | | NULL | |
| coment | varchar(255) | YES | | NULL | |
+----------------+------------------+------+-----+---------+-------+

pakets

+-------+------------------+------+-----+---------+-------+
| Field | Type | Null | Key | Default | Extra |
+-------+------------------+------+-----+---------+-------+
| id | int(10) unsigned | YES | | NULL | |
| name | varchar(60) | YES | | NULL | |
| price | float | YES | | NULL | |
+-------+------------------+------+-----+---------+-------+

firm

+-------+------------------+------+-----+---------+-------+
| Field | Type | Null | Key | Default | Extra |
+-------+------------------+------+-----+---------+-------+
| id | int(10) unsigned | YES | | NULL | |
| name | varchar(20) | YES | | NULL | |
| adrr | varchar(40) | YES | | NULL | |
| phone | varchar(20) | YES | | NULL | |
+-------+------------------+------+-----+---------+-------+

history
+-------+--------------+------+-----+---------+-------+
| Field | Type | Null | Key | Default | Extra |
+-------+--------------+------+-----+---------+-------+
| clid | int(11) | YES | | NULL | |
| date | date | YES | | NULL | |
| value | varchar(200) | YES | | NULL | |
+-------+--------------+------+-----+---------+-------+

[Error_kpi]

procedure TfmMain.Button11Click(Sender: TObject);
var
 firmid,pakid,id:cardinal;
 dogovor,card,fio,adrr,tel,sql:String;
 regdate,ourdatefrom,ourdateto,hisdatefrom,hisdateto:TDate;
 function datetostr(const AD:TDate):String;
  var
   y,d,m:word;
  begin
   decodedate(AD,y,m,d);
   result:=inttostr(y)+'-'+inttostr(m)+'-'+inttostr(d);
  end;
begin
if (ed_ed_Dogovor.Text='') or (ed_ed_Card.Text='') or (ed_ed_fio.Text='') or (cb_ed_Paket.Text='') then
 begin
  showmessage('Введены не полные данные');
  exit;
 end;

if fmMain.db_SQL(format('SELECT firm.id as firmid FROM firm WHERE firm.name=''%s'';',[cb_ed_firm.Text]),true) then
 begin
 firmid:=ZQ1.FieldByName('firmid').AsInteger;
 end
 else
  begin
    ShowError('Невозможно узнать id фирмы','Ошибка запроса к базе');
    exit;
  end;
if fmMain.db_SQL(format('SELECT pakets.id as pakid FROM pakets WHERE pakets.name=''%s'';',[cb_ed_Paket.Text]),true) then
 begin
 pakid:=ZQ1.FieldByName('pakid').AsInteger;
 end
 else
  begin
    ShowError('Невозможно узнать id пакета','Ошибка запроса к базе');
    exit;
  end;
id:=Button11.Tag;
dogovor:=ed_ed_Dogovor.Text;
Card:=ed_ed_Card.Text;
fio:=ed_ed_Fio.Text;
adrr:=ed_ed_Adress.Text;
tel:=ed_ed_Tel.Text;
regdate:=ed_ed_RegData.Date;
hisdatefrom:=ed_ed_HisPayfrom.Date;
hisdateto:=ed_ed_HisPayto.Date;
ourdateto:=ed_ed_OurPayto.Date;
sql:=format('UPDATE clients SET dogovor=''%s'',card=''%s'',fio=''%s'',pakid=''%d'',regdata=''%s'',adr=''%s'',fon=''%s'',firmid=''%d'',hispaydatafrom=''%s'',hispaydatato=''%s'',ourpaydatato=''%s'' WHERE id=''%d'';',
[dogovor,card,fio,pakid,datetostr(regdate),adrr,tel,firmid,datetostr(hisdatefrom),datetostr(hisdateto),datetostr(ourdateto),id]);
if fmMain.db_SQL(sql,false) then
 begin
   ShowMessage('Редактирование клиента');
   sql:=format('INSERT INTO history (clid,date,value) VALUE(''%d'',''%s'',''%s'');',[id,datetostr(now),'Редактирование клиента']);
   if (fmMain.db_SQL(sql,false))<>true then ShowError('Невозможно обновить историю','Ошибка запроса к базе');
   ini.WriteInteger('db','clientid',id);
 end
else
 ShowError('Невозможно редактировать клиента','Ошибка запроса к базе');
end;

Полный текст функции нажатия на кнопки.

[Serge_Bliznykov]

абсолютно не могу ничего сказать. Ибо баг где-то глубоко.. я бы грешил на компоненты доступа..

сразу замечания.
1) проверьте на наличие триггеров! Они очень сильно могут подпортить Вам жизнь.

2) Если добавить запись. Закрыть приложение (и по возможности остановить сервер). Потом запустить.
Обязательно убедиться, что запись с нужным ID одна одинёшенька и потом мучить её Update - сначала ручками через выполнение запросов. А потом мучить Update через программу - удасться повторить дублирование?!

3) Почему у Вас ключевые поля NULL ?! Это как?!
Только Уникальные и NOT NULL
Это же основа любой реляционной БД

[soleil@mmc]

да будет вам - компоненты доступа...
ТС нахватался по верхам кода и слепил нечто, что теперь доставляет кучу хлопот

структуру БД нужно разрабатывать независимо от кода проги и проверять работоспособность созданной структуры БД нужно прямыми вставками/апдейтами/удалениями в базу, а дальше навешивать для полноценной работы процедуры, открывающие некий функционал для работы с бд из прог

ну читать, читать, читать правильные книжки - начать с "нормальных форм"

[Error_kpi]

Из Command Line БД работает как часы.
В тестовом варианте базы тоже.

3) Почему у Вас ключевые поля NULL ?! Это как?!
Только Уникальные и NOT NULL
Это же основа любой реляционной БД

Естественно, потому они контролируются программно (во время создания базы не знал как выставляются атрибуты полей в MySQL, впервые с этой СУБД работаю).

2) Если добавить запись. Закрыть приложение (и по возможности остановить сервер). Потом запустить.
Обязательно убедиться, что запись с нужным ID одна одинёшенька и потом мучить её Update - сначала ручками через выполнение запросов. А потом мучить Update через программу - удасться повторить дублирование?!

Нет дублирование работает ТОЛЬКО из программы и ТОЛЬКО на рабочей базе. Программы и версия СУБД (а также настройки) идентичны.

ТС нахватался по верхам кода и слепил нечто, что теперь доставляет кучу хлопот

?....


Кто-то что по делу может посоветовать?