|
MySQL.RU - Webboard
 Вернуться
 Ошибка SQL Error Duplicate entry for key 1 (DrSoft) 25/04/2004 - 12:42:27
 Re: потому как (Alec) 26/04/2004 - 13:08:34
Re: потому как (DrSoft) 26/04/2004 - 18:59:10
Re: мало данных (++) (Alec) 27/04/2004 - 09:37:00
Re: мало данных (++) (DrSoft) 27/04/2004 - 13:39:29
Re: убей меня так не бывает (+++) (Alec) 27/04/2004 - 14:18:52
Re: Блин....но глюк остаеться (DrSoft) 28/04/2004 - 13:25:40
Re: Блин....но глюк остаеться (Marat_L) 28/04/2004 - 14:55:25
Re: Блин....но глюк остаеться (DrSoft) 28/04/2004 - 15:21:07
Re: Покажи код (Marat_L) 29/04/2004 - 09:07:47
Re: Покажи код (DrSoft) 29/04/2004 - 12:11:12
Re: Стало понятно (Marat_L) 29/04/2004 - 14:27:16
> Original message text:
> From: DrSoft - 25/04/2004 - 12:42:27
> Subject:Ошибка SQL Error Duplicate entry for key 1
> -----------------
> Может кто встречался с такой проблемой, и с чем она может быть связана подскажите плизз...
>
From: DrSoft - 29/04/2004 - 12:11:12
Subject:Покажи код
-----------------
Элементарно:
with ZQueryMy do
begin
Close; SQL.Clear;
SQL.ADD('select count(iddog) as recd from freedok where iddog=:p_1');
ParamByName('p_1').AsString:= EditNdog.Text;
Open;
if FieldByName('recd').Value > 0 then
begin
Close;
sii:= 'Договор '+EditNdog.Text+' уже есть в базе';
MessageDlg(sii,mtInformation,[mbOK],0);
exit;
end;
Close;
with QueryEditDog do
begin
Close; SQL.Clear;
SQL.ADD('Insert into FREEDOK pri,kol,c_post,s_tov,proc,s_kre,');
SQL.ADD('d_vyvzn,s_vzn,s_vyp,ostat,pr_uvel,shabl,idpok,idpost,');
SQL.ADD('iddog,tovar,d_vyp,skid_po,tim,vidvzn,prim,vid_dog) ');
SQL.ADD('values (:p_1,:p_2,:p_3,:p_4,:p_5,:p_6,');
SQL.ADD(':p_7,:p_8,:p_9,:p_10,:p_11,:p_13,:p_14,:p_15,:p_16,');
SQL.ADD(':p_17,:p_18,:p_19,:p_20,:p_21,:p_22,:p_23)');
ParamByName('p_1').Value:= 0; {Ðàñïîðÿæåíèå áóõãàëòåðåè}
ParamByName('p_2').AsFloat:= StrToFloat(UtFloat(EditKOL.Text));
ParamByName('p_3').AsFloat:= StrToFloat(UtFloat(EditC_TOV.Text));
ParamByName('p_4').AsFloat:= StrToFloat(UtFloat(EditSt_TOV.Text));
ParamByName('p_5').AsFloat:= StrToFloat(UtFloat(EditPROC.Text));
ParamByName('p_6').AsFloat:= StrToFloat(UtFloat(EditS_KRE.Text));
ParamByName('p_7').AsDate:= EditD_VZN.Date;
ParamByName('p_11').AsFloat:= StrToFloat(UtFloat(EditPrStav.Text));
ParamByName('p_8').AsFloat:= StrToFloat(UtFloat(EditS_VZN.Text));
ParamByName('p_9').AsFloat:= StrToFloat(UtFloat(EditS_VYP.Text));
ParamByName('p_10').AsFloat:= StrToFloat(UtFloat(EditOST.Text));
ParamByName('p_13').AsFloat:= Act_Habl;
ParamByName('p_14').AsFloat:= Kod_Pok;
ParamByName('p_15').AsFloat:= Kod_Post;
ParamByName('p_16').AsString:= EditNdog.Text;
ParamByName('p_17').AsString:= EditSokrTov.Text;
ParamByName('p_18').AsDate:= EditD_dog.Date;
ParamByName('p_19').AsFloat:= StrToFloat(UtFloat(EditSki.Text));
ParamByName('p_20').AsTime:= Time;
ParamByName('p_21').Value := RadioGroup1.ItemIndex-1;
ParamByName('p_22').AsBlob := MemoPrim.Text;
ParamByName('p_23').AsSmallint := vvi;
ExecSQL;
close;
[Это сообщение - спам!]
Последние сообщения из форума
Уважаемые посетители форума MySQL.RU!
Убедительная просьба, прежде чем задавать свой вопрос в этом форуме, обратите внимание на разделы:
- ответы на наиболее часто задаваемые вопросы - FAQ
- раздел документация
- раздел поиск по сообщениям форума и документации
Также, старайтесь наиболее подробно указывать свою ситуацию (версию операционной системы, версию MySQL,
версию программного обеспечения, по которому возникает вопрос, текст возникающих ошибок, и др.)
Помните, чем конкретнее Вы опишете ситуацию, тем больше шансов получить реальную помощь.
14374
|
|
