VPF::ПРоблема с работой фильтра в базе ADO

Vrungel

Дата 6.6.2009, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет

Я создал базы в access, связал с делфи и начал делать фильтр по данным таблицы, но программа не запускаеться... пишит : что что то не так с выбранным фильтром ....

вот листинг :

Код



procedure TForm2.FormCreate(Sender: TObject);
begin

ADOTable1.Filter:='';
ADOTable1.FilterOptions:=[focaseInsensitive];
ADOTable1.Filtered:=true;        // ошибка выскакивает на этой строке
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if RadioButton2.Checked then ADOtable1.Filter:='Год выпуска>'+edit4.Text +'and Год выпуска<'+edit5.text ;

if RadioButton1.Checked then ADOTable1.Filter:='Модель'+edit3.Text;

if RadioButton4.Checked then ADOtable1.Filter:='';

if RadioButton3.Checked then ADOTable1.Filter:='Цвет'+edit6.Text;
End;

Это сообщение отредактировал(а) Vrungel - 6.6.2009, 19:09

Данкинг

Дата 6.6.2009, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Vrungel @ 6.6.2009, 20:05

)

что что то не так с выбранным фильтром ....

Так и пишет? smile

Зачем фильтры? Запросы не проще использовать?

--------------------

There's nothing left but silent epitaphs.

Vrungel

Дата 6.6.2009, 20:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет

запросы просто указывают на необходимую строку, а фильтр оставляет в таблице всё что запросил smile

ну есть какиенить другие идеи??
мне нада чтобы если ввёл цвет "серебристый", то в таблице остались только серебристые авто ...

Данкинг

Дата 6.6.2009, 20:15 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Vrungel @ 6.6.2009, 21:07

)

запросы просто указывают на необходимую строку, а фильтр оставляет в таблице всё что запросил

В общем-то, это как раз запрос оставляет, т.е. выбирает всё, что запросил. smile

Цитата(Vrungel @ 6.6.2009, 21:07

)

ну есть какиенить другие идеи??

Ошибка-то какая именно?

--------------------

There's nothing left but silent epitaphs.

Vrungel

Дата 6.6.2009, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет

Вот ошибка ....

Присоединённый файл ( Кол-во скачиваний: 14 )

______.png 6,90 Kb

Данкинг

Дата 6.6.2009, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Vrungel @ 6.6.2009, 21:37

)

Вот ошибка ....

А если вручную выставить в свойствах опции - работает?

--------------------

There's nothing left but silent epitaphs.

Vrungel

Дата 6.6.2009, 21:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет

в каком свойствеи какую опцию?

Данкинг

Дата 6.6.2009, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Vrungel @ 6.6.2009, 22:15)

в каком свойствеи какую опцию?

В инспекторе свойств.

--------------------

There's nothing left but silent epitaphs.

Akella

Дата 6.6.2009, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Цитата(Vrungel @ 6.6.2009, 19:05

)

что то не так с выбранным фильтром ....

чувак, с такими вопросами к телепатам smile

Добавлено через 1 минуту и 44 секунды

Цитата(Vrungel @ 6.6.2009, 20:37

)

Вот ошибка ....

советую к прочтению
http://forum.vingrad.ru/forum/topic-237714.html

Добавлено через 2 минуты и 52 секунды

Цитата(Vrungel @ 6.6.2009, 19:05

)

procedure TForm2.FormCreate(Sender: TObject);
begin
ADOTable1.Filter:='';
ADOTable1.FilterOptions:=[focaseInsensitive];
ADOTable1.Filtered:=true; // ошибка выскакивает на этой строке
end;

1. Объясни смысл этого кода.
2. А потом расскажи, что нужно сделать.

Добавлено через 5 минут и 32 секунды

Цитата(Vrungel @ 6.6.2009, 20:07

)

Тебе же посоветовали использовать SQL. Я бы тоже посоветовал.
Ну а если хочешь всё же фильтрами, то на форуме информации по работе с TDataSet.Filter и с TDataSet.OnFilterRecord вагон и маленькая тележка. Конечно же с примерами. smile

Добавлено через 8 минут и 4 секунды
Только поищи в разделе Delphi и базы данных. И этот вопрос тоже нужно было там задавать. А лучше не задавать, а воспользоваться поиском. smile

Это сообщение отредактировал(а) Akella - 6.6.2009, 23:41

Zloxa

Дата 7.6.2009, 02:12 (ссылка)

(нет голосов)

Загрузка ...

Чо?

Профиль
Группа: Завсегдатай
Сообщений: 3473
Регистрация: 12.9.2008

Репутация: нет
Всего: 161

Правильно выбирайте форум

M
Zloxa

Перенесено из "Общие вопросы по БД"

--------------------

Достоверно известно, что 89% людей доверяют статистике взятой с потолка smile

Vrungel

Дата 7.6.2009, 07:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 4.6.2009

Репутация: нет
Всего: нет

делейт нафиг эту тему ... smile

Akella

Дата 7.6.2009, 08:40 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Почему? Уже решил проблему?

flomaster

Дата 16.6.2009, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 28.12.2007
Где: СПб

Репутация: нет
Всего: нет

Ага, трудности перевода...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »