| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Type mismatch in expression [D6, D7, Paradox]

DelphiNew ©   (2003-10-25 14:37:00) 

Помогите пожалуйста при добавлении записей в таблицу вылетает эта ошибка 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:00) [1]

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

---

Наверх