Fórum Erro SQL #205499

cria um var q receba o extract(month from DataNasc)
ex:
procedure exemplo;
var
x,campo:string;

begin
x:=´DELPHI´;
campo:=´Nome´;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´select * from tbcursos where ´+campo+´=´´+x+´´´);
Query1.Open;

end;

ou este

procedure exemplo2;
var
campo:string;

begin

campo:=´codigo´;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´select * from tbcursos where ´+campo+´= 11´);
Query1.Open;

end;


espero ter dado uma LUZ :idea:

:?:
DataNasc é de q tipo???

eu olhe melhor o seu sql e acho melhor vc criar campos: Dia,Mes,Ano

ou tenta fazer isso:
declara na sua tabela DataNasc como A (alfanumerico)
no seu form de cadasto armazena DataNasc assim ex: ´02/11/04´

no sql faza

Select Nome, DataNasc, Telefone
From Clientes
where DataNasc >=´00/11/00´ {ou ´ /11/ ´}
Order By DataNasc

espero ter lhe ajudado :idea:

Valeu irmao ...

Use uma Query como abaixo:

- Coloque no form os seguintes componentes:

* TQuery

* TDataSource

* TDBGrid

* TEdit

* TButton

- Altere as propriedades dos componentes como abaixo:

* Query1.DatabaseName = (alias do BDE)

* DataSource1.DataSet = Query1

* DBGrid1.DataSource = DataSource1

- Coloque o código abaixo no evento OnClick de Button1:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´select * from dCli´);
Query1.SQL.Add(´where extract(month from DataNasc) = :Mes´);
Query1.ParamByName(´Mes´).AsInteger := StrToInt(Edit1.Text);
Query1.Open;
- Execute. Digite um número de 1 a 12 no Edit e clique no botão.

Observações

Os números de 1 a 12 representam, respectivamente, os meses de Janeiro a Dezembro. Este exemplo foi testado com Delphi4, BDE5 e tabela Paradox7.