[firebase-br] Formato de datas

Joel do Prado Junior joel em gerasoft.com.br
Seg Fev 28 10:56:59 -03 2005


Você já experimentou passar o parâmetro data utilizando o parambyname ?

QR_Entrega.IbQuery.Close;
QR_Entrega.IbQuery.SQL.Clear;
QR_Entrega.IbQuery.SQL.Add(SQL);
QR_Entrega.IbQuery.Sql.Add(' where e.par_vencimento =:Data');
QR_Entrega.IbQuery.Sql.Add(' order by vl_id, nome');
QR_Entrega.IbQuery.open;
QR_Entrega.preview;

QR_Entrega.ParamByName('Data').AsDate := StrToDate('05/03/05'); 
//Esta data seria 05 de março de 2005.
//Agora se quiser 03 de maio de 2005 digite StrToDate('03/05/05');





Davi Marcos escreveu:

>Ola pessoal.
>
>Estou com problemas com formatos de datas.
>Trabalho com o formato 'dd/mm/yy'
>Mais se eu fizer uma consulta assim o resulta é vazio.
>Só aceita 'dd/mm/yy'
>
>// Ex. que retorna vazio
>procedure Tprincipal.Relaodeboletos1Click(Sender: TObject);
>var SQL : string;
>begin
>Sql :=
>'SELECT C.IMPRIMIR, C.COD, C.NOME, C.DESCONTO, C.ID_S, C.id_r, C.DEPEN, C.ID_DEP, C.VALORMENS, '+
>'D.VL_ID, D.VL_SERIE, ' +
>'e.par_dados_id, e.par_vencimento ' +
>'from DADOS C INNER JOIN VALOR D ON C.ID_S = D.VL_ID inner join parcelas E ON e.par_dados_id = c.cod ' ;
>
>QR_Entrega.IbQuery.Close;
>QR_Entrega.IbQuery.SQL.Clear;
>QR_Entrega.IbQuery.SQL.Add(SQL);
>QR_Entrega.IbQuery.Sql.Add(' where e.par_vencimento = '+ #39 + '05/03/05' + #39);
>QR_Entrega.IbQuery.Sql.Add(' order by vl_id, nome');
>QR_Entrega.IbQuery.open;
>QR_Entrega.preview;
>end;
>
>
>Coloquei esse codigo no evento Show mais de nada adiantou.
>procedure Tprincipal.FormShow(Sender: TObject);
>begin
>ShortDateFormat := 'dd/mm/yy';
>DateSeparator:= '/';
>end;
>
>O que fazer?
>
>Grato,
>Davi Marcos
>______________________________________________
>FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>
>
>  
>




Mais detalhes sobre a lista de discussão lista