Поиск по 3 параметрам

[Айдар]

собственно нужно найти запись по 3 параметрам, все попробовал ниче не получается (по 1 проходит)

ADODataSet1.CommandText := 'select * from Имя_Таблицы_с_Клиентами where fio_clienta = ' + QoutedStr(DBEdit17.text) + ' and dr = ' + QuotedStr(MaskEdit4.Text) + ' and tel = ' + QuotedStr(MaskEdit5.Text);
ошибка

[DCC Error] Unit1.pas(426): E2015 Operator not applicable to this operand type

локейты пробовал не выходит, беда

[Sciv]

dr, видимо, содержит дату рождения в формате Date, а сравнение в запросе происходит со строкой.
Попробуйте запрос через параметры организовать.

[Аватар]

1. Кавычка не затесалась в любой из текстов во WHERE?
2. Мало вероятно, что ошибка именно на этой команде. Покажите предшествующий код, а лучше всю процедуру целиком

ADD

QuotedStr<>QoutedStr

А вообще странно, что такая ошибка, должна быть другая

[Айдар]

Сообщение от Аватар

1. Кавычка не затесалась в любой из текстов во WHERE?
2. Мало вероятно, что ошибка именно на этой команде. Покажите предшествующий код, а лучше всю процедуру целиком

ADD

QuotedStr<>QoutedStr

А вообще странно, что такая ошибка, должна быть другая

procedure TForm1.Button24Click(Sender: TObject);
begin

{var LookupRes: Variant;
begin
LookupRes := ADOTable10.Lookup
  ('fio_clienta;dr',VarArrayOf([DBEdit17.text,MaskEdit4.Text ]),'dr', [loCaseInsensitive]);

if not VarIsNull(LookupRes) then
 ShowMessage(VarToStr(LookupRes[0])) //имя автора
}
ADODataSet1.CommandText := 'select * from sale where fio_clienta = ' + QoutedStr(DBEdit17.text) + ' and dr = ' + QuotedStr(MaskEdit4.Text) + ' and tel = ' + QuotedStr(MaskEdit5.Text);
//ADOTable10.Filter := 'fio_clienta =  + QoutedStr(DBEdit17.text) + ' and 'dr = ' + QuotedStr(MaskEdit4.Text) + ' and tel = ' + QuotedStr(MaskEdit5.Text);
ADOTable10.Filtered := True;
end;

Может есть способ легче?

[Айдар]

Сообщение от Sciv

dr, видимо, содержит дату рождения в формате Date, а сравнение в запросе происходит со строкой.
Попробуйте запрос через параметры организовать.

dr-текстовое поле, я уже 3 часа пытаюсь этот поиск сделать(

[Аватар]

Я же написал: нет QoutedStr, а есть QuotedStr
Код вообще не должен компилироваться

[Айдар]

Сообщение от Аватар

Я же написал: нет QoutedStr, а есть QuotedStr
Код вообще не должен компилироваться

select * from sale where fio_clienta ="' + QuotedStr(DBEdit17.text) + '" and dr = "' + QuotedStr(MaskEdit4.Text) + '" and tel = "'+ QuotedStr(MaskEdit5.Text)+'";

впихнул в ADOQuery6 не помогает

код кнопки
ADOQuery6.Close;
ADOQuery6.Active:=true;
showmessage(ADOquery6.FieldByName(' mail').asstring );

[Айдар]

кароче я уже туплю, расскажу цель Есть таблица sale в ней надо проверить есть если записи по 3 параметрам (фио клиента, день рождение, телефон) если есть то надо эту запись поставить в режим изменения, если юзер захочет изменить и запись измениться, нет значить нет

[Аватар]

Кавычек понаставили... Ладно, тогда так

  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='select * from Имя_Таблицы_с_Клиентами where fio_clienta = :fio and dr = :datr and tel = :telefon';
  ADOQuery1.Parameters.ParamByName('fio').Value:=DBEdit17.text;
  ADOQuery1.Parameters.ParamByName('datr').Value:=MaskEdit4.Text;
  ADOQuery1.Parameters.ParamByName('telefon').Value:=MaskEdit5.Text;
  ADOQuery1.Open;
  if ADOQuery1.RecordCount>0 then ShowMessage('Запись найдена');