Consultar Aniversariantes do mês usando Ado/Access
Senhores,
Bom dia,
Estou com dificuldades usando o Ado com Access.
preciso de uma rotina que me mostre os clientes que fazem aniversário em um determinado mês utilizando Access com Ado.
Peguei uma rotina para Paradox/Bde que é da seguinte forma:
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
essa rotina dá um erro e eu não estou conseguindo adaptar para Ado.
Agradecido,
Saulo Mendes
Bom dia,
Estou com dificuldades usando o Ado com Access.
preciso de uma rotina que me mostre os clientes que fazem aniversário em um determinado mês utilizando Access com Ado.
Peguei uma rotina para Paradox/Bde que é da seguinte forma:
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
essa rotina dá um erro e eu não estou conseguindo adaptar para Ado.
Agradecido,
Saulo Mendes
Saulopms
Curtidas 0
Respostas
Adilsond
02/12/2003
Vá no access e verifique as funções. Para o mes utilize a função Month.
GOSTEI 0
Saulopms
02/12/2003
Senhores,
consegui fazer o código usando o Ado+access.
ficou da seguinte forma:
adoquery1.close;
adoquery1.clear;
adoquery1.sql.add(´select * from tabela where month(campodata)=´+edit1.text´);
adoquery1.open;
// usa-se o edit1 para digitar o mês (1,2,3... etc)
T+
Saulo Mendes
consegui fazer o código usando o Ado+access.
ficou da seguinte forma:
adoquery1.close;
adoquery1.clear;
adoquery1.sql.add(´select * from tabela where month(campodata)=´+edit1.text´);
adoquery1.open;
// usa-se o edit1 para digitar o mês (1,2,3... etc)
T+
Saulo Mendes
GOSTEI 0