Boa tarde;
Ha algum tempo atrás tive alguns problemas com o mysql, muito parecido.
Na aplicação, era exibido a data inicia do SO.
Algo parecido com o seu 30/12/1899 00:00:00.
Mas ao abrir o banco de dados com um Front-End, verifiquei que a data estava
preenchida com zeros.
(0000/00/00 00:00:00).
Como esta data nunca existiu, o programa não abria este cadastro.
Resolvi o problema setando para NULL os campos preenchidos com esta data.
UPDATE table SET data=NULL WHERE data='0000/00/00 00:00:00';
Resolveu o problema.
--
Oséias Ferreira.
----- Original Message -----
From: "Celso Martins" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, September 15, 2004 1:27 PM
Subject: RES: [delphi-br] DELPHI 6 com POSTGRES 7.4.1
Eu utilizo o driver ODBC com ADO...
Outra coisa qual é o tipo definido no Posgres do campo "ddataembar"
Mais uma: Eu utilizaria (como faço nos meus sistemas) da seguinte forma:
edit2.text := qry_embarque.FieldByName('ddataembar').AsString
ou ainda
edit2.text := FormatDateTime('dd/MM/yyyy',qry_embarque.FieldByName(
ddataembar').Value);
Obs.: Esta data que está retornando é o "marco zero". Isto significa que o
valor passado está nulo.
Sds,
Celso do A. Vianna Martins
Desenvolvimento de Sistemas
-------------------------------------------------------
Archive ISP - Rio de Janeiro - RJ
www.archive.com.br
[EMAIL PROTECTED]
[EMAIL PROTECTED]
ICQ 202634027
"Tudo aquilo que algum idiota diz que é urgente, é algo que
este imbecil não fez em tempo hábil e quer que você se foda
para fazer em tempo recorde."
-------Mensagem original-------
De: [EMAIL PROTECTED]
Data: 09/15/04 12:55:56
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] DELPHI 6 com POSTGRES 7.4.1
Meu problema eh o seguinte Celso.
Faço um select na query
SELECT
idembar,
ddataembar,
srasotrans,
stifrembar,
nvafrembar,
sobs1embar,
sobs2embar
FROM
"FATEMBAR",
"FATTRANS"
WHERE
idembar = :Pembarque
and idtrans = itranembar
NO EVENTO ONCLICK EU COLOCO ESSE CÓDIGO.
with qry_embarque do
begin
close;
ParamByName('Pembarque').AsInteger := StrToInt(edt_embarque.text);
ExecSQL;
end;
qry_embarque.Active := true;
if not qry_embarque.IsEmpty then
begin
edit1.text := (qry_embarque.FieldValues['idembar']);
edit2.text := (qry_embarque.FieldValues['ddataembar']);
edit3.text := (qry_embarque.FieldValues['srasotrans']);
edit4.text := (qry_embarque.FieldValues['stifrembar']);
edit5.text := (qry_embarque.FieldValues['nvafrembar']);
memo2.text := (qry_embarque.FieldValues['sobs1embar']);
memo3.text := (qry_embarque.FieldValues['sobs2embar']);
end;
certo.
No edit2.text := (qry_embarque.FieldValues['ddataembar']);
SO QUE NO EDIT2 FICA 00:00:00
E se eu colocar
edit2.text := DateToStr(qry_embarque.FieldValues['ddataembar']);
FICA ASSIM 30/12/1899
E se eu der um select no banco direto a data eh retornada certa.
Não sei onde esta o problema se eh na estrutura ou no drive ODBC no caso o
componente ZEOS.
O que vc usa para conectar???
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
