нужно организовать поиск в делфи

[Sen San]

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

Вот код процедуры

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

StaticText1.Caption:='';
if ComboBox1.ItemIndex=0 then
begin
Query2.SQL.Insert(5,edit1.Text);
Query2.SQL:=Query2.SQL;
DataSource1.DataSet:=Query2;
Query2.Active:=true;
for i:=0 to Query2.SQL.Count-1 do
StaticText1.Caption:=StaticText1.Ca ption+Query2.SQL[i];
Query2.SQL.Assign(t);

end;

end;

также код sql который испльзую

SELECT *
FROM (Tavtor INNER JOIN Ttip ON Tavtor.id_avtora = Ttip.id_avtora)
INNER JOIN (Tpamat INNER JOIN Traion ON Tpamat.id_pam = Traion.id_pam)
ON Ttip.id_tip = Tpamat.id_tip
where Tpamat.naz like '
%';

посоветуйте кто небудь как это лучше сделать?

[rule-z]

То, что ты сказал можно отнести к фильтрации. Итог впринципе один - он показывает искомый результат...

begin
If LabeledEdit1.Text='' then ShowMessage('Нет параметра для поиска') else
begin
DataModule1.Query1.SQL.Clear();
DataModule1.Query1.SQL.Add('SELECT * From "Delo.db" WHERE (Statya=:Statya)');
DataModule1.Query1.Params[0].AsString:=LabeledEdit1.Text;
DataModule1.Query1.ExecSQL();
DataModule1.Query1.Active:=true;
DBGrid1.DataSource2:=DataModule1.DataSource1;
LabeledEdit1.Text:='';
end;

В LabeledEdit1 вводим по какому значению ищем. Ищем в Delo.db в поле статья к примеру значение из LabeledEdit1.

[Sen San]

Сообщение от rule-z

То, что ты сказал можно отнести к фильтрации. Итог впринципе один - он показывает искомый результат...

begin
If LabeledEdit1.Text='' then ShowMessage('Нет параметра для поиска') else
begin
DataModule1.Query1.SQL.Clear();
DataModule1.Query1.SQL.Add('SELECT * From "Delo.db" WHERE (Statya=:Statya)');
DataModule1.Query1.Params[0].AsString:=LabeledEdit1.Text;
DataModule1.Query1.ExecSQL();
DataModule1.Query1.Active:=true;
DBGrid1.DataSource2:=DataModule1.DataSource1;
LabeledEdit1.Text:='';
end;

В LabeledEdit1 вводим по какому значению ищем. Ищем в Delo.db в поле статья к примеру значение из LabeledEdit1.

сейчас попробую спасибо

[Sen San]

что то ничего не получается, или я уже из за того что сижу 4 час за этим не соображаю ничего

[rule-z]

Сообщение от Sen San

что то ничего не получается, или я уже из за того что сижу 4 час за этим не соображаю ничего

Опишите на этот раз, что не так. Я думаю вы прямо копипаст не использовали))))

[Sen San]

Сообщение от rule-z

Опишите на этот раз, что не так. Я думаю вы прямо копипаст не использовали))))

нет, обмозговал переписал под свою бд, не выводит просто ничего в dbgrid

сейчас соберу мозг назад, уже забыл какой вариант работал, но не выводил
просто поймите правельно учусь, сижу с книгами уже все перепробывал не могу сделать

[Sen San]

вот что я сделал используя ваш код

If Edit1.Text='' then ShowMessage('Нет параметра для поиска') else
begin
Query2.SQL.Clear();
Query2.SQL.Add('SELECT * From (Tavtor INNER JOIN Ttip ON Tavtor.id_avtora = Ttip.id_avtora) INNER JOIN (Tpamat INNER JOIN Traion ON Tpamat.id_pam = Traion.id_pam) ON Ttip.id_tip = Tpamat.id_tip WHERE (Tpamat.naz=:naz)');
Query2.Params[0].AsString:=Edit1.Text;
Query2.ExecSQL();
Query2.Active:=true;
DBGrid1.DataSource:=DataSource1;
Edit1.Text:='';

поставте мне два)))что то я туплю