Привествую! С днём Победы!
Использую Delphi XE5 и FIBPLus 7.5.
Пытаюсь вставить данные из формы в базу, вот код:
После отработки процедуры выдается ошибка:
![Картинка с другого сайта.]()
Я начинающий, прошу помочь :) Я вычислил, что Делфи материться на первое значение-дату, но не могу понять в чём дело :)
Использую Delphi XE5 и FIBPLus 7.5.
Пытаюсь вставить данные из формы в базу, вот код:
procedure TfmAddNewFizClient.bApplyClick(Sender: TObject); var Sername: string; Name: string; LastName: string; PassportSeria: string; PassportNumber: string; Birthday: string; BirthdayPlace: string; WhoGivePassp: string; PassportDate: string; AdressReg: string; AdressLive: string; Phone: string; Email: string; begin //Инициализация переменных Sername:=trim(edClientSername.Text); Name:=trim(edClientName.Text); LastName:=trim(edClientLastName.Text); PassportSeria:=trim(edPassportSeria.Text); PassportNumber:=trim(edPassportNumber.Text); Birthday:=trim(medClientBirthday.Text); BirthdayPlace:=trim(edBirthdayPlace.Text); WhoGivePassp:=trim(edWhoGivePassport.Text); PassportDate:=trim(medPassportDate.Text); AdressReg:=trim(mRegAdress.Text); AdressLive:=trim(mLiveAdress.Text); Phone:=trim(medPhone.Text); Email:=trim(edEmail.Text); //Вставка и запись данных в БД fmFizClients.fbFizClientsDataSet.InsertSQL.Clear; fmFizClients.fbFizClientsDataSet.InsertSQL.Add('INSERT INTO T_FIZ_CLIENTS ('); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('ID_CLIENT_VID,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('SERNAME,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('NAME,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('LAST_NAME,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('PASSPORT_SERIA,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('PASSPORT_NUMBER,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('BIRTHDAY,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('BIRTHDAY_PLACE,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('WHO_GIVE_PASSP,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('PASSPORT_DATE,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('ADRESS_REG,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('ADRESS_LIVE,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('PHONE,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('EMAIL'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(')VALUES('); fmFizClients.fbFizClientsDataSet.InsertSQL.Add('1,'); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(Sername + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(Name + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(LastName + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(PassportSeria + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(PassportNumber + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(Birthday + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(BirthdayPlace + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(WhoGivePassp + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(PassportDate + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(AdressReg + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(AdressLive + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(Phone + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(Email + ','); fmFizClients.fbFizClientsDataSet.InsertSQL.Add(');'); fmFizClients.fbFizClientsDataSet.Insert; fmFizClients.fbFizClientsDataSet.Post; ShowMessage('УСПЕШНО!!!'); end;
После отработки процедуры выдается ошибка:

Я начинающий, прошу помочь :) Я вычислил, что Делфи материться на первое значение-дату, но не могу понять в чём дело :)