
07/04/2011, 16:38
|
| | Fecha de Ingreso: abril-2011
Mensajes: 2
Antigüedad: 13 años, 11 meses Puntos: 0 | |
viejo mi problema es este: Cita:
Iniciado por juanutcm ok te paso como podria ser:
Private sub Form_Load()
Dim MiFecha
Dim MiHora
MiFecha=Date
MiHora=Time
'Aqui lo puedes hacer de dos formas
'Con etiquetas
lblFecha.Caption=MiFecha
lblHora.Caption=MiHora
'O con TextBox
txtFecha.Text=MiFecha
txtHora.Text=MiHora
End Sub
'Ahora en el evento click del boton
Private Sub Command1_Click()
'Aqui tambien tienes dos formas depasarlo a la base de datos puedes hacer que la fecha y la hora se guarden en un campo distinto osea cada dato es un campo o bien en un solo campo lo puedes hacer todo abajo se ejemplifica mejor
'Aqui se hace cada dato por separado
CampoBaseDatosFecha=txtFecha.Text'O la etiqueta como lo prefieras
CampoBaseDatosHora=txtFecha.Text
'Aqui se hace junto todo
CampoBaseDatosFechaHora=txtFecha.Text & " " &txtHora.Text
End Sub
Bien espero te ayude... suerte |