Access e SQL (EXTRACT(MONHT...) Erro Indeterminado!

27/08/2004

Olá a todos.

Uso o ADO com Delphi 6 e um MDB Criado no ACCESS 2003.
Tenho uma query para gerar um relatório por mês da data de nascimento.
Quando tento executá-la ocorre um erro.
MSG: ERRO INDETERMINADO. A
A query é a seguinte:

{Faz a Seleção da Query Para Dia e Mês como Selecionados}
DmBiblio.qryLeitores.Close;
DmBiblio.qryLeitores.SQL.Clear;
DmBiblio.qryLeitores.SQL.Add(´select * from db_leitores where extract(month from DataNascimento) = ´ + QuotedStr(txtMes.Text));
// DmBiblio.qryLeitores.Parameters.ParamByName(´pMes´).Value := StrToInt(txtMes.Text);
DmBiblio.qryLeitores.Open;


Det. Mesmo usando ParamByName.... Dá o mesmo erro.

Engraçado que usando a sentença SQL em um banco de dados MySql
direto pelo MySQL dá certinho....

O que há de errado?

Agradeço aos que puderem colaborar com uma dica.

Raphael
microbios@indinet.com.br





---------[color=blue:a25b3c2363]
:arrow: Título editado pelo moderador Nildo.
:arrow: Não utilize caixa alta nos títulos.[/color:a25b3c2363]
:idea: [color=red:a25b3c2363]Leia as regras de conduta [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]aqui[/url][/color:a25b3c2363]


Microbios

Respostas

27/08/2004

Thomaz_prg

É que no Access não é aceito o comando Extract.
Tenta fazer assim:

DmBiblio.qryLeitores.Close; 
DmBiblio.qryLeitores.SQL.Clear; 
DmBiblio.qryLeitores.SQL.Add(´select * from db_leitores where month(DataNascimento) = ´ + txtMes.Text); 
DmBiblio.qryLeitores.Open;



Responder Citar