Estoy trabajando con una MDB de ACCES de un reloj checador
y tienes una tabla de checadas
Esta tabla tiene un campo tipo DATETIME
quiero obtener este campo para saber fecha y hora
peroooooooooooooo
sale en blanco
La conexion a la MDB ya lo tengo
LA creacion del Recor ya esta , pero al ver lo que trae este record en ese campo viene vacio
Alguien me puede echar la mano con eso, no logro obtenerlo.
GetRecSet('SELECT * FROM USERINFO')
Esta es mi coneccion a la MDB
- Code: Select all Expand view RUN
STATIC FUNCTION ConnectToAccess(__cRuta)
local lConnect := .f.
local cStr := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ;
__cRuta+"att2000.mdb;User Id=admin;Password=;"
IF oCon == nil
oCon := TOleAuto():new("ADODB.Connection")
oCon:ConnectionString := cStr
TRY
oCon:Open()
lConnect := .t.
CATCH
oCon := nil
MsgInfo('Connect Fail')
return nil
END
ELSE
lConnect := .t.
ENDIF
RETURN lConnect
Esta es el Record
- Code: Select all Expand view RUN
STATIC FUNCTION GetRecSet(__Tabla)
LOCAL oRecSet
IF oCon != nil .and. oRs == nil
oRs := TOleAuto():new( "ADODB.RecordSet" )
oRs:ActiveConnection := oCon
oRs:Source := __Tabla
oRs:LockType := 4 // adLockOptimistic
oRs:CursorLocation := 3 //adUseClient
oRs:CacheSize := 100
TRY
oRs:Open()
CATCH
MsgInfo('Access Table Open Failure')
return nil
END
ENDIF
oRecSet := oRs:Clone()
IF oRs:RecordCount() > 0
oRecSet:Sort := oRecSet:Fields(0):Name
oRecSet:MoveFirst()
ENDIF
RETURN oRecSet
