Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

Проблемы с записью в БД Paradox.......   Найти похожие ветки 

← →
Darkin   (2003-05-06 01:53) [0]

.... вот кусок кода

procedure insert_zap_prepare ;
begin
with FrmVvdan do begin
with DMChasD do begin

QRYDogZap.Close;
QRYDogZap.SQl.Clear;
strSQL:="INSERT INTO";
QRYDogZap.SQL.Add(strSQL);
strSQL:=" chasDog (n_dog,n_lic,fam,imja,otch,nas_punkt,ulica,dom," ;
if MEdKv.Text<>"" then strSQL:=strSQL+"kvar,";
QRYDogZap.SQL.Add(strSQL);
strSQL:=" naz_dok, ser_dok, vid_dok, jilci, voda, sbros, doppol,";
QRYDogZap.SQL.Add(strSQL);
strSQL:=" lgoti, jilorg, kod_usl ";
QRYDogZap.SQL.Add(strSQL);
// могут отсутствовать
if MEdDatZak.Text<>"" then strSQL:=", datzakl" else strSQL:="";
if MEdTelef.Text<>"" then strSQL:=strSQL+", telefon";
if MEdNDokum.Text<>"" then strSQL:=strSQL+", n_dok";
if MEdDatVidDok.Text<>"" then strSQL:=strSQL+", vid_dat";
strSQL:=strSql+")";
QRYDogZap.SQL.Add(strSQL);
QRYDogZap.SQL.Add("VALUES (");
strSQL:=":in_ndog,:in_nlic,:in_fam,:in_imja,:in_otch,"+
":in_punkt,:in_ulica,:in_dom";
if MEdKv.Text<>"" then strSQL:=strSQL+",:in_kvar";
QRYDogZap.SQL.Add(strSQL);
strSQL:=",:in_nazdok,:in_serdok,:in_viddok,:in_jilci,"+
":in_voda,:in_sbros,:in_doppol";
QRYDogZap.SQL.Add(strSQL);
strSQL:=",:in_lgoti,:in_jilorg,:in_kodusl";
if MEdDatZak.Text<>"" then strSQL:=strSQL+", :in_datzakl";
if MEdTelef.Text<>"" then strSQL:=strSQL+", :in_telefon";
if MEdNDokum.Text<>"" then strSQL:=strSQL+", :in_ndok";
if MEdDatVidDok.Text<>"" then strSQL:=strSQL+", :in_viddat";
strSQL:=strSql+")";
QRYDogZap.SQL.Add(strSQL);
QRYDogZap.Prepare;
QRYDogZap.ParamByName("in_ndog").AsInteger:=StrToInt(Trim(MEdNDog.Text));
QRYDogZap.ParamByName("in_nlic").AsInteger:=StrToInt(Trim(MEdNLic.Text));
QRYDogZap.ParamByName("in_fam").AsString:=EdFam.Text;
QRYDogZap.ParamByName("in_imja").AsString:=EdImja.Text;
QRYDogZap.ParamByName("in_otch").AsString:=EdOtch.Text;
QRYDogZap.ParamByName("in_punkt").AsInteger:=kodPunkt;
QRYDogZap.ParamByName("in_ulica").AsInteger:=kodUlic;
QRYDogZap.ParamByName("in_dom").AsInteger:=kodDom;
if Trim(MEdKv.Text)<>"" then
QRYDogZap.ParamByName("in_kvar").AsInteger:=StrToInt(Trim(MEdKv.Text))
{ else QRYDogZap.ParamByName("in_kvar").AsInteger:=0 };
QRYDogZap.ParamByName("in_nazdok").AsInteger:=kodImDok;
QRYDogZap.ParamByName("in_serdok").AsString:=EdSerDok.Text;
QRYDogZap.ParamByName("in_viddok").AsString:=EdVidDok.Text;
QRYDogZap.ParamByName("in_jilci").AsInteger:=StrToInt(Trim(MEdKolJil.Text));
if ChBoxVoda.Checked then
QRYDogZap.ParamByName("in_voda").AsString:="Е"
else QRYDogZap.ParamByName("in_voda").AsString:="Н";
if ChBoxSbros.Checked then
QRYDogZap.ParamByName("in_sbros").AsString:="Е"
else QRYDogZap.ParamByName("in_sbros").AsString:="Н";
if ChBoxDop.Checked then
QRYDogZap.ParamByName("in_doppol").AsString:="*"
else QRYDogZap.ParamByName("in_doppol").AsString:=" ";
if ChBoxLgot.Checked then
QRYDogZap.ParamByName("in_lgoti").AsString:="Е"
else QRYDogZap.ParamByName("in_lgoti").AsString:="Н";
QRYDogZap.ParamByName("in_JilOrg").AsInteger:=kodMUMR;
QRYDogZap.ParamByName("in_kodusl").AsInteger:=kodUsl;
if MEdTelef.Text<>"" then
QRYDogZap.ParamByName("in_telefon").AsInteger:=
StrToInt(Trim(MEdTelef.Text));
if Trim(MEdDatZak.Text)<>"" then
QRYDogZap.ParamByName("in_datzakl").AsDateTime:=
StrToDate(MEdDatZak.Text) { else
QRYDogZap.ParamByName("in_datzakl").AsDateTime:=StrToDate("01.01.1959")};
if MEdDatVidDok.Text<>"" then
QRYDogZap.ParamByName("in_viddat").AsString:=EdVidDok.Text;
if MEdNDokum.Text<>"" then
QRYDogZap.ParamByName("in_ndok").AsString:=MEdNDokum.Text;

try
QRYDogZap.Open;
QRYDogZap.ExecSQL;
finally
QRYDogZap.UnPrepare;
end;
end;
end;
end;

выдаёт сообщение об ошибке при попытке ExecSQL (Key Violation пишет) я сам не программер, просто разобраться на работе сказали.... вот сижу и разбираюсь(((( Что тут не так? подскажите?

---

← →
Zacho ©   (2003-05-06 02:01) [1]

Key violation - нарушение первичного (или уникального) ключа. Происходит потому, что вставляется запись со значениями полей первичного ключа (или уникального индекса), совпадающими с уже имеющимися в таблице записями.

---

Страницы: 1 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c