Data e select
Como posso fazer para truncar data, para poder montar a expressão sql ?
Estou fazendo o seguinte:Tenho dois maskedit aonde digito a data.estou truncando a data mais da o erro: valor inteiro inválido.
var data1, data2:integer;
begin
data1:=Trunc(StrToInt(MaskEdit1.Text));
data2:=Trunc(StrToInt(MaskEdit2.Text));
Query1.SQL.Text:=´SELECT * FROM Caa102 WHERE DtPedido Between ´+ IntToStr(data1) + ´ AND ´+ IntToStr(data2) +´´;
AGRADEÇO A TODOS QUE ME AJUDAREM, VALEU !!!
Estou fazendo o seguinte:Tenho dois maskedit aonde digito a data.estou truncando a data mais da o erro: valor inteiro inválido.
var data1, data2:integer;
begin
data1:=Trunc(StrToInt(MaskEdit1.Text));
data2:=Trunc(StrToInt(MaskEdit2.Text));
Query1.SQL.Text:=´SELECT * FROM Caa102 WHERE DtPedido Between ´+ IntToStr(data1) + ´ AND ´+ IntToStr(data2) +´´;
AGRADEÇO A TODOS QUE ME AJUDAREM, VALEU !!!
Jeanfiamoncini
Curtidas 0
Respostas
Maxadens
26/11/2003
Colega.
Não se trunca valor inteiro nem datas e não se converte strings para inteiros com barras no meio. O delphi não trata datas como o excel!!!
Eu estou sem delphi no momento mas de cabeça eu vou tentar te ajudar.
faz assim:
Query1.SQL.Text:=´SELECT * FROM Caa102 WHERE DtPedido Between ´+ FormatDateTime(´MM/DD/YYYY´, StrToDate(data1)) + ´ AND ´+ FormatDateTime(´MM/DD/YYYY´, StrToDate(data2)) +´´;
qualquer problema mande um e-mail para
made_in_mundo@hotmail.com
Ronaldo Araujo
Desenvolvedor.
Não se trunca valor inteiro nem datas e não se converte strings para inteiros com barras no meio. O delphi não trata datas como o excel!!!
Eu estou sem delphi no momento mas de cabeça eu vou tentar te ajudar.
faz assim:
Query1.SQL.Text:=´SELECT * FROM Caa102 WHERE DtPedido Between ´+ FormatDateTime(´MM/DD/YYYY´, StrToDate(data1)) + ´ AND ´+ FormatDateTime(´MM/DD/YYYY´, StrToDate(data2)) +´´;
qualquer problema mande um e-mail para
made_in_mundo@hotmail.com
Ronaldo Araujo
Desenvolvedor.
GOSTEI 0