|
|
Postada em 29/08/2010 18:24 hs
oi pessoal estou criando uma pequena aplicaçao de registro de entrada e saida de funcionario, mais nao estou conseguindo salvar a data/hora no meu banco de dados como faço isso?se alguem puder me ajudar ou me mostrar no que estou errando por favor me ajude...segue minha rotina.Private Sub cmdregistrar_Click()'salva data/hora no banco de dados.datadomeusistema = Format(Now, "dd,mm,yyyy")horadomeusistema = Format(Now, "h:mm:ss")Data1.RecordSource = "Insert into funcionario(data ,entrada,nome)values(datadomeusistema, horadomeusistema,nome)"End Sub
|
|
|
|
|
|
|
|
Postada em 29/08/2010 19:42 hs
Qual banco de dados vc esta usando ? |
|
|
|
|
|
Postada em 29/08/2010 21:34 hs
access.
|
|
|
|
|
|
Postada em 30/08/2010 00:12 hs
Gravação em access tem algumas perculariedade
é bom gravar no formato "yyyy,mm,dd" que é o formato americano,
e usar o # na data ... exemplo "#2010,08,21#"
outra coisa, é bom especificar o erro, qual o erro que dar quando vc tentou salvar a data?? ou o sistema passou e nao apareceu no banco?
Precisando estamos ae :D
|
|
|
|
Fausto
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 30/08/2010 11:26 hs
Andre Felipe
Antes de mais mada, para "Minutos" usa "n" e não "m".
m Mês
y Dia do ano
d Dia
w Dia da semana
ww Semana
h Hora
n Minuto
s Segundo Faça um Teste com este exemplo. Coloque um Timer no Formulário e altere o "Interval dele para 1000". Private Sub Timer1_Timer()
datadomeusistema.text = Format(Date, "dd/mm/yyyy")
horadomeusistema.Text = Format(Now, "hh:nn:ss")
End Sub cmdGravar_Click()
'Db,Banco Éo seu Banco
Db.Execute "Insert into funcionario(data ,entrada,nome)values(datadomeusistema, horadomeusistema,nome)"
End sub Se vc quiser faço um exmplo simples com ado para ver e modificar a seu gosto. |
|
|
|
|
|
Postada em 30/08/2010 19:43 hs
Fausto se puder fazer este exemplo agradecerei muito, servira como conteudo de estudo.
Muito Obrigado.
|
|
|
|
