[Washington]

Вот такой код:
with Form1.ADOQuery3 do
begin
close;
SQL.Clear;
SQL.Add('Select Index');
SQL.Add('from tPayments');
SQL.Add('Where Date=Date');
Parameters.ParseSQL(SQL.Text,True);
Prepared:=true;
Parameters.ParamValues['pdate']:=date;
open;
end;
ADOQuery3.Last;
Label1.Caption:=IntToStr(ADOQuery3.FieldByName('In dex').asInteger);
Index1:=StrToInt(Label1.Caption)+6;
//////////////////////////////////////////
with Form4.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('Select Date, Payments');
SQL.Add('From tPayments');
SQL.Add('Where Index<=Index');
Parameters.ParseSQL(SQL.Text,True);
Prepared:=true;
Parameters.ParamValues['pIndex']:=Index1;
open;

Так вот в Label'е горит НУЛЬ, а в таблице отображаются совсе не те записи, которые мне нужны. Почему, кто-нить подскажет?

[NiiliT]

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

Так вот в Label'е горит НУЛЬ, а в таблице отображаются совсе не те записи, которые мне нужны. Почему, кто-нить подскажет?

1) в каком Label'е ? надеюсь что в нем: Label1.Caption ...
2) ну типа такого: я не знаю что у тебя в таблице хранится
3) Parameters.ParamValues['pdate']:=date; это мне не нравится!!!!!!!!!!!! т.к. будучи в здавом уме и трезвой памяти: дата обычно пишется в формате:'14/03/2007 10:45:00' а когда ты приравниваешь так то получается:

'14/03/2007 10:45:00' = '14/03/2007 00:00:00'

т.е время округляется в нули!!! и это: вытаскивай из поля дату!!!))
4) ну и ADOQuery3.Last; переход на последнюю запись

ЗЫ: опять же какая БД? структура таблиц? и данные? (все надо!!!)
ЗЫЗЫ: буду предсказателем

[Aristarh Dark]

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

Код:

With Query do
  begin
    SQL.Text:='SELECT MAX(Index) as MaxIndex '+
                   'FROM tPayments '+
                   'WHERE [Date]=:CurDate';
    Parameters.ParseSQL(SQL.Text,True);
    Parameters.ParamByName('CurDate'):=YourDate;
    Open;
    if RecordCount>0 then
      MyMaxIndex:=FieldByName('MaxIndex').AsInteger
    else
      MyMaxIndex:=-1;
    Close;
  end;
if MyMaxIndex=-1 then
  MessageDLG('Error in query :(',mtError,[mbOk],0);

Второй запрос понятен еще меньше Получить данные о датах и платежах для которых значение индекса меньше, чем значение индекса увеличенное на 6 (? - откуда цифира) полученное из первого запроса?
Может объяснишь что хотел получить в результате этих довольно таки запутанных действий?