Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

Проблема с фильтрацией н.д.   Найти похожие ветки 

 
AFROLOV ©   (2002-07-03 12:26) [0]

Заполняем набор данных

Function TListBoxForm.FillListBox(Domen:String):Int64;
Var
SqlStr:String;
begin
ADOQuery.Filtered:=false;
try
ADOQuery.Connection.BeginTrans();
SqlStr:="Select valId, valueStr from TvalList,TDomens where TDomens.DomName=""+Domen+"" and TValList.DomenId=TDomens.DomenId order by TvalList.valueStr;";
ADOQuery.SQL.Clear();
ADOQuery.SQL.Add(SqlStr);
ADOQuery.Open();
except
ADOQuery.Connection.RollbackTrans();
result:=0;
exit;
end;
ADOQuery.Connection.CommitTrans();
result:=ADOQuery.RecordCount;
end;

Фильтруем:
Function TListBoxForm.IsInValuesList(SubStr:String):boolean;
begin
if SubStr="" then
begin
ADOQuery.Filtered:=false;
end else
begin
ADOQuery.Filter:="[valueStr]=""+SubStr+""";
ADOQuery.Filtered:=true;
end;
result:=ADOQuery.RecordCount>0;
end;

После вызова этой функции в ADOQuery.RecordCount становится = 0 даже если Filtered:=false;
Подскажите где я не прав, и как надо правильно фильтровать.
Заранее спасибо.


 
Johnmen ©   (2002-07-03 13:05) [1]

А в НД вообще есть записи ? И как это видно ?


 
AFROLOV ©   (2002-07-03 13:33) [2]

В наборе записи есть, и они отображаются в DBGrid. После выполнения процедуры фильтрации DBgrid становится пустым и ADOQuery.RecordCount становится = 0.


 
Johnmen ©   (2002-07-03 13:46) [3]

Значит по условию фильтра не выбрана ни одна запись....

И еще вопрос - после открытия НД кол-во записей = ???

И еще м.б.
ADOQuery.Filter:="valueStr=""+SubStr+""";



Страницы: 1 вся ветка

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
1-81272
CrazyRoger
2002-07-15 13:05
2002.07.25
Можно ли использовать TclientSocket в консольных приложениях?


7-81493
fore_3
2002-05-07 12:39
2002.07.25
Как послать логическую 1 на нужную ножку lpt порта


1-81346
AlekseyK
2002-07-13 11:18
2002.07.25
Как узнать на какой из combobox ов нажата кнопка?


14-81475
Dimka Maslov
2002-06-26 17:50
2002.07.25
Uniform Base of Procedures and Function for Delphi


1-81360
jumper
2002-07-13 18:51
2002.07.25
ПОМОГИТЕ!!! ВРЕМЯ ПОДЖИМАЕТ