Gestion du temps de presence du personnel:rapatriement des données des pointeuse

Signaler
Messages postés
4
Date d'inscription
vendredi 6 août 2010
Statut
Membre
Dernière intervention
20 septembre 2010
-
aera group
Messages postés
382
Date d'inscription
mercredi 23 août 2006
Statut
Membre
Dernière intervention
8 novembre 2010
-
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

1 réponse

Messages postés
382
Date d'inscription
mercredi 23 août 2006
Statut
Membre
Dernière intervention
8 novembre 2010
10
Merci de poster sur la partit du site qui s'occupe du VB
________
Aéra