INSERT INTO DATA

IRENKO 02/10/2006 14:45:28
#175032
Bd_Hora.Execute ("INSERT INTO HExtra (Codigo,Data,Matricula,HInicial,HFinal,SaldoHora,Nome,Setor,CCusto) values ('" & TxtCod.Text & "','" & Format(TxtData.Text, "mm/dd/yyyy") & "','" & Lb_Mat.Caption & "','" & TxtHinicial.Text & "','" & TxtHfinal.Text & "','" & TxtSaldo.Text & "','" & Lb_Nome.Caption & "','" & Lb_Setor.Caption & "','" & Lb_Custo.Caption & "')")

Estou tentando gravar o campo DATA na tabela mas esta gravando erroniamente
digito no textBox 02/10/2006 grava 10/0

o campo na tabela esta como Data/Time
Banco access
FABIO.LOUREIRO 02/10/2006 14:57:11
#175036
campo data para gravar utilizar:


DAO: *
ADO #


Exemplo:

Bd_Hora.Execute ("INSERT INTO HExtra (Codigo,Data,Matricula,HInicial,HFinal,SaldoHora,Nome,Setor,CCusto) values ('" & TxtCod.Text & "',#" & Format(TxtData.Text, "mm/dd/yyyy") & "#,'" & Lb_Mat.Caption & "','" & TxtHinicial.Text & "','" & TxtHfinal.Text & "','" & TxtSaldo.Text & "','" & Lb_Nome.Caption & "','" & Lb_Setor.Caption & "','" & Lb_Custo.Caption & "')")


Aspa simples indica caracter não data.
USUARIO.EXCLUIDOS 02/10/2006 14:59:01
#175037
Irenko, tente colocar ao invés de aspas simples para o campo data, o caracter #.

Bd_Hora.Execute ("INSERT INTO HExtra (Codigo,Data,Matricula,HInicial,HFinal,SaldoHora,Nome,Setor,CCusto) values ('" & TxtCod.Text & "',#" & Format(TxtData.Text, "mm/dd/yyyy") & "#,'" & Lb_Mat.Caption & "','" & TxtHinicial.Text & "','" & TxtHfinal.Text & "','" & TxtSaldo.Text & "','" & Lb_Nome.Caption & "','" & Lb_Setor.Caption & "','" & Lb_Custo.Caption & "')")


Se não der certo, provavelmente o problema está no formato da data que vc está gravando.

Format(TxtData.Text, "mm/dd/yyyy")
tente inverter o formato...
Ex.:
Format(TxtData.Text, "yyyy/mm/dd")

Geralmente o mesmo precisa estar igual ao formato da data abreviada configurada nas configurações regionais se não me engano, mas realmente não tenho certeza, não manjo muito de Access...rs
IRENKO 02/10/2006 15:19:53
#175043
mudei o campo da tabela para texto e gravou corretamente com seus exemplos.
USUARIO.EXCLUIDOS 02/10/2006 15:31:27
#175046
e como DateTime deu erro??? não gravou certo??
IRENKO 02/10/2006 15:36:27
#175049
Com como DateTime grava como 02/1
USUARIO.EXCLUIDOS 02/10/2006 15:55:45
#175059
Citação:

IRENKO escreveu:
mudei o campo da tabela para texto e gravou corretamente com seus exemplos.



Nem faz isso cara, não é recomendado, vc pode ter problemas na hora de realizar uma consulta a ordenação vem errada...:-/

Tem como postar seu BD, pode ser só com essa tabela...flw
IRENKO 02/10/2006 16:25:36
#175085
Tem razão Matioli, posteriormente terei que fazer consultas baseando nas datas, mas como resolver? segue BD anexo é pequeno.
USUARIO.EXCLUIDOS 02/10/2006 18:15:02
#175109 Resposta escolhida
Cara, comigo aqui funfo normal, exatamente com a rotina passada por vc, só coloquei um Begin e ComitTrans:

Bd_Hora.BeginTrans
Bd_Hora.Execute "INSERT INTO HExtra (Codigo,Data,Matricula,HInicial,HFinal,SaldoHora,Nome,Setor,CCusto) " & _
                "values ('" & txtCod.Text & "','" & Format(txtData.Text, "mm/dd/yyyy") & "','" & Lb_mat.Caption & "','" & txtHInicial.Text & "','" & txtHFinal.Text & "','" & txtSaldo.Text & "','" & lb_nome.Caption & "','" & lb_setor.Caption & "','" & lb_custo.Caption & "')"
Bd_Hora.CommitTrans


Veja as alterações no BD em anexo...flw
IRENKO 02/10/2006 18:23:32
#175112
Matioli, estou achando que é o aplicativo que abro o banco, uso VisData ele so me da problema. Vc tem uma sugestão de um aplicativo melhor para criação e edição de banco de dados desse tipo?
USUARIO.EXCLUIDOS 02/10/2006 18:28:52
#175114
Iche...nem conheço esse VisData, é aquele que cria os forms pro VB? Prefiro fazer o bd no access mesmo e os códigos na unha...flw
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar