Поиск данных в БД

[sw47]

Хочу сделать записи в Query-таблице по двум полям одновременно. Первое поле-edit, второе выбирается из выпадающего списка.
Результат выводится в Panel.
Не знаю через что делать. Locate, LookUp или Find. Пока курю методичку.
Помогите.

[sw47]

procedure TForm3.Button1Click(Sender: TObject);
begin
if not DataModule2.Query1.Locate('Nomer_kn igi;Avtor', VarArrayOf([Edit1.text, Combobox1.text]))
then showmessage ('net');
end;

поиск по полю и комбобоксу по щелку на кнопке без вывода на panel.
не работает. пишет что: "not enough actual parameters"

[Mitriy08]

Пример из дельфийского хелпа

with ADOTable1 do
             Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P', '408-431-1000']), [loPartialKey]);

Ищем 10 отличий

[sw47]

Спасибо.
у меня возникла другая проблема. надо сделать сортировку записей в таблице по трем полям. поля выбираются в из радиогрупы.

procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then
DataModule2.Table1.indexfieldnames: ='Avtor';

if radiogroup1.ItemIndex=1 then
datamodule2.table1.indexfieldnames: ='Nazvanie_knigi';

if radiogroup1.ItemIndex=2 then
datamodule2.table1.indexfieldnames: ='Izdatelstvo';
end;

выдает ошибку: Table1: No index for fields'Avtor'
может надо назначить на эти поля secondary indexes в Database desctope?

[sw47]

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

Пример из дельфийского хелпа

with ADOTable1 do
             Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P', '408-431-1000']), [loPartialKey]);

Ищем 10 отличий

if not DataModule2.Query1.Locate('Nomer_kn igi;Avtor', VarArrayOf(['Edit1.text', 'Combobox1.text']))
then showmessage ('net');
такая же ошибка. я плохо разбираюсь.
p.s. проблему с сортировкой уже решил

[Mitriy08]

Я бы сделал так:

 Case radiogroup1.ItemIndex of
   0 : DataModule2.Table1.Sort:='Avtor ASC'; //По возрастанию, Desc - по убыванию
   1 : datamodule2.table1.Sort:='Nazvanie_knigi ASC';
   2:  datamodule2.table1.Sort:='Izdatelstvo ASC';
 else ShowMessage('Чет не понял что ты выбрал.....:)');
End;

[sw47]

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

Я бы сделал так:

 Case radiogroup1.ItemIndex of
   0 : DataModule2.Table1.Sort:='Avtor ASC'; //По возрастанию, Desc - по убыванию
   1 : datamodule2.table1.Sort:='Nazvanie_knigi ASC';
   2:  datamodule2.table1.Sort:='Izdatelstvo ASC';
 else ShowMessage('Чет не понял что ты выбрал.....:)');
End;

Спасибо. Я решил проблему создав для каждого поля свой secondary index в DataBasedesktop.

[Mitriy08]

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

if not DataModule2.Query1.Locate('Nomer_kn igi;Avtor', VarArrayOf(['Edit1.text', 'Combobox1.text']))
then showmessage ('net');
такая же ошибка. я плохо разбираюсь.
p.s. проблему с сортировкой уже решил

function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean;

TLocateOptions:
loCaseInsensitive Key fields and key values are matched without regard to case.
loPartialKey Key values can include only part of the matching key field value; for example, 'HAM' would match both 'HAMM' and 'HAMMER.'

Если вам этого не надо то можно просто оставить [] - пустое

ps. Учись пользоваться хелпом....

[sw47]

Я хочу сделать фильтрация одновременно по двум полям. поля dblookupcombobox.
по одному полю вот такой код:

procedure TForm3.Label3Click(Sender: TObject);
begin
if dblookupcombobox2.text <>'' then begin
datamodule2.query1.filter:='Avtor=' ''+dblookupcombobox2.Text+'''';
datamodule2.query1.filtered:=true;
end;

а как сделать сразу по двум?

[_Engine_]

использовать в фильтре AND