поиск IBDATASET

[delfin07]

Поиск вообще не происходит тупо не изменен я ввел данные в едиты а грид не изменяется.ввожу все что попало даже на это не реагирует должен быть пустой грид
а у меня все наместе без изменения

[Yurk@]

ну так ищи тогда причину в обработчиках. возможно грид не присоединен к датасету мы не можем тут угадывать что там у тебя в проэкте накручено. запрос проверен - работает нормально. а значит проблема где-то у тебя в чем то другом

[delfin07]

Вот теперь не ищет 100 проц 0 записей

[Аватар]

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

Вот теперь не ищет 100 проц 0 записей

А до этого не искало 80%?

[Yurk@]

delfin07, что там у тебя "ищет-не ищет" никто не будет угадывать из воздуха. показывай доказательства:
1. запись которая есть в БД которую он должен был найти (по твоему мнению)
2. запрос которым ищешь
3. пераметры которые передаются в запрос (Edit1.Text, Edit2.Text и т.д.)
4. ну и неплохо было бы ввесь код обработчика глянуть (ButtonClick или что-то еще)

[delfin07]

procedure TForm2.BitBtn3Click(Sender: TObject);
begin

if (Edit1.Text='') AND (Edit2.Text='') then ShowMessage('Введите данные в страку поиска')ELSE BEGIN
if (Edit1.Text>'') AND (Edit2.Text='') then  BEGIN
IBDataSet1.Close;
IBDataSet1.SelectSQL.Text := 'SELECT * FROM GRUPPA WHERE NOM_GR LIKE ''%'+Edit1.Text+'%''';
IBDataSet1.Open;
a:=DataSource1.DataSet.RecordCount;
StatusBar1.Panels.Items[1].Text:=IntToStr(a); END;
if (Edit1.Text='') AND (Edit2.Text>'') then  BEGIN
IBDataSet1.Close;
IBDataSet1.SelectSQL.Text := 'SELECT * FROM GRUPPA WHERE PERIOD LIKE ''%'+Edit2.Text+'%''';
IBDataSet1.Open;
a:=DataSource1.DataSet.RecordCount;
StatusBar1.Panels.Items[1].Text:=IntToStr(a); END;
if (Edit1.Text>'') AND (Edit2.Text>'') then  BEGIN
IBDataSet1.Close;
IBDataSet1.SelectSQL.Text := 'SELECT * FROM gruppa g WHERE (g.nom_gr LIKE ''%''||:p1) AND (g.period CONTAINING (:p2))';
IBDataSet1.ParamByName('p1').AsString := Edit1.Text;
IBDataSet1.ParamByName('p2').AsString := Edit2.Text;
IBDataSet1.Open;
a:=DataSource1.DataSet.RecordCount;
StatusBar1.Panels.Items[1].Text:=IntToStr(a); END ;

   END;
end;

вот код

[delfin07]

IBDataSet1.SelectSQL.Text := 'SELECT * FROM SDACH WHERE (TEMA_K LIKE '+QuotedStr('%'+Edit1.Text+'%')+') and (TIP_DOK LIKE '+QuotedStr(Edit2.Text+'%')+')';
вот сделал по 2 как сделать по 3
IBDataSet1.SelectSQL.Text := 'SELECT * FROM SDACH WHERE (TEMA_K LIKE '+QuotedStr('%'+Edit1.Text+'%')+') and (TIP_DOK LIKE '+QuotedStr(Edit2.Text+'%')+')(DOK LIKE '+QuotedStr(Edit4.Text+'%')+')'; как правильно поставить проц чтобы заработало

[Yurk@]

вот код

ну а гдео первые 3 пункта из перечисленного?

как правильно поставить проц чтобы заработало

ты еще с первым кодом не разобрался, а уже во второй лезешь

[delfin07]

я разобрался с кодом изменил его все работает вот с 3 полями проблемы

[Yurk@]

ну так а какая разница между:

WHERE (поиск по полю1) AND (поиск по полю2)

и

WHERE (поиск по полю1) AND (поиск по полю2) AND (поиск по полю3)

?
дописывай в готовое условие еще одно и все ... никаких проблем
зы.

... and (TIP_DOK LIKE '+QuotedStr(Edit2.Text+'%')+')(DOK LIKE '+QuotedStr(Edit4.Text+'%')+')';

пропушен оператор

... and (TIP_DOK LIKE '+QuotedStr(Edit2.Text+'%')+') AND (DOK LIKE '+QuotedStr(Edit4.Text+'%')+')';