Private Sub cmdDownload01_Click()
If lStatusKonek Then
If chkDownload.Value = 0 Then
cmdDownload01.Enabled = False
MousePointer = vbHourglass
End If
Dim dwEnrollNumber As Long
Dim dwVerifyMode As Long
Dim dwInOutMode As Long
Dim timeStr As String
Dim i As Long
Dim lAddNew As Boolean
Dim v1 As String, v2 As Long, v3 As Long
lvX.Refresh
If chkDownload.Value = 1 Then
lvX.ListItems.Clear
End If
v1 = CStr(!no_id)
v2 = !baudrate
v3 = !no_port
If CZKEM1.ReadGeneralLogData(v1) Then
i = 1
CZKEM1.ReadAllUserID v1 ”cboNoMesin01
While CZKEM1.GetGeneralLogDataStr(v1, dwEnrollNumber, dwVerifyMode, dwInOutMode, timeStr)
lvX.ListItems.Add i, , dwEnrollNumber
With lvX.ListItems(i)
.SubItems(1) = IIf(IsNull(timeStr), “”, timeStr)
.SubItems(2) = IIf(IsNull(v1), “”, v1)
.SubItems(3) = IIf(IsNull(dwVerifyMode), “”, IIf(dwVerifyMode = 1, “Fingerprint”, “Password”))
DoEvents
End With
Dim d_TimeStr As Date
d_TimeStr = CDate(Left(Right(Left(timeStr, 10), 2) & “-” & Mid(Left(timeStr, 10), 6, 2) & “-” & Left(Left(timeStr, 10), 4) & ” ” & Right(Trim(timeStr), 8), Len(Right(Left(timeStr, 10), 2) & “-” & Mid(Left(timeStr, 10), 6, 2) & “-” & Left(Left(timeStr, 10), 4) & ” ” & Right(Trim(timeStr), 8))))
lvX.ListItems.Add i, , dwEnrollNumber
With lvX.ListItems(i)
.SubItems(1) = IIf(IsNull(timeStr), “”, timeStr)
.SubItems(2) = IIf(IsNull(v1), “”, v1)
.SubItems(3) = IIf(IsNull(dwVerifyMode), “”, IIf(dwVerifyMode = 1, “Fingerprint”, “Password”))
DoEvents
End With
End If
End With
lvX.Refresh
Wend
End If
.MoveNext
Wend
End With
If chkDownload.Value = 0 Then
cmdDownload01.Enabled = True
MousePointer = vbDefault
End If
adoMesinConnect.Close
End If
End Sub
September 24, 2008 at 9:45 am
Hallo, bisa tolong jelaskan apakah script di atas bisa menarik data dari mesin finger dengan IP/Port misalnya 192.168.0.248/2000, dengan semua merk mesin fingerprint?
October 15, 2008 at 2:31 pm
coba dulu ah…..
November 12, 2008 at 6:31 pm
can i get a vfp equiavalent for this ?
November 13, 2008 at 8:21 am
Hi, sbabu…
its work in VFP too.
November 19, 2009 at 8:00 am
I tried in Ms Access, it’s ok, working well but when I close my form it generates an error: “Ms Access has generated error and will be closed by windows..” and quit from the application. Do I miss something? I am using vb demo with some adjustment to be use in Ms Access
December 24, 2009 at 10:05 am
Every body, could you show me how to delete one access time from timetrex A8 machine? I’m using vb6. Thank a lot. Please reply me to kazaaok@yahoo.com
May 5, 2010 at 11:30 am
Oya kenapa kalo type Solution X400 ngga bisa ditarik yah, tp kalo solution X100, berhasil.