помогите найти ошибку

[Максим_Леонидович]

Здравствуйте. Ни как не пойму, в чем ошибка?

procedure TForm6.BitBtn1Click(Sender: TObject);
var
sqlstr: string;

begin
sqlstr:= 'UPDATE pasport_data SET Famil_p = '+char(39)+DBEd_Fam.Text+char(39)+' WHERE ID_pacient = '+char(39)+Label_ID.Caption+
      char(39)+';';

   ShowMessage(sqlstr);
      if application.MessageBox(PChar('Сохранить сделанные изменения?'),
      'Редактирование паспортных данных:',MB_OKCANCEL)=idOK then
        begin
      with DatMod.ADOQuery2 do
          begin
      DatMod.ADOQ_Mod.SQL.Clear;
      DatMod.ADOQ_Mod.SQL.ADD(sqlstr);
      DatMod.ADOQ_Mod.ExecSQL;
          end;

          application.MessageBox(PChar('Запись сохранена'),
          'Сообщение', MB_OK);
          Form6.Close;
          DatMod.ADOQuery1.Active:=false;
          DatMod.ADOQuery1.Active:=true;
        end;
end;

не обновляет данные, а выдает ошибку:

Project1.exe raised exception class EOIe Exception with message 'Несоответствие типов данных в выражении условия отбора'

подскажите в чем дело?

[edgy]

ID_pacient - какой у вас тип данных? Наверняка не строковый
и Label_ID.Caption - какой? Отсюда несоответствие типов данных.

[Максим_Леонидович]

в БД ID тип integer. а строка запроса для Query - string. Как же я integer в string засуну?
Пробовал вставлять ID через StrToInt не получается.

извиняюсь за глупые вопросы, первый раз делаю.

[Serge_Bliznykov]

имхо, надо просто убрать лишнии кавычки:

sqlstr:= 'UPDATE pasport_data SET Famil_p = '+char(39)+DBEd_Fam.Text+char(39)+
  ' WHERE ID_pacient = '+Label_ID.Caption+';';

[Максим_Леонидович]

Огромная благодарность!!!
Этож надо, два дня из-за каких то жалких кавычек просидел на одном месте!