Quantcast
Channel: SQL.ru: Firebird, InterBase
Viewing all articles
Browse latest Browse all 1677

Ошибка при вставке записи в FIBPLus Dataset

$
0
0
Привествую! С днём Победы!
Использую 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;


После отработки процедуры выдается ошибка:

Картинка с другого сайта.

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

Viewing all articles
Browse latest Browse all 1677

Latest Images

Trending Articles