Gestion du temps de presence du personnel:rapatriement des données des pointeuse
etiennenono
Messages postés4Date d'inscriptionvendredi 6 août 2010StatutMembreDernière intervention20 septembre 2010
-
17 sept. 2010 à 17:10
aera group
Messages postés382Date d'inscriptionmercredi 23 août 2006StatutMembreDernière intervention 8 novembre 2010
-
19 sept. 2010 à 00:05
bonjour,
Il ya environ deux mois que je vous ai posé un probleme concernant les pointeuses, mais en ce moment je n'avais vraiment aucune idée. Entre temps j'ai pu pouser les recherches et j'ai un peu avance. Je realise une application qui doit extraire les données dans une pointeuse et les stocker dans une base de données oracle( version 10g) installé sur un poste de travail, ce dernier étant en reseau avec la pointeuse. Voici le code:
Public construction_message, Message_recu As String
Public tampon As String
Dim CZKEM As Object
Private WithEvents CZKEM1 As CZKEM
Private conn As Boolean
Private Sub apply_Click()
Dim lngMachineNumber As Long
Dim lngTMachineNumber(0) As Long
Dim lngEnrollNumber(0) As Long
Dim lngEMachineNumber(0) As Long
Dim lngVerifyMode(0) As Long
Dim lngYear(0) As Long
Dim lngMonth(0) As Long
Dim lngDay(0) As Long
Dim lngHour(0) As Long
Dim lngMinute(0) As Long
Dim conn As Boolean
lngMachineNumber = 1
Set CZKEM1 = New CZKEM
'Make a connection
conn=CZKEM1.Connect_Net("192.168.10.19", 4370)
if conn= false then
beep
End if
else
conn = CZKEM1.ReadAllGlogData(lngMachineNumber)
If conn = False Then
Exit Sub
Else
While (CZKEM1.GetGeneralLogData(lngMachineNumber, _
lngTMachineNumber(0), _
lngEnrollNumber(0), _
lngEMachineNumber(0), _
lngVerifyMode(0), _
lngYear(0), _
lngMonth(0), _
lngDay(0), _
lngHour(0), _
lngMinute(0)) = True)
Debug.Print “Pass Machine Number = “ & CStr(lngTMachineNumber(0))
Debug.Print “Enroll Number = “ & CStr(lngEnrollNumber(0))
Debug.Print “E-Machine Number = “ & CStr(lngEMachineNumber(0))
Debug.Print “Verify Mode = “ & CStr(lngVerifyMode(0))
Debug.Print CString(lngYear(0)) & “-“ & _
Format(lngMonth(0), “00”) & “-“ & _
Format(lngDay(0), “00”) & “ “ & _
Format(lngHour(0), “00”) & “:” & _
Format(lngMinute(0), “00”)
End while
End If
End Sub
Private Sub close_click()
If conn= false Then
CZKEM1.Disconnect
End If
Set CZKEM1 = Nothing
End Sub
Mon probleme est le suivant: premierement je veut savoir si mon code presente des erreurs ( il est écrit en vb) et deuxiemement j'arrive pas à ecrire la partie pour le rapatriément dans la base. svp s'il en a des personnes qui ont eu à travailler sur de pareil application, j'ai vraiment besoin de leur aide, car j'arrive plus à avancer.
Merci