Фильтрация по диапазону через ADOQuery

[Rusya15937]

я уже пытался сделать так, но когда осуществляется вторая фильтрация то Grid показывается пустым

[Serge_Bliznykov]

Сообщение от Rusya15937

я уже пытался сделать так, но когда осуществляется вторая фильтрация то Grid показывается пустым

одно из двух - либо нет записей, которые попадают под все фильтры,
либо неверно написан код.

[Rusya15937]

там код на два button и он идентичен, может там Query open лишние?
или Close, или Clear

[Serge_Bliznykov]

Сообщение от Rusya15937

Там код на два button и он идентичен

идентичен чему?

Сообщение от Rusya15937

может там Query open лишние?

может. Мне отсюда не видно.

Сообщение от Rusya15937

или Close, или Clear

а это тут при чём?!


Вы покажите свой код, расскажите, что он должен делать, тогда и поговорим более предметно.

[Rusya15937]

Фильтрация диапазона на Квадратуру:

void __fastcall TForm1::RzBitBtn11Click(TObject *Sender)
{
    Form1->ADOQuery1->Close();
    Form1->ADOQuery1->SQL->Clear();
    Form1->ADOQuery1->SQL->Add("Select * from Дома WHERE  Квадратура BETWEEN'"+RzEdit2->Text+"' and '"+RzEdit11->Text+"'");
    Form1->ADOQuery1->Open();
}
//---------------------------------------------------------------------------

Фильтрация диапазона на Комнаты:

void __fastcall TForm1::RzBitBtn12Click(TObject *Sender)
{
    Form1->ADOQuery1->Close();
    Form1->ADOQuery1->SQL->Clear();
    Form1->ADOQuery1->SQL->Add("Select * from Дома WHERE  Комнаты BETWEEN'"+RzEdit2->Text+"' and '"+RzEdit11->Text+"'");
    Form1->ADOQuery1->Open();
}

нужно после первой фильтрации производилась вторая, но вторая фильтрация должна выполняться по итогу первой фильтрации


_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Rusya15937]

и вот выдает ошибку, видимо в апострофах запутался, но найти не могу, помогите пожалуйста

void __fastcall TForm1::RzBitBtn11Click(TObject *Sender)
{
Form1->ADOQuery1->Close();
Form1->ADOQuery1->SQL->Clear();
Form1->ADOQuery1->SQL->Add("Select Квадратура, Комнаты from Дома WHERE Квадратура BETWEEN'"+RzEdit2->Text+"' and '"+RzEdit11->Text+"' and WHERE Комнаты BETWEEN '"+RzEdit12->Text+"' and '"+RzEdit13->Text+"'");
Form1->ADOQuery1->Open();
}

[Sciv]

1. Пробел после BETWEEN поставьте

2. and WHERE - тут только and должен быть

3. Если Вам нужно фильтровать набор данных на форме - можно сделать так:

а) отобразить в элементе формы набор данных, полученных селектом
б) применить к этому набору фильтр, который задаётся в ADOQuery в свойстве Filter. Включается/отключается фильтр значением свойства Filtered. Синтаксис для строки фильтра - тот же SQL (та часть, которая пишется после WHERE, то есть условие отбора)

[Rusya15937]

а все, только дошло
Только не пойму что с кодом не так

	
	

			
					void __fastcall TForm1::RzBitBtn12Click(TObject *Sender)
{
ADOQuery1->Filtered=false;
ADOQuery1->Filter="Материал"+RzEdit12->Text;
ADOQuery1->Filtered=true;
}
//---------------------------------------------------------------------------
			
		

только выдает эту ошибку

[Sciv]

Сообщение от Rusya15937

а все, только дошло
Только не пойму что с кодом не так

Вы знак "равно" не поставили

"Материал="+RzEdit12->Text;

либо так, если у Вас поле в БД строковое

"Материал="+QuotedStr(RzEdit12->Text);

[Rusya15937]

Спасибо большое
У Вас нет кода на сортировку в С++?
чтобы по нажатию на название поля оно сортировала по алфавиту, от А до Я и на оборот, а так же по возрастанию и убыванию в числах
есть код на Delphi

	
	

			
				procedure TForm2.RzDBGrid20TitleClick(Column: TColumn);
Var f:string;
begin
if ADOQuery13.FieldByName(Column.FieldName).Tag=0then
begin
f := ' ASC';
ADOQuery13.FieldByName(Column.FieldName).Tag := 1;
end
else
begin
f := ' DESC';
ADOQuery13.FieldByName(Column.FieldName).Tag := 0;
end;
ADOQuery13.Sort:=Column.FieldName + f;
end;