запрос на дату

[WALL]

Вот в чем вопрос - на dat1 и dat2 пишет ошибку Undeclared identifier, как исправить ?

    With Form2.ADOQuery2 do
           Begin
             If Active Then
                Close;
             SQL[2] := 'WHERE Дата_завершения  BETWEEN :Dat1 AND :Dat2;';
             Parameters[0].DataType:=ftDate;
             Parameters[0].Value:=Dat1;
             Parameters[1].DataType:=ftDate;
             Parameters[1].Value:=Dat2;
             Open;
 if (ADOQuery2.RecordCount>=1) then
 else
     MessageDlg('Нужно пройти врача', mtInformation,[mbOK],0)
      end
end;

[mihali4]

Задайте в инспекторе объектов параметры dat1 и dat2 вручную, явно...

[WALL]

задал в ручную, тоже самое

[mihali4]

Что такое
SQL[2] := 'WHERE Дата_завершения BETWEEN :Dat1 AND :Dat2;'; ?
А где SQL[1] ? А где операция их суммирования ? Где операция присвоения Form2.ADOQuery2.SQL.Text ?

З.Ы. А это что такое ?

SQL[2] := 'WHERE Дата_завершения  BETWEEN :Dat1 AND :Dat2;';
...
Parameters[0].Value:=Dat1; !!!

Посмотрели бы хоть пример из штатного хэлпа:

Query2.SQL.Clear;

Query2.SQL.Add('INSERT INTO COUNTRY (NAME, CAPITAL, POPULATION)');
Query2.SQL.Add('VALUES (:Name, :Capital, :Population)');

Query2.Params[0].AsString := 'Liechtenstein';
Query2.Params[1].AsString := 'Vaduz';
Query2.Params[2].AsInteger := 420000;
Query2.ExecSQL;

или

Supplying parameters at runtime

To create parameters at runtime, you can use the

ParamByName method to assign values to a parameter based on its name (not available for TADOQuery)
Params or Parameters property to assign values to a parameter based on the parameter's ordinal position within the SQL statement.
Params.ParamValues or Parameters.ParamValues property to assign values to one or more parameters in a single command line, based on the name of each parameter set.

The following code uses ParamByName to assign the text of an edit box to the :Capital parameter:

SQLQuery1.ParamByName('Capital').As String := Edit1.Text;

The same code can be rewritten using the Params property, using an index of 0 (assuming the :Capital parameter is the first parameter in the SQL statement):

SQLQuery1.Params[0].AsString := Edit1.Text;

The command line below sets three parameters at once, using the Params.ParamValues property:

Query1.Params.ParamValues['Name;Capital;Continent'] :=
VarArrayOf([Edit1.Text, Edit2.Text, Edit3.Text]);

Note that ParamValues uses Variants, avoiding the need to cast values.

[_SERGEYX_]

var Dat1, Dat2: TDateTime;

Dat1:= Date; 
Dat2:= //чему-то там......или компилятор сам догадаться должен?

[WALL]

Обьясните пожалуйста как правильно. Спасибо большое

[mihali4]

Смотрите п.4

[WALL]

опишите по подробнее а то че то я не втыкаю, простите

[palevg]

Куда уж подробнее? Тут такие киты объяснили уже ))))))
Попробую по-другому (типа, для танкистов)

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

Вот в чем вопрос - на dat1 и dat2 пишет ошибку Undeclared identifier, как исправить ?

Ясен перец, ошибка. У Вас ведь Dat1 и Dat2 не объявлены (например, var Dat1, Dat2: TDate).
Как вариант, попробуйте изменить код совсем немножко, ну хоть вот так:

    With Form2.ADOQuery2 do
           Begin
             If Active Then
                Close;
             SQL[2] := 'WHERE Дата_завершения  BETWEEN :Dat1 AND :Dat2;';
             Parameters[0].DataType:=ftDate;
             Parameters[0].Value:=Date;
             Parameters[1].DataType:=ftDate;
             Parameters[1].Value:=Date;
             Open;
 if (ADOQuery2.RecordCount>=1) then
 else
     MessageDlg('Нужно пройти врача', mtInformation,[mbOK],0)
      end
end;

Date в коде - это дата сегодняшнего дня. Ошибки уже не будет. А дальше поставите свой код.

[WALL]

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

Куда уж подробнее? Тут такие киты объяснили уже ))))))
Попробую по-другому (типа, для танкистов)



Ясен перец, ошибка. У Вас ведь Dat1 и Dat2 не объявлены (например, var Dat1, Dat2: TDate).
Как вариант, попробуйте изменить код совсем немножко, ну хоть вот так:

    With Form2.ADOQuery2 do
           Begin
             If Active Then
                Close;
             SQL[2] := 'WHERE Дата_завершения  BETWEEN :Dat1 AND :Dat2;';
             Parameters[0].DataType:=ftDate;
             Parameters[0].Value:=Date;
             Parameters[1].DataType:=ftDate;
             Parameters[1].Value:=Date;
             Open;
 if (ADOQuery2.RecordCount>=1) then
 else
     MessageDlg('Нужно пройти врача', mtInformation,[mbOK],0)
      end
end;

Date в коде - это дата сегодняшнего дня. Ошибки уже не будет. А дальше поставите свой код.

ошибка list index out of bounds 2

3. Не флудить. Флудом (пустой болтовней) считается все, не относящееся к теме. Здесь не чат, а форум серьезно увлеченных людей.
К флуду относится также:
- необоснованное (не требующееся по смыслу) цитирование предыдущего поста;
- размещение своих постов подряд друг за другом - пользуйтесь кнопкой "Правка" для изменения своего сообщения.
За флуд - автор поста получит нарушение №1 - "Флуд" и 2 очка штрафа.