Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Фильтрация Loockup поля [D7, Access]


Страницы:   1 2

DenProx ©   (2010-03-03 11:21:00) 

Доброго времени суток. У меня такой вопрос, я пытаюсь сделать фильтрацию по полю подстановки (loockup), пишу такой код:
Код:

ADOQuery3.Active:=False;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('SELECT *');
ADOQuery3.SQL.Add('FROM tblDetail');
if Edit1.Text<>EmptyStr then
ADOQuery3.SQL.Add('WHERE Section_ID IN (SELECT Key FROM tblSection WHERE SectionName LIKE '''+Edit1.Text+'%'+''')');
ADOQuery3.Active:=True;


где tblDetail таблица с ссылками, т.е. содеожит коды полей
tblSection - таблица с соответствующими именами

проблема в следующем, при вводе в Едит текста, таблица становится пустой, и фильтрация соответственно не осуществляется... но если данный запрос проверить в Access'e то все работает... в чем может быть проблема?


Sergey13   (2010-03-03 14:56:00) [1]

> [21] DenProx ©   (03.03.10 14:41)

Ну третий грид прилепи с секциями.


DenProx   (2010-03-03 14:41:00) [2]

Нужна наглядность, а если использовать КомбоБокс то это уже не Гуд...


Sergey13   (2010-03-03 14:36:00) [3]

> [19] DenProx ©   (03.03.10 14:25)

А что мешает показывать набор данных из tblSection в каком нибудь ДБЛукапКомбоБоксе и просто подставлять еще одну переменную в набор с деталями?
Только от стандартного механизма мастер-деталь придется отказаться. На атерскрол обоих родителей вешаешь процедуру переоткрытия деталей с параметрами. И все.

ЗЫ: Вместо ADOQuery лучше юзать АДОДатасет.


DenProx   (2010-03-03 14:25:00) [4]

в БД есть таблицы: tblBlock, tblDetail, tblSection
tblBlock - таблица содержащая названия блоков (изделия)
tblDetail - таблица содержащая все детали, где имена деталец берутся из таблицы tblSection.
в Delphi:
Есть форма, на ней Два DBGrid'a, по 3-и ADOQuery и DataSourse.
Первый Грид отображает данные из таблицы tblBlock, второй Грид отображает детали относящиеся к выбранному блоку (по связи один-ко-многим), в поле SectionName(подстановочное поле). Необходимо отфильтровать это поле.


Sergey13   (2010-03-03 14:00:00) [5]

> [17] DenProx ©   (03.03.10 13:52)

Так ты еще больше все запутал.
Прежде, чем понимать что тебе нужно, нужно понять что у тебя есть. Конкретно и по пунктам.


DenProx   (2010-03-03 13:52:00) [6]

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


Sergey13   (2010-03-03 13:44:00) [7]

> [15] DenProx ©   (03.03.10 13:34)

О чем то своем рассказываешь? Связи какие то, датасорсы, лукапы. О чем ты? Кто это видел? Кроме тебя?


DenProx   (2010-03-03 13:34:00) [8]

Дак запрос на фильтрацию реализован... если у ADOQuery убрать связь (DataSourse) то запрос работает, но по всей таблице.... если Связь восстановить, то запрос не работает.
Смысл в следующем: на форме два Грида, один содержит Разделы, другой подразделый относящиеся к какому либо разделу, т.к. подразделов много нужно сделать фильтрацию... что я и делал выше описанным способом...
сложность в том что поля во втором гриде подстановочные... Lookup...


Sergey13   (2010-03-03 13:27:00) [9]

> [13] DenProx ©   (03.03.10 13:22)

У тебя вообще про фильтр нет ничего. Давай уж с терминологией разбирайся. Запрос не работает?


DenProx   (2010-03-03 13:22:00) [10]

Только теперь получается фильтр, работает по всей таблице, а не по записям которые относятся к кокому либо разделу... как это возможно совместить?


DenProx   (2010-03-03 13:04:00) [11]

Нашел в чем проблема... Просто этот компонент ADO имел связь с другим, по этому запрос не работал...


Вариант   (2010-03-03 12:59:00) [12]


> DenProx ©   (03.03.10 12:27) [7]

С акцессом я как-то не очень, но ....
Если приводишь к одному регистру, то вопрос - а в базе у тебя поля тоже в  верхнем регистре? Если нет, то приводить к верхнему например регистру надо и значения полей в базе.

Второе, как вариант (если все остальное нормально) - есть подозрение еще, что кодировка буквы Д в базе и буквы Д в Edit не совпадает(юникод и анси).


Sergey13   (2010-03-03 12:57:00) [13]

> [7] DenProx ©   (03.03.10 12:27)

А поле таблицы SectionName кто будет к верхнему регистру приводить?


DenProx   (2010-03-03 12:42:00) [14]

в том и фишка, что Нет...


12   (2010-03-03 12:36:00) [15]

а если написать конкретно, не едит1.текст, а
SELECT *
FROM tblDetail
WHERE Section_ID IN (SELECT Key FROM tblSection WHERE SectionName LIKE 'Д%');

что-то кажет?


DenProx   (2010-03-03 12:27:00) [16]

запрос сделал такой:

ADOQuery3.SQL.Add('WHERE Section_ID IN (SELECT Key FROM tblSection WHERE SectionName LIKE '''+UpperCase(Edit1.Text)+'%'+''')');


в сообщении выводит:
SELECT *
FROM tblDetail
WHERE Section_ID IN (SELECT Key FROM tblSection WHERE SectionName LIKE 'Д%');

результат не изменился...


Sergey13   (2010-03-03 12:16:00) [17]

> [5] DenProx ©   (03.03.10 12:14)
> или регистр по другому нужно делать?

Вообще то по другому. Есть наверное в аксесе UPPER.
И все таки параметры надежнее.
Что показывает ShowMessage(ADOQuery3.SQL.Text);?


DenProx   (2010-03-03 12:14:00) [18]

вот попробывал так:

ADOQuery3.Active:=False;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('SELECT *');
ADOQuery3.SQL.Add('FROM tblDetail');
if Edit1.Text<>EmptyStr then
ADOQuery3.SQL.Add('WHERE Section_ID IN (SELECT Key FROM tblSection WHERE SectionName LIKE '''+'#39'+Edit1.Text+'#39'+'%'+''')');
ShowMessage(ADOQuery3.SQL.Text);
ADOQuery3.Active:=True;


результат тот же... или регистр по другому нужно делать?


Sergey13   (2010-03-03 11:53:00) [19]

И Loockup тут совершенно ни при чем, кстати.


Sergey13   (2010-03-03 11:53:00) [20]

И все равно в запросе я бы все привел к одному регистру.
Кроме того лучше бы пользоваться параметрами LIKE :NameSection
Выведи текст запроса перед выполнением в showmessage и убедись, что там все как надо.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо