PROBLEMA COM O DTPICKER
Amigos,
Estou Tentando inserir uma data vindo do DTPicker para uma Base SQL-Server, e quando ele insera no banco só insere o Valor [Ô]01/01/1900[Ô], mesmo o DTPicker estando com outra tada:
Segui o código:
Dim TB As ADODB.Recordset
Set TB = New ADODB.Recordset
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & DTInicio.Value & [Ô])[Ô]
TB.Open , cn, adOpenDynamic, adLockOptimistic
JA TENTEI COLOCA ELE EU UMA VARIAVEL PRA GRAVA NO BANCO E DA UM ERRA DE CONVERSSAO DE CHAR
ALGUEM PODE ME AJUDA?
OBS: SÓ POSSO INSERIR DESTA FORMA!!!
Estou Tentando inserir uma data vindo do DTPicker para uma Base SQL-Server, e quando ele insera no banco só insere o Valor [Ô]01/01/1900[Ô], mesmo o DTPicker estando com outra tada:
Segui o código:
Dim TB As ADODB.Recordset
Set TB = New ADODB.Recordset
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & DTInicio.Value & [Ô])[Ô]
TB.Open , cn, adOpenDynamic, adLockOptimistic
JA TENTEI COLOCA ELE EU UMA VARIAVEL PRA GRAVA NO BANCO E DA UM ERRA DE CONVERSSAO DE CHAR
ALGUEM PODE ME AJUDA?
OBS: SÓ POSSO INSERIR DESTA FORMA!!!
apaga ele e coloca novamente so pra testar
CHALESTON10
Fiz isso agora mesmo E Continua sem funcionar!!!
o pior q estava funcionando perfeitamente, e de uma hora pra outra naum quer funciona mais!!!
Fiz isso agora mesmo E Continua sem funcionar!!!
o pior q estava funcionando perfeitamente, e de uma hora pra outra naum quer funciona mais!!!
amigo isso eu já vi ocorrer quando você coloca um valor em branco em um campo datatime do sql.
tente assim:
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format( DTInicio, [Ô]yyyy-dd-mm hh:mm:ss.000[Ô]) & [Ô])[Ô]
abraço!
tente assim:
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format( DTInicio, [Ô]yyyy-dd-mm hh:mm:ss.000[Ô]) & [Ô])[Ô]
abraço!
LUIZCOMINO,
eu fiz da maneira q vc me postou, naum funcionou ai foi modificando, e chega a grava mais emdoida a data, tipo:
a data no DTinicio esta: 14/01/2011
assim: a data gravada no banco fica:17/06/1894
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format(DTInicio.Value, [Ô]mm-dd-yyyy[Ô])) & [Ô])[Ô]
assim: a data gravada no banco fica:13/07/1894
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format(DTInicio.Value, [Ô]dd-mm-yyyy[Ô])) & [Ô])[Ô]
assim: a data gravada no banco fica:20/06/1905
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format(DTInicio.Value, [Ô]yyyy-mm-dd[Ô])) & [Ô])[Ô]
e assim: a data gravada no banco fica:20/06/1905
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format(DTInicio.Value, [Ô]yyyy-dd-mm[Ô])) & [Ô])[Ô]
e agora!!!
eu fiz da maneira q vc me postou, naum funcionou ai foi modificando, e chega a grava mais emdoida a data, tipo:
a data no DTinicio esta: 14/01/2011
assim: a data gravada no banco fica:17/06/1894
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format(DTInicio.Value, [Ô]mm-dd-yyyy[Ô])) & [Ô])[Ô]
assim: a data gravada no banco fica:13/07/1894
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format(DTInicio.Value, [Ô]dd-mm-yyyy[Ô])) & [Ô])[Ô]
assim: a data gravada no banco fica:20/06/1905
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format(DTInicio.Value, [Ô]yyyy-mm-dd[Ô])) & [Ô])[Ô]
e assim: a data gravada no banco fica:20/06/1905
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format(DTInicio.Value, [Ô]yyyy-dd-mm[Ô])) & [Ô])[Ô]
e agora!!!
Amigo faça um testecrie uma variavel do tipo string e jogo a data do DTInicio nela.:
ex:
Dim Data as String
Data=DTInicio
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format(CVDate(Data), [Ô]dd-mm-yyyy[Ô])) & [Ô])[Ô]
ex:
Dim Data as String
Data=DTInicio
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & Format(CVDate(Data), [Ô]dd-mm-yyyy[Ô])) & [Ô])[Ô]
você tem certeza que ele não está vindo vazio o DTInicio?
coloca uma msgbox para testar ex:
msgbox DTInicio
veja se ele traz exatamente o que está na DTInicio
coloca uma msgbox para testar ex:
msgbox DTInicio
veja se ele traz exatamente o que está na DTInicio
LUIZCOMINO,
Naum Rola TB, Já havia testado antes e tendei colocando o Format tb e da o mesmo problema de antes!!!!
tô doidinho aki, só ta faltando isso pra eu entrega o projeto, e o q me deixa mas PUTO é q tava funcionando direitinho e de uma hora pra uotra deixou de funcionar, ate pegei as versões anterioris q eu tenho e estou ser funcionar tb agora, q merda!!! ja fui em opções regionais, ja tentei de outra maquina e nada!!!
Naum Rola TB, Já havia testado antes e tendei colocando o Format tb e da o mesmo problema de antes!!!!
tô doidinho aki, só ta faltando isso pra eu entrega o projeto, e o q me deixa mas PUTO é q tava funcionando direitinho e de uma hora pra uotra deixou de funcionar, ate pegei as versões anterioris q eu tenho e estou ser funcionar tb agora, q merda!!! ja fui em opções regionais, ja tentei de outra maquina e nada!!!
Já fiz o Msgbox tb é traz o valhor correto, coloquei ate um assim
msgbox tb.source e taz tudo direitinho, só naum grava como deveria!!!
e te digo mais, ACABEI DE FAZER UM TESTE AKI E AGORA FOI Q FUFU MESMO, EU COLOQUEI ASSIM
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & DATE & [Ô])[Ô]
E O MAIS INTERESSANTE, ESTA GRAVANDO [Ô]01/01/1900[Ô]
O PROBLEMA NAUM é NO DTInicio e sim no processo de gravação...
msgbox tb.source e taz tudo direitinho, só naum grava como deveria!!!
e te digo mais, ACABEI DE FAZER UM TESTE AKI E AGORA FOI Q FUFU MESMO, EU COLOQUEI ASSIM
TB.Source = [Ô]INSERT INTO TABELA1 ([Ô]DATA_INICIO[Ô]) VALUES ([Ô] & DATE & [Ô])[Ô]
E O MAIS INTERESSANTE, ESTA GRAVANDO [Ô]01/01/1900[Ô]
O PROBLEMA NAUM é NO DTInicio e sim no processo de gravação...
qual é o tipo do campo? é datetime ou só date?
campo: datetime banco SQL-Server 2000 naum existe o tipo só date
Tópico encerrado , respostas não são mais permitidas