Немного о поиске в ADO

[alexeybest]

Здравствуйте. Возник такой вопрос. Есть DBGrid, в нем таблица данных. Хочу использовать Locate для поиска данных. Основа на таком примере:

ffield := 'ID';
fvalue := '325423';
opts := [loCaseInsensitive];
if  AdoTable1.Locate(ffield, fvalue, opts) then
  ShowMessage(fvalue + ' found in ' + ffield);

Вопрос в том, как в качестве параметра fvalue взять не конкретное число или строку, а массив чисел, находящегося в Listbox. (Listbox.Items[i]). Немного не выходит. Буду признателен за помощь.

[Serge_Bliznykov]

погодите, в массиве находится НЕСКОЛЬКО чисел..
а Locate - найдёт ОДНО значение. Вам какое из массива надо найти?
Если первое - то так:

if  AdoTable1.Locate(ffield, Listbox.Items[0], [loCaseInsensitive]) then
  ShowMessage(Listbox.Items[0] + ' found in ' + ffield);

[alexeybest]

Интересное мнение, но мне нужно не одно, а чтоб значения массива в Listbox были задействованы.

[Serge_Bliznykov]

Интересная мысль. А, если не секрет, что вы подразумеваете под словами "были задействованы"?
Отфильтровать те строчки в гриде, ID которых заданы в ListItems ?
тогда у Вас есть несколько вариантов (правда, варианта с использованием locate я Вам не могу предложить ):

плохой вариант:
- вешаетесь на событие OnFilterRecord
и в этом событии проверяете, ID переданной записи есть в ListBox - тогда возвращаете Accept := true
иначе - Accept := false;

хороший вариант: загоняете все необходимые значения в БД (во временную таблицу) и выбираете нужные записи через SQL...

средний вариант: добавляете в датасет поле и в цикле проставляете в это поле признак, отбирать данную запись или нет (1/0 или True/False или 'Y'/'N' ) потом в момент, когда нужно отфильтовать:
dataset1.Filter := ' НужноеПоле = 1 ';
dataset1.Filtered := true;

ещё есть вопросы?

[alexeybest]

Я в обработке события нажатия мыши написал
ADOQuery2.SQL.Add('Select * from Table');
ADOQuery2.SQL.Add('where N like ''%'+Listbox1.Items[i]+'%''');

Но выводит только последнее совпадение из Listboxa, не подскажешь чтобы и несколько записей мог вывести?

Прекращайте ненужное цитирование предыдущих сообщений!
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
А кроме кнопки "Цитата" есть просто окно для ввода своего сообщения.
Модератор

[Serge_Bliznykov]

Но выводит только последнее совпадение из Listboxa, не подскажешь чтобы и несколько записей мог вывести?

ну, можно и так, можно и SQL динамически генерить.
лишь бы длины запроса хватило! Да и не очень эффективен он будет, с точки зрения производительности (т.к. OR чрезвычайно плохо оптимизируются СУБД при выполнении). Да и Like не самый лучший вариант в плане производительности..
Кстати, а почему LIKE, вроде бы речь в вашем первом сообщении шла об ID? тогда я бы предложил конструкцию: "... where ID in (значение1, значения2, ... значениеK)"

впрочем, хозяин — барин. извольте:

var s : string;
   i : integer;
begin
ADOQuery2.Close;
s := 'Select * from Table where ';
for i:=0 to Listbox1.Items.Count-1 do begin
  s := s + ' (N like ''%'+Listbox1.Items[i]+'%'') ';
  if i<>(Listbox1.Items.Count-1) then
    s := s + ' or ';
end;
ADOQuery2.SQL.Text := s;
ADOQuery2.Open;

[alexeybest]

Спасибо. Я нашел способ сделал немного по-другому... Твой способ тоже норм