Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.11.2010, 02:27
jekahm jekahm вне форума
Новичок
 
Регистрация: 01.06.2009
Сообщения: 54
Репутация: 27
По умолчанию Не работает фильтрация

Помогите разобраться с фильтрацией данных в таблице БД!
Вот сама программка (необходимо произвести фильтрацию в БД по фамилии)
Вложения
Тип файла: rar Filter.rar (15.9 Кбайт, 5 просмотров)
Ответить с цитированием
  #2  
Старый 03.11.2010, 09:40
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Скорее всего так:
Код:
AdoTable1.Filter:='[Фамилия] like ' +QuotedStr(Edit1.Text+'%');
Ответить с цитированием
  #3  
Старый 03.11.2010, 15:52
jekahm jekahm вне форума
Новичок
 
Регистрация: 01.06.2009
Сообщения: 54
Репутация: 27
По умолчанию

Цитата:
Сообщение от TOJluK
Скорее всего так:
Код:
AdoTable1.Filter:='[Фамилия] like ' +QuotedStr(Edit1.Text+'%');
Не помогает!

Последний раз редактировалось jekahm, 03.11.2010 в 16:52.
Ответить с цитированием
  #4  
Старый 03.11.2010, 16:53
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Цитата:
Сообщение от jekahm
Спасибо, но не помогает!
Ну это уже похоже на лень...

Вот:
Код:
if Length(Edit1.Text)>0 then begin
  AdoTable1.Filter:='[Фамилия] like ' +QuotedStr(Edit1.Text+'%'); 
  ADOTable1.Filtered:=True
end
else
  ADOTable1.Filtered:=False;
И если уж TTable используешь, то в гриде его DataSource указать надо, а не TQuery.

ЗЫ Я бы посоветовал забыть про TTable
Ответить с цитированием
  #5  
Старый 03.11.2010, 17:39
jekahm jekahm вне форума
Новичок
 
Регистрация: 01.06.2009
Сообщения: 54
Репутация: 27
По умолчанию

Цитата:
Сообщение от TOJluK
Ну это уже похоже на лень...

Вот:
Код:
if Length(Edit1.Text)>0 then begin
  AdoTable1.Filter:='[Фамилия] like ' +QuotedStr(Edit1.Text+'%'); 
  ADOTable1.Filtered:=True
end
else
  ADOTable1.Filtered:=False;
И если уж TTable используешь, то в гриде его DataSource указать надо, а не TQuery.

ЗЫ Я бы посоветовал забыть про TTable
Не могли бы Вы скинуть саму программку, где видна реализация этого кода! (просто у меня до сих пор ничего не работает )
Заранее благодарен!
Ответить с цитированием
  #6  
Старый 03.11.2010, 19:22
jekahm jekahm вне форума
Новичок
 
Регистрация: 01.06.2009
Сообщения: 54
Репутация: 27
По умолчанию

TOJluK, большое спасибо за помощь!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:24.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025