Ошибка SQL запроса

[brick08]

Доброго времени суток!
Не работает код запроса, указанный в свойствах Query1:

SELECT * FROM :TTABLE WHERE (DATE>:IDATE)

Вот код общий:

procedure TForm1.TabSheet3Show(Sender: TObject);
var idate:TDate;
begin
if Query1.Active then Query1.Close;
//query1.SQL.Clear;
idate:=incmonth(Date,-1);
Query1.ParamByName('IDATE').Value := idate;
Query1.ParamByName('TTABLE').Value := 'CHL_ALF3';
//Query1.sql.add('SELECT * FROM CHL_ALF3 WHERE "DATE" >'+datetostr(idate));
//Query1.sql.add('SELECT * FROM :TTABLE WHERE (DATE>:IDATE)');
TRY
Query1.Open; 
EXCEPT
END;//try

Выдает ошибку:
Token unknown - line 1, char 14.
Подскажите в чем может быть ошибка?
База - Interbase. Может нельзя было поле называть DATE?

[evg_m]

SELECT * FROM :TTABLE WHERE (DATE>:IDATE)

Здесь параметр нельзя использовать.

SQL.text:='SELECT * from ' +stringtablename + ' WHERE (DATE>:IDATE)';

[brick08]

Сделал так:

procedure TForm1.TabSheet3Show(Sender: TObject);
var idate:string;
begin
if Query1.Active then Query1.Close;
idate:=datetostr(incmonth(Date,-1));
Query1.sql.add('SELECT * FROM CHL_ALF3 WHERE DATE >'+idate);
TRY
Query1.Open;
EXCEPT
END;//try

Но теперь выдает ошибку: Insufficient memory for this operation
В общем нужно сделать чтобы в ДБГрид занеслись данные только за последний месяц, но почему то не получается.
Перезапустил Делфи, теперь выдает ошибку:
Token unknown - line 1, char 23

[Аватар]

Если бы внимательно посмотрели что evg_m написал, то ошибки бы не было

[Serge_Bliznykov]

очистить надо запрос то!

Query1.sql.Clear;

и я бы дату передавал в запрос через параметер.
Это много надёжней!

[brick08]

Сделал вот так:

procedure TForm1.TabSheet3Show(Sender: TObject);
var idate:TDate;
stringtablename:string;
begin
Query1.Close;
Query1.SQL.Clear;
idate:=incmonth(Date,-1);
stringtablename:='CHL_ALF3_ALF3';
Query1.Params.CreateParam(ftDate, 'IDATE', ptUnknown);
Query1.sql.Text:='SELECT * from ' +stringtablename+ ' WHERE (DATE > :IDATE)';
Query1.ParamByName('IDATE').Value:= idate;
TRY
Query1.Open;
EXCEPT
END;//try

Все равно выдает:
Token unknown - line 1, char 40

[evg_m]

stringtablename:='CHL_ALF3_ALF3';
Query1.Params.CreateParam(ftDate, 'IDATE', ptUnknown);
Query1.sql.Text:='SELECT * from ' +stringtablename+ ' WHERE (DATE > :IDATE)';
Query1.ParamByName('IDATE').Value:= idate;

Уберите выделенную строчку.

База - Interbase. Может нельзя было поле называть DATE?

Ну и поле конечно желательно переименовать.

[brick08]

Переименовал поле, заработало с Create. Без Create значение параметра принимало вещественный тип, а не дату.
И еще вопрос при запуске программы очень долго подключается к базе, хотя она локальная. В чем может быть причина?

[progdelf]

Здравствуйте... подскажите пожалуйста такую тему связанную с подключением к бд SQL что это может быть?? и как это исправить ???
при подключений и выборе базы данных SQL выводит следующую ошибку

[Serge_Bliznykov]

progdelf, создавайте свою тему в подходящем разделе (например, я не уверен вообще, что у Вас Delphi!), чётко формулируйте вопрос - что за ЯП, какая СУБД, через что (какие компоненты) подключаетесь, код подключения и т.д.


А ЭТУ ТЕМУ Я ЗАКРЫВАЮ.