Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





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


1-81275
Glonia Zbanov
2002-07-15 13:06
2002.07.25
Можно ли сделать форму прозрачной


6-81402
SkyWalker
2002-05-15 15:04
2002.07.25
ISAPI


1-81229
Builder
2002-07-14 08:48
2002.07.25
Минимизация в трей вместо закрытия


8-81387
Devid
2002-03-12 18:00
2002.07.25
Как заисать





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский