Сброс RecordCount

[alfikss]

Всех приветствую. Вопрос такой. Есть код:
Код Delphi

...
Query1.ExecSQL;
Query1.First;
RecCnt:=Query1.RecordCount;
i:=1;
sg.RowCount:=1;
sg.RowCount:=2;
sg.FixedRows:=1;
while not Query1.Eof do
begin
....

Вроде все правильно и код работал. Но в один прекрасный момент почему то перестал. Никаких страшных действий не совершал.
После выполнения "sg.RowCount:=1;" сбрасывается на ноль значение Query1.RecordCount. Вставлял в середину ничего не значащие строки - все равно сброс идет именно на этой строке.

[Stilet]

Не удивительно. RecordCount далеко не всегда хранит кол-во записей.
Я правда не помню от чего это зависит, но сам уже да-а-а-вно его не использую.
И кстати:

Query1.ExecSQL;
Query1.First;

First после ExecSQL по твоему что-то должно дать?

[Yurk@]

Stilet, потому что если кверя возвращает не полный, а частичный набор данных - RecordCount покажет именно эту часть. у некоторых кверей есть для этого что-то типа RecordCountFromSrv (FIB+) который возвращает именно полное кол-во записей.
ТС, покажи что в Query1.SQL.Text до выполнения Query1.ExecSQL;

[alfikss]

Query1.ExecSQL ; Выполняем запрос
Query1.First ; Устанавливаем курсор на первую строку

Я думал что так. Разве нет?
RecordCount возвращает правильное число записей. Вопрос встает почему скидывается на ноль при выполнении того кода?

Query1.Active:=false;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT cena.Complect, cena.Cena, compl.skidka, compl.skidka_rub, compl.fix, compl.po_cene, compl.version, compl.summ');
Query1.SQL.Add('FROM org INNER JOIN (cena INNER JOIN compl ON cena.id_cena = compl.id_cena) ON org.id_org = compl.id_org');
Query1.SQL.Add('WHERE org.nazv=:q');
Query1.Parameters.ParamByName('q').Value:=org.Items[org.ItemIndex];
Query1.Active:=true;
Query1.ExecSQL;
Query1.First;
RecCnt:=Query1.RecordCount;

[Stilet]

RecordCount покажет именно эту часть.

Ну может и так, мне как-то всегда нули приходили, если я не использовал... уже даже не вспомню что я прописывал чтоб работать с этим свойством корректно. Что-то с кэшем связанное кажись.

Я думал что так. Разве нет?

ExecSQL набор не возвращает, значит First после него бессмысленен.

почему скидывается на ноль при выполнении того кода?

Убери Query1.ExecSQL; совсем - что вернет RecordCount?

[Serge_Bliznykov]

у Вас строчки ЛИШНИЕ!

Query1.Active:=true;
Query1.ExecSQL;
Query1.First;

RecCnt:=Query1.RecordCount;

уберите отмеченные строчки совсем!

[alfikss]

Убирал. Все равно так же все. Повторюсь - изначально код был рабочий и некоторое время все было в порядке и показывало то, что мне нужно было =( РекордКаунт возвращает правильные значения, но после строки "sg.RowCount:=1;" начал сбрасывать свое значение на ноль и, соответственно, в цикл не заходит, т.к. выходит что в Квери нет значений =(

[alfikss]

Получается что вообще данные из Квери исчезают

[Yurk@]

что такое sg?
какое отношение друг к другу в коде

RecCnt:=Query1.RecordCount;
i:=1;
sg.RowCount:=1;
sg.RowCount:=2;

имеют подчеркнутые строки?
и какой логический смысл со строк выделенных синим?
ну и попробовать примерно такой код:

Query1.Close;
Query1.SQL.Text := 'SELECT cena.Complect, cena.Cena, compl.skidka, compl.skidka_rub, compl.fix, compl.po_cene, compl.version, compl.summ '
  + 'FROM org INNER JOIN (cena INNER JOIN compl ON cena.id_cena = compl.id_cena) ON org.id_org = compl.id_org '
  + 'WHERE org.nazv=:q';
Query1.Parameters.ParamByName('q').Value:=org.Items[org.ItemIndex];
Query1.Open;
RecCnt := Query1.RecordCount;
if RecCnt = 0 then 
begin
  ShowMessage('Даных по запросу не найдено');
  Exit;
end;

i:=1;
sg.RowCount:=2;
sg.FixedRows:=1;
while not Query1.Eof do
begin
...
  Query1.Next;
end;

[alfikss]

Query1.Close;
Query1.SQL.Text := 'SELECT cena.Complect, cena.Cena, compl.skidka, compl.skidka_rub, compl.fix, compl.po_cene, compl.version, compl.summ '
  + 'FROM org INNER JOIN (cena INNER JOIN compl ON cena.id_cena = compl.id_cena) ON org.id_org = compl.id_org '
  + 'WHERE org.nazv=:q';
Query1.Parameters.ParamByName('q').Value:=org.Items[org.ItemIndex];
Query1.Open;

Чем это отличается от моего построения?

что такое sg?
какое отношение друг к другу в коде имеют подчеркнутые строки?
и какой логический смысл со строк выделенных синим?

sg - StringGrid
Смысл: Есть ЛистБокс с названиями организаций, которые подставляются в запрос при их выборе. Количество строк, которое вернет запрос, может быть разное. Таким образом я обнуляю СтрингГрид, затем устанавливаю кол-во строк(не считая заголовка) равным 1 и устанавливаю фиксацию заголовков( т.к. при sg.RowCount=1 фиксация спадает)

if RecCnt = 0 then 
begin
  ShowMessage('Даных по запросу не найдено');
  Exit;
end;

Именно для этого данная переменная и используется.