O que esta errado na minha consulta?
Bom Dia,
Senhores, fiz esta query abaixo e não sei o que esta acontecendo, alguém poderia me dar alguma luz?
with bancos do begin
QTblApreamb.Close;
QTblApreamb.SQL.Clear;
QTblApreamb.sql.add (´select * from Apreamb where data < :Data order by data´);
QTblApreamb.ParamByName(´Data´).Value := StrToDateTime(edit1.text);
QTblApreamb.Open;
if QTblApreamb.FieldByName(´data´).Value < StrToDate(Edit1.Text) then begin
btnincluir.Enabled := false;
end;
end;
Obrigado
Senhores, fiz esta query abaixo e não sei o que esta acontecendo, alguém poderia me dar alguma luz?
with bancos do begin
QTblApreamb.Close;
QTblApreamb.SQL.Clear;
QTblApreamb.sql.add (´select * from Apreamb where data < :Data order by data´);
QTblApreamb.ParamByName(´Data´).Value := StrToDateTime(edit1.text);
QTblApreamb.Open;
if QTblApreamb.FieldByName(´data´).Value < StrToDate(Edit1.Text) then begin
btnincluir.Enabled := false;
end;
end;
Obrigado
Rscrj
Curtidas 0
Respostas
Imoreira
01/12/2003
Ao trabalhar com datas em instrução sql não se esqueça de formatá-la para o padrão americano, ou seja: ´mm/dd/yyyy´.
Um exemplo:
QTblApreamb.ParamByName(´Data´).Value := [color=red:9491eabf12]formatdatetime(´mm/dd/yyyy´,strtodate(edit1.text)); [/color:9491eabf12]
Um exemplo:
QTblApreamb.ParamByName(´Data´).Value := [color=red:9491eabf12]formatdatetime(´mm/dd/yyyy´,strtodate(edit1.text)); [/color:9491eabf12]
GOSTEI 0
Maurício Santos
01/12/2003
Olá!!!
Vc não informou a mensagem de erro, mas pelo que pude ver vc está utilizando a palavra Data, e essa palavra é, se não me engano, uma palavra reservada do Delphi. Troque essa palavra por outra e faça o teste.
[]´s
Vc não informou a mensagem de erro, mas pelo que pude ver vc está utilizando a palavra Data, e essa palavra é, se não me engano, uma palavra reservada do Delphi. Troque essa palavra por outra e faça o teste.
[]´s
GOSTEI 0
Rscrj
01/12/2003
Agradeço pela informação prestada.
GOSTEI 0