Aniversariantes do MÊS com Access
Olá Pessoal
Estou qual perdendo o resto dos meus cabelos.
Estou usando este código para buscar todos os aniversariante do mês, que escolho em um Edit. (1, 2, 3, ...) de um banco de dados Access, uso o ADOQuery para a conecção com o ADOConnection;
Por que meu código só retorna [color=red:ddf5aea744]´Erro não especificado!!!´[/color:ddf5aea744]
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(´select * from tb_teste´);
ADOQuery1.SQL.Add(´where extract(month from Nascimento) = :Mes´);
ADOQuery1.Parameters.ParamByName(´Mes´).[color=red:ddf5aea744]Value[/color:ddf5aea744] := StrToInt(txtMes.Text);
ADOQuery1.Prepared := True;
ADOQuery1.Open;
Será que é por causa da propriedade Value, pois o ADOQuery, não aparece o AsInteger.
Se alguém conseguir me ajudar, ficaria muito agradecido!!!
T+
Bertim
Estou qual perdendo o resto dos meus cabelos.
Estou usando este código para buscar todos os aniversariante do mês, que escolho em um Edit. (1, 2, 3, ...) de um banco de dados Access, uso o ADOQuery para a conecção com o ADOConnection;
Por que meu código só retorna [color=red:ddf5aea744]´Erro não especificado!!!´[/color:ddf5aea744]
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(´select * from tb_teste´);
ADOQuery1.SQL.Add(´where extract(month from Nascimento) = :Mes´);
ADOQuery1.Parameters.ParamByName(´Mes´).[color=red:ddf5aea744]Value[/color:ddf5aea744] := StrToInt(txtMes.Text);
ADOQuery1.Prepared := True;
ADOQuery1.Open;
Será que é por causa da propriedade Value, pois o ADOQuery, não aparece o AsInteger.
Se alguém conseguir me ajudar, ficaria muito agradecido!!!
T+
Bertim
Hcaixeta
Curtidas 0