SQL запрос к dbf таблице

[Pavels13]

Попробуй так (с кирилицей ???):

procedure TForm1.FormCreate(Sender: TObject);
begin
 adoQuery1.SQL.Clear;
 adoQuery1.SQL.Add('select * from ххх');
 adoQuery1.SQL.Add('where upper(ххх) like ' + #39 + '%'+ansiuppercase(Edit1.Text)+'%' + #39);
 adoQuery1.Active := true;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[betirsolt]

выдает ошибку неопознанная функция UpperCase/AnsiUpperCase/LowerCase/AnsiLowerCase пробовал со всеми

[Serge_Bliznykov]

выдает ошибку неопознанная функция UpperCase/AnsiUpperCase/LowerCase/AnsiLowerCase пробовал со всеми

да не может быть!

хотя это и маловероятно, но проверьте, что в списке используемых модулей в uses имеется модуль SysUtils
(AnsiUpperCase как раз в нём и описана)

и какую ошибку выдаёт?

Дайте пример Вашего кода (исходник) и скриншот ошибки...

[betirsolt]

SysUtils используется
вот же мой код

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
 adoQuery1.SQL.Clear;
 adoQuery1.SQL.Add('select * from xxx');
 adoQuery1.SQL.Add('where UpperCase(xxx) like ' + #39 + '%'+ansiuppercase(Edit1.Text)+'%' + #39);
 adoQuery1.Active := true;
end;

компилируется бкз ошибок но при нажатии на кнопку выдает ошибку неопознанная функция UpperCase

[ReportCube]

Исправьте в запросе UpperCase(ima) на UCase(ima) - для DBase другой формат функции

[betirsolt]

СПАСИБО ПОМОГЛО)))

[xxbesoxx]

Добрый вечер ребята . есть таблица ,, Имя Фамилия Телефон " Через Delphi делаю SQL запрос на один в поля

FindQuery.Active :=False;
FindQuery.SQL.Clear;
FindQuery.SQL.Add('SELECT*');
FindQuery.SQL.Add('FROM Tab1');
FIndQuery.SQL.Add('WHERE Фамилия LIKE '''+Edit2.Text+'''');
FindQuery.Active := true;
Form4.ShowModal;

Вопрос : Хочу SQL запрос на все в поля и не разобрал через Delphi как написать.
А сам MS.SQL Server понятно так работает

select*
from Tab1
where Фамилия LIKE 'Петренко' or Имя LIKE 'Денис'
--------------------------------------------------------------------------
Как написать через Delphi на все в поля помогите пожалуйсто . Спасибо зарание

[Serge_Bliznykov]

xxbesoxx, а какое отношение Ваш вопрос имеет к теме? (напоминаю, тема -это запрос к DBF таблице)

ну и не понятно, что Вам в Delphi мешает написать
FIndQuery.SQL.Add('WHERE Фамилия LIKE '''+Edit2.Text+'''');
FIndQuery.SQL.Add(' OR Имя LIKE '''+Edit3.Text+'''');

Кстати, Вы уверены, что Вас интересует или люди с фамилией ПЕТРЕНКО или с именем Денис ?! Может быть всё таки AND ?!

[xxbesoxx]

Serge_Bliznykov Огромное тебе спасибо. мне приятно с вами и вообще на это форуме общаться людьми... КОД РАБОТАЕТ БЛАГОДАРЮ ТЕБЯ

begin
FindQuery.Active :=False;
FindQuery.SQL.Clear;
FindQuery.SQL.Add('SELECT*');
FindQuery.SQL.Add('FROM Tab1');
FIndQuery.SQL.Add('WHERE Фамилия LIKE '''+Edit2.Text+'''');
FIndQuery.SQL.Add(' OR Имя LIKE '''+Edit2.Text+'''');
FIndQuery.SQL.Add(' OR Телефон LIKE '''+Edit2.Text+'''');
FindQuery.Active := true;
Form4.ShowModal;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.