![]() |
|
|
#1
|
|||
|
|||
|
Поиск по БД в любимом Acess'e
----------------------------------------- Код:
procedure TForm6.Edit1Change(Sender: TObject);
var help1: string;
begin
help1:='%'+Form6.Edit1.text+'%';
help1:= QuotedStr(help1);
with DataModule2.ADOQuery1 do
begin
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('select*from Клиенты where Имя like '+help1+' ');
DataModule2.ADOQuery1.Open;
end;
end;Последний раз редактировалось BlacKCheT, 18.06.2018 в 18:20. |
| Этот пользователь сказал Спасибо BlacKCheT за это полезное сообщение: | ||
Alegun (18.06.2018)
| ||
|
#2
|
|||
|
|||
|
Что то пошло не так.. Приходится обращаться к магам)))
|
|
#3
|
||||
|
||||
|
Пжлст, пока никто не видит, оформите ваш код тегом [СODE]..[СODE]
Небольшой ликбез,конструкция with..do специально разработана для сокращения набираемого кода,все что между точек после набирать не обязательно т.е. DataModule2.ADOQuery1.Close можно сократить до просто Close; По теме - поля кириллицей в запросе следует "заковычивать", знак процентов при выборке вроде выдаст все и вся,а искомая строка и так уже в кавычках после функции QuotedStr |
|
#4
|
|||
|
|||
|
Нужно установить библиотеку EHlib. Вот сейчас колдую
|
|
#5
|
|||
|
|||
|
Поставил библиотеку, указал путь, а она не появляется в чем дело?
|
|
#6
|
|||
|
|||
|
Вопрос решен, можно удалять.
|