Anónimo
Hora y fecha al insertar en la base de datos
Tengo dos campos
sle_1.text=fecha
sle_2.text=hora
Previamente en el evento timer cree la hora y la fecha
Ahora quiero insertar la fecha y la hora a mi tabla en la base de datos en diferentes campos
alguna solución como poner le insert
sle_1.text=fecha
sle_2.text=hora
Previamente en el evento timer cree la hora y la fecha
Ahora quiero insertar la fecha y la hora a mi tabla en la base de datos en diferentes campos
alguna solución como poner le insert
1 Respuesta
Respuesta de Nestor Tirado Díaz
1
Bien esas variables que creaste para mostrar la fecha y la hora, las puedes usar para el Insert:
INSERT INTO Clientes( Fecha, Hora)
VALUE ( :fecha, :hora) Using SQLCA;
// Validamos la Ejecución del SQL
If SQLCA.SQLCODE = 0 Then
MessageBox("MENSAJE", "Datos Almacenados")
// No ocurrio ningun Error, GUARDAMOS
Commit Using SQLCA;
Else
MessageBox("MENSAJE", "Error al Guardar", StopSign!)
// Ocurrio un error, No se Guarda
RollBack Using SQLCA;
End If
Bueno eso seria todo, si tienes más dudas, házmelas saber.
INSERT INTO Clientes( Fecha, Hora)
VALUE ( :fecha, :hora) Using SQLCA;
// Validamos la Ejecución del SQL
If SQLCA.SQLCODE = 0 Then
MessageBox("MENSAJE", "Datos Almacenados")
// No ocurrio ningun Error, GUARDAMOS
Commit Using SQLCA;
Else
MessageBox("MENSAJE", "Error al Guardar", StopSign!)
// Ocurrio un error, No se Guarda
RollBack Using SQLCA;
End If
Bueno eso seria todo, si tienes más dudas, házmelas saber.
Te explico mejor
Creo un eevento timer lo siguiente
st_11.text=string(now(),"hh:mm:ss am/pm")
st_12.text=string(today())
Ahora el el ventó open puse
timer(1)
Ahora quiero guardar esas variables en dos campos diferente en la base de datos
mediante el insert alguna solucion
Creo un eevento timer lo siguiente
st_11.text=string(now(),"hh:mm:ss am/pm")
st_12.text=string(today())
Ahora el el ventó open puse
timer(1)
Ahora quiero guardar esas variables en dos campos diferente en la base de datos
mediante el insert alguna solucion
// Creamos variables de tipo Date y Time
Date ld_fecha
Time lt_hora
// Ingresamos la fecha y la hora a las variables
ld_fecha = Date(st_12.Text) // FECHA
ld_hora = Time(st_11.Text) // HORA
INSERT INTO Clientes( Fecha, Hora)
VALUE ( :ld_fecha, :lt_hora) Using SQLCA;
// Validamos la Ejecución del SQL
If SQLCA.SQLCODE = 0 Then
MessageBox("MENSAJE", "Datos Almacenados")
// No ocurrio ningun Error, GUARDAMOS
Commit Using SQLCA;
Else
MessageBox("MENSAJE", "Error al Guardar", StopSign!)
// Ocurrio un error, No se Guarda
RollBack Using SQLCA;
End If
Date ld_fecha
Time lt_hora
// Ingresamos la fecha y la hora a las variables
ld_fecha = Date(st_12.Text) // FECHA
ld_hora = Time(st_11.Text) // HORA
INSERT INTO Clientes( Fecha, Hora)
VALUE ( :ld_fecha, :lt_hora) Using SQLCA;
// Validamos la Ejecución del SQL
If SQLCA.SQLCODE = 0 Then
MessageBox("MENSAJE", "Datos Almacenados")
// No ocurrio ningun Error, GUARDAMOS
Commit Using SQLCA;
Else
MessageBox("MENSAJE", "Error al Guardar", StopSign!)
// Ocurrio un error, No se Guarda
RollBack Using SQLCA;
End If