Скачать: CL | DM;

Type mismatch in expression   Найти похожие ветки 

← →
DelphiNew ©   (2003-10-25 14:37) [0]

Помогите пожалуйста при добавлении записей в таблицу вылетает эта ошибка Type mismatch in expression не могу разобраться в чём дело, типы полей совпадают, проверял несколько раз. вот код процедуры
procedure TFrmInsPac.BitBtn1Click(Sender: TObject);
begin
FrmInsPac.QinsPac.ParamByName("NumBerid").AsInteger:=nam+1;
FrmInsPac.QinsPac.ParamByName("FAMILY").AsString:=FrmInsPac.EdtFam.Text;
FrmInsPac.QinsPac.ParamByName("Name").AsString:=FrmInsPac.EdtName.Text;
FrmInsPac.QinsPac.ParamByName("Otchestvo").AsString:=FrmInsPac.EdtOtch.Text;
FrmInsPac.QinsPac.ParamByName("DATEBIRTH").AsDate:=StrToDate(FrmInsPac.EdtRogd.Text);
FrmInsPac.QinsPac.ParamByName("Social").AsString:=FrmInsPac.DBCSocPol.Text;
FrmInsPac.QinsPac.ParamByName("NomerUch").AsString:=FrmInsPac.DBCUch.Text;
FrmInsPac.QinsPac.ParamByName("Pol").AsString:=FrmInsPac.ComboBox1.Text;
FrmInsPac.QinsPac.ParamByName("Vozrast").AsInteger:=StrToInt(FrmInsPac.EdtVozr.Text);
FrmInsPac.QinsPac.ParamByName("Kat_Uch").AsString:=FrmInsPac.DBCKatUch.Text;
FrmInsPac.QinsPac.ParamByName("Indeks").AsInteger:=StrToInt(FrmInsPac.EdtIndeks.Text);
FrmInsPac.QinsPac.ParamByName("Respublika").AsString:=FrmInsPac.EdtResp.Text;
FrmInsPac.QinsPac.ParamByName("NaselPunkt").AsString:=FrmInsPac.EdtNaselPun.Text;
FrmInsPac.QinsPac.ParamByName("Ulica").AsString:=FrmInsPac.EdtUl.Text;
FrmInsPac.QinsPac.ParamByName("Dom_kvar").AsString:=FrmInsPac.EdtDom.Text;
FrmInsPac.QinsPac.ParamByName("telefon").AsString:=FrmInsPac.EdtTel.Text;
FrmInsPac.QinsPac.ParamByName("DocVid").AsString:=FrmInsPac.DBCDoc.Text;
FrmInsPac.QinsPac.ParamByName("DocSeriya").AsString:=FrmInsPac.EdtDocSer.Text;
FrmInsPac.QinsPac.ParamByName("DocNomer").AsString:=FrmInsPac.EdtDocNom.Text;
FrmInsPac.QinsPac.ParamByName("DocOrg").AsString:=FrmInsPac.EdtDocOrg.Text;
FrmInsPac.QinsPac.ParamByName("DocData").AsDate:=StrToDate(FrmInsPac.EdtDocData.Text);
FrmInsPac.QinsPac.ParamByName("Rabota").AsString:=FrmInsPac.EdtRab.Text;
FrmInsPac.QinsPac.ExecSQL;
FrmPac.Qpac.Close;
FrmPac.Qpac.Open;
FrminsPac.QSprav.Close;
close;
end;

procedure TFrmInsPac.FormShow(Sender: TObject);
begin
nam:=FrmInsPac.QMaxPacMAXOFNUMBERID.AsInteger;
FrminsPac.QSprav.Open;
end;

---

← →
DelphiNew ©   (2003-10-25 14:49) [1]

Люди извеняюсь уже нашёл свою ошибку

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c