主题：考勤机数据下载 代码 求助

 对方不是有给你vb.net的实例么？去看看人家的例子和帮助

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:中控考勤机.rar

Dim iGLCount = 0
Dim idwErrorCode As Integer
Dim iMachineNumber As Integer = 1
Dim sdwEnrollNumber As String = ""
Dim idwVerifyMode As Integer
Dim idwInOutMode As Integer
Dim idwYear As Integer
Dim idwMonth As Integer
Dim idwDay As Integer
Dim idwHour As Integer
Dim idwMinute As Integer
Dim idwSecond As Integer
Dim idwWorkcode As Integer
AxCZKEM1.EnableDevice(iMachineNumber, False) 'disable the device
If AxCZKEM1.ReadGeneralLogData(iMachineNumber) Then 'read all the attendance records to the memory
    'get records from the memory
    While AxCZKEM1.SSR_GetGeneralLogData(iMachineNumber, sdwEnrollNumber, idwVerifyMode, idwInOutMode, idwYear, idwMonth, idwDay, idwHour, idwMinute, idwSecond, idwWorkcode)
        iGLCount += 1
        output.show(iGLCount.ToString())
        output.show(sdwEnrollNumber)
       
        output.show(idwVerifyMode.ToString())
        output.show(idwInOutMode.ToString())
        output.show(idwYear.ToString() & "-" + idwMonth.ToString() & "-" & idwDay.ToString() & " " & idwHour.ToString() & ":" & idwMinute.ToString() & ":" & idwSecond.ToString())
        output.show(idwWorkcode.ToString())
    End While
Else
    AxCZKEM1.GetLastError(idwErrorCode)
    If idwErrorCode <> 0 Then
        MsgBox("Reading data from terminal failed,ErrorCode: " & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
    Else
        MsgBox("No data from terminal returns!", MsgBoxStyle.Exclamation, "Error")
    End If
End If

AxCZKEM1.EnableDevice(iMachineNumber, True) 'enable the device

output.show是在命令窗口显示的。

http://www.foxtable.com/webhelp/scr/2642.htm

参考代码

Dim iGLCount = 0
Dim idwErrorCode As Integer
Dim iMachineNumber As Integer = 1
Dim sdwEnrollNumber As String = ""
Dim idwVerifyMode As Integer
Dim idwInOutMode As Integer
Dim idwYear As Integer
Dim idwMonth As Integer
Dim idwDay As Integer
Dim idwHour As Integer
Dim idwMinute As Integer
Dim idwSecond As Integer
Dim idwWorkcode As Integer
AxCZKEM1.EnableDevice(iMachineNumber, False) 'disable the device
If AxCZKEM1.ReadGeneralLogData(iMachineNumber) Then 'read all the attendance records to the memory
    'get records from the memory
    Dim t As Table = Tables("表A")
    While AxCZKEM1.SSR_GetGeneralLogData(iMachineNumber, sdwEnrollNumber, idwVerifyMode, idwInOutMode, idwYear, idwMonth, idwDay, idwHour, idwMinute, idwSecond, idwWorkcode)
        iGLCount += 1
        Dim nr As Row = t.addnew
        nr("第一列") = idwYear.ToString()
        nr("第二列") = iGLCount.ToString()
        output.show(iGLCount.ToString())
        output.show(sdwEnrollNumber)
        output.show(idwVerifyMode.ToString())
        output.show(idwInOutMode.ToString())
        output.show(idwYear.ToString() & "-" + idwMonth.ToString() & "-" & idwDay.ToString() & " " & idwHour.ToString() & ":" & idwMinute.ToString() & ":" & idwSecond.ToString())
        output.show(idwWorkcode.ToString())
    End While
Else
    AxCZKEM1.GetLastError(idwErrorCode)
    If idwErrorCode <> 0 Then
        MsgBox("Reading data from terminal failed,ErrorCode: " & idwErrorCode, MsgBoxStyle.Exclamation, "Error")
    Else
        MsgBox("No data from terminal returns!", MsgBoxStyle.Exclamation, "Error")
    End If
End If

AxCZKEM1.EnableDevice(iMachineNumber, True) 'enable the device

代码应该没问题，你试试重置列

http://www.foxtable.com/webhelp/scr/1469.htm

以下是引用hunanwl在2018/5/3 15:59:00的发言：
甜甜老师  为什么我  的总是有问题呢   我也托管了zkemkeeper.dll

此主题相关图片如下：微信截图_20180503155618.png

看5楼、7楼

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=80122&skin=0

以下是引用hunanwl在2018/5/3 15:59:00的发言：
甜甜老师  为什么我  的总是有问题呢   我也托管了zkemkeeper.dll

此主题相关图片如下：微信截图_20180503155618.png

请在foxtable的dll那里删除此dll的引用。