Сделать поиск, сортировку и фильтрацию в базе

@kip4ak007 · Регистрация: 24.11.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте можете помочь с поиском,сортировкой и фильтрацией пожалуйста выложил прогу

~~dev.Free~~ · 02.06.2012, 10:56

@kip4ak007 · 02.06.2012, 12:05 **[ТС]**

с поиском не могу разобраться а остальное сделал уже можете объяснить код программы тогда хоть на форме расположил комбобокс,едит и батон для очистки вот этот код вставляю в едит и сразу ошибка в ADOCommand := TADOCommand.Create(nil);

Delphi

var s,d:string;
begin
ADOCommand := TADOCommand.Create(nil);
  ADOCommand.Connection := ADOConnection;
  ADOCommand.CommandType := cmdText;
  ADODataSetMaster := TADODataSet.Create(nil);
  ADODataSetMaster.Connection := ADOConnection1;
  ADODataSetMaster.CommandType := cmdText;
  ADODataSetMaster.CommandText := 'SELECT * FROM ' +'Карточка' ;
  ADODataSetMaster.Active := True;
  MasterDataSource := TDataSource.Create(nil);
  MasterDataSource.DataSet := ADODataSetMaster;
    // Выводим данные в DBGrid
  DBGrid1.DataSource := MasterDataSource   ;
//НУЖНО ДЛЯ ПОИСКА
 
  DBGrid1.DataSource.DataSet.DisableControls;
  // Пример, поиск в таблице по полю [Имя], по известному началу строки
  ADODataSetMaster.Active := False;
  strCmdText := 'SELECT * FROM '+ 'Карточка' + ' WHERE ['+ComboBox1.Items[ComboBox1.itemindex]+'] LIKE "'+ Edit1.Text + '%"';
  ADODataSetMaster.CommandText := strCmdText;
  ADODataSetMaster.Active := True;
  DBGrid1.DataSource.DataSet.EnableControls;

magirus · 02.06.2012, 12:09

Комментарий администратора

kip4ak007, в следующий раз ВНИМАТЕЛЬНО выбирайте раздел где задаете вопрос.
перенесено из visual basic

@kip4ak007 · 04.06.2012, 13:45 **[ТС]**

помогите

@kip4ak007 0 / 0 / 0 Регистрация: 24.11.2011 Сообщений: 53
	04.06.2012, 13:45 [ТС]	5
	помогите 0

~~dev.Free~~ Заблокирован
	02.06.2012, 10:56	2
	0