CONVERTER STRING PARA TIME
Tenho o seguinte arquivo texto:
2;14-04-2010;12:00;100;200;gasolina;2;1;308
5;14-04-2010;14:00;100;200;gasolina;2;1;308
6;14-04-2010;10:49;100;200;gasolina;2;1;308
8;18-04-2010;15:00;100;500;gasolina;2;1;308
A terceira coluna representa a hora. Faço a importação para o banco de dados da seguinte forma:
rsBD!hora = Format(Separa(2), [Ô]hh:nn:ss[Ô])
Porem no banco de dados a hora que de acordo como arquivo texto esta 12:00 no banco de dados fica 00:00:00
a que esta 10:49 fica 00:53:31
Mesmo se no arquivo texto eu fizer
2;14-04-2010;12:00:00;100;200;gasolina;2;1;308
5;14-04-2010;14:00:00;100;200;gasolina;2;1;308
6;14-04-2010;10:49:00;100;200;gasolina;2;1;308
8;18-04-2010;15:00:00;100;500;gasolina;2;1;308
O erro contiua. O que pode estar acontecendo.
2;14-04-2010;12:00;100;200;gasolina;2;1;308
5;14-04-2010;14:00;100;200;gasolina;2;1;308
6;14-04-2010;10:49;100;200;gasolina;2;1;308
8;18-04-2010;15:00;100;500;gasolina;2;1;308
A terceira coluna representa a hora. Faço a importação para o banco de dados da seguinte forma:
rsBD!hora = Format(Separa(2), [Ô]hh:nn:ss[Ô])
Porem no banco de dados a hora que de acordo como arquivo texto esta 12:00 no banco de dados fica 00:00:00
a que esta 10:49 fica 00:53:31
Mesmo se no arquivo texto eu fizer
2;14-04-2010;12:00:00;100;200;gasolina;2;1;308
5;14-04-2010;14:00:00;100;200;gasolina;2;1;308
6;14-04-2010;10:49:00;100;200;gasolina;2;1;308
8;18-04-2010;15:00:00;100;500;gasolina;2;1;308
O erro contiua. O que pode estar acontecendo.
tenta substituir por H maiusculo
rsBD!hora = Format(Separa(2), [Ô]HH:nn:ss[Ô])
e ve se rola, as vzs é um erro bem simples
rsBD!hora = Format(Separa(2), [Ô]HH:nn:ss[Ô])
e ve se rola, as vzs é um erro bem simples
Ja tentei isto e não resolveu.
O engraçada é que se eu fizer o rsBD!hora=format(text1.text,[Ô]hh:nn[Ô]) o sistema grava certo.
Fiz um texte aqui fazendo Msgbox Format(Separa(2), [Ô]HH:nn:ss[Ô]) e o retorno é correto 12:00:00 depois 14:00:00 depois 10:59:00
O engraçada é que se eu fizer o rsBD!hora=format(text1.text,[Ô]hh:nn[Ô]) o sistema grava certo.
Fiz um texte aqui fazendo Msgbox Format(Separa(2), [Ô]HH:nn:ss[Ô]) e o retorno é correto 12:00:00 depois 14:00:00 depois 10:59:00
cara o conteudo de Separa(2) esta correto? manda um msgbox com ele pra ver no debug
um outro teste, joga Separa(2) em uma variavel e tenta inserir pra ver oq rola
um outro teste, joga Separa(2) em uma variavel e tenta inserir pra ver oq rola
Ja tentei tipo
E não tive exito nenhum, o retorno da msgbox também esta correto.
dim aux as date
aux=format(text1.text,[Ô]hh:nn[Ô])
rsBD!data=aux
E não tive exito nenhum, o retorno da msgbox também esta correto.
que formato esta o campo que esta recebendo o dado no banco? TIME ?
Sim, uso o Firebird e o formato esta como Time
Resolvi mudar o formato da campo para TimeStamp e no retorno da consulta formatar o valor do campo.
Muito obrigado pela ajuda
Muito obrigado pela ajuda
Tópico encerrado , respostas não são mais permitidas