[Putin666]

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

Нужно:
Совершить поиск по базе данных или же фильтрацию;


Пытался сделать через SQL, но почему то не получается... данные, которые отвечают требованиям поиска не высвечиваются DBGrid1, ошибок ни че не выдает как будто запрос проходит, а вывода данных нет.
На форме использую компоненты ADOQuery1, ADOTable1, DataSource1, ADOConnection1

Отрывок кода поиска:

Код:

procedure TForm1.Edit8Change(Sender: TObject);
var
 strField:string;
begin
 if not CheckBox1.Checked then Exit;
 // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Name';
  1: strField:='LastName';
  2: strField:='№_stud';
 end;
 // выполнить поиск
 ADOQuery1.Locate(strField,Edit8.Text,[loCaseInsensitive,loPartialKey]);
end;

procedure TForm1.Edit7Change(Sender: TObject);
var
 strField:string;
begin
 if not CheckBox1.Checked then Exit;
 // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Name';
  1: strField:='LastName';
  2: strField:='№_stud';
 end;
 // выполнить поиск
 ADOQuery1.Close;                              
 ADOQuery1.SQL.Clear;                 
 ADOQuery1.SQL.Add('Select * from users where '+strField+' LIKE "'+Edit7.Text+'%"');
 ADOQuery1.Open;
 ADOQuery1.FieldByName('Name').DisplayLabel:='Name';
 ADOQuery1.FieldByName('LastName').DisplayLabel:='LastName';
 ADOQuery1.FieldByName('№_stud').DisplayLabel:='№_stud';
end;

 procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked=true
 then
  begin
   CheckBox1.Caption:='Режим поиска включен';
   Edit7.SetFocus;
    end
 else CheckBox1.Caption:='Режим поиска выключен';
 end;

Admin: Теги и еще раз теги!

Заранее благодарен

[TOJluK]

В DataSource1 св- во DataSet = ADOQuery1 ?

[Putin666]

У меня стоит так....
DataSource1 св- во DataSet = ADOTable1
Если ставлю ADOQuery1 ругается
В ADOQuery1 св- во DataSet = ADOTable1 так написанно

[TOJluK]

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

У меня стоит так....
DataSource1 св- во DataSet = ADOTable1
Если ставлю ADOQuery1 ругается
В ADOQuery1 св- во DataSet = ADOTable1 так написанно

На что ругается?
Откуда В ADOQuery1 св- во DataSet?

[Putin666]

ADOQuery1, DataSource раскрой и там будет DataSet.
Если DataSource1 св- во DataSet ставлю ADOTable1 ругается не дает записать это значение. Если реально заинтересован помочь мне погу скинуть программу.

[TOJluK]

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

ADOQuery1, DataSource раскрой и там будет DataSet.

это уже св-во не Query, a DataSorce`a

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

Если реально заинтересован помочь мне погу скинуть программу.

Можешь кинуть Sortir@tut.by, или тут ссылку выложи.

[Putin666]

Прогу выслал на указанную почту.

[TOJluK]

Сделай так:
ADOQuery1 св-во DataSource = пустое (просто оставь пустым)
DataSource1 св-во DataSet = ADOQuery1 (появиться в выпадающем списке)

просмотрел бегло, в понедельник гляну более подробно, если не поможет.

[Putin666]

Вот программа.

[TOJluK]

Putin666, отправил подправленную версию.

[Putin666]

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

Putin666, отправил подправленную версию.

Огромное при огромное тебе спасибо.... очень сильно выручил....