
Checador en Visual
Publicado por Arturo (1 intervención) el 05/02/2015 20:17:01
¿Como puedo guardar la hora de entrada y salida del personal de una empresa, en SQL desde Visual?
Valora esta pregunta


0
'En General
Public Sql As String
Public cn As New ADODB.Connection
Public rs As ADODB.Recordset
' En procedimiento
Sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.mdb;Persist Security Info=False;"
cn.Open Sql
Set rs = New ADODB.Recordset
rs.Open "Empleados", cn, adOpenKeyset, adLockPessimistic, adCmdTable
' En procedimiento
rs.AddNew
rs.Fields("HoraEntrada").Value = La Hora de Entrada
rs.Fields("HoraSalida").Value = La Hora de salida
rs.Update