CONSULTA A UMA FAIXA DE DATAS , URGENTE
Estou tendo problemas , estou tentando selecionnar uma faiza de datas atraves da SQL, dentro de uma tabela de caixa estou fazendo assim:
qrcantina.Close;
qrcantina.SQL.Clear;
qrcantina.SQL.Add(´select * from tbcaixa_cantina ´);
qrcantina.SQL.Add(´where data between :Parametro and :StrToDateParametro1´);
qrcantina.SQL.Add(´order by data´);
qrcantina.Parameters.ParamByName(´Parametro´).value := ´¬´ + data1.Text + ´¬´;
qrcantina.Parameters.ParamByName(´Parametro1´).value:= ´¬´ + data2.Text + ´¬´;
qrcantina.Open;
alguem tem ideo do que pode estar errado
qrcantina.Close;
qrcantina.SQL.Clear;
qrcantina.SQL.Add(´select * from tbcaixa_cantina ´);
qrcantina.SQL.Add(´where data between :Parametro and :StrToDateParametro1´);
qrcantina.SQL.Add(´order by data´);
qrcantina.Parameters.ParamByName(´Parametro´).value := ´¬´ + data1.Text + ´¬´;
qrcantina.Parameters.ParamByName(´Parametro1´).value:= ´¬´ + data2.Text + ´¬´;
qrcantina.Open;
alguem tem ideo do que pode estar errado
Trovão
Curtidas 0
Respostas
Anonymous
07/03/2003
Olá!!!
Eu faria assim:
qrCantina.Close;
qrCantina.SQL.Clear;
qrCantina.SQL.Text := ´SELECT * FROM tbcaixa_cantina WHERE Data >=:Parametro and Data<=:Parametro1´;
qrCantina.ParamByName(´pInicial´).AsDateTime := StrToDate(data1.text);
qrCantina.ParamByName(´pFinal´).AsDateTime := StrToDate(data2.text);
qrCantina.Prepare;
qrCantina.Open;
Espero ter ajudado
[]´s
Maurício
Eu faria assim:
qrCantina.Close;
qrCantina.SQL.Clear;
qrCantina.SQL.Text := ´SELECT * FROM tbcaixa_cantina WHERE Data >=:Parametro and Data<=:Parametro1´;
qrCantina.ParamByName(´pInicial´).AsDateTime := StrToDate(data1.text);
qrCantina.ParamByName(´pFinal´).AsDateTime := StrToDate(data2.text);
qrCantina.Prepare;
qrCantina.Open;
Espero ter ajudado
[]´s
Maurício
GOSTEI 0