hola hermano como estas, fijate yo para guardar fechas desde el formulario hacia una base de datos hecha en access, primero coloco esto para que se muestre la fecha en el formulario, usando una etiqueta o bine se llame label
Private Sub Form_Load()
Dim MiFecha
MiFecha = Date
Label1.Caption = MiFecha
end sub
de esta forma se mostrara la fecha en el formulario.
para guardar esa fecha en la base de datos hago esta conexion
Private Sub Command5_Click()
Dim respu As Integer
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "F:\Planillas\Planilla emergencia\modelo.mdb")
FECHADEMONITOREO = Label32
SQL = "INSERT INTO RECIPIENTE (FECHADEMONITERO)"
SQL = SQL & " VALUES ("
SQL = SQL & "'" & FECHADEMONITOREO & "')"
con.Execute (SQL)
respu = MsgBox("Datos guardados con exito", vbInformation, "Información")
RECIPIENTE ES EL NOMBRE DE LA BASE DE DATOS Y FECHA DE MONITOREO ES EL NOMBRE DEL CAMPO DONDE DESEAS GUARDAR LA FECHA
OTRO COSA SI DESEAS GUARDAR EN ESA MISMA BASE DE DATOS VARIOS CAMPO PUEDES HACERLO ASI, EJEMPLO:
Private Sub Command5_Click()
Dim respu As Integer
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "F:\Planillas\Planilla emergencia\modelo.mdb")
CEDULA = Text1.Text
NOMBRE = Text2.Text
FECHADEINGRESO = Text3.Text
supervisor = Text5.Text
JPHONE = Text7.Text
Analista = Combo1
SQL = "INSERT INTO RECIPIENTE (CEDULA, NOMBRE, FECHADEINGRESO, SUPERVISOR, JPHONE, ANALISTA)"
SQL = SQL & " VALUES ("
SQL = SQL & "'" & CEDULA & "',"
SQL = SQL & "'" & NOMBRE & "',"
SQL = SQL & "'" & FECHADEINGRESO & "',"
SQL = SQL & "'" & supervisor & "',"
SQL = SQL & "'" & JPHONE & "',"
SQL = SQL & "'" & codigonumero & "')"
If CEDULA = "" Or Analista = "" Or PROGRAMA = "" Or TIPODEMONITOREO = "" THEN
respu = MsgBox("Debe ingresar los datos completos", vbExclamation, "Advertencia")
Else
con.Execute (SQL)
respu = MsgBox("Datos guardados con exito", vbInformation, "Información")
End If
End Sub
ESTA BINE EXPLICADITO HERMANO ESPERO TE SIRVA SI NO ENTIENDES ALGO ANALIZA...
MUHAMMA YUNUS PREMIO NOBEL DE LA PAZ DICE:
"ALGUN DIA NUESTROS NIETOS VISITARAN LOS MUSEOS PARA VER LO QUE ERA POBREZA".
