Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 108,947

HOME > .NET Framework > Forum > ติดปัญหาการ select ข้อมูลรหัสลายนิ้วมือ ฐานข้อมุล MySQL + VB2012



 

ติดปัญหาการ select ข้อมูลรหัสลายนิ้วมือ ฐานข้อมุล MySQL + VB2012

 



Topic : 112559



โพสกระทู้ ( 37 )
บทความ ( 0 )



สถานะออฟไลน์




สวัสดีครับ
ผมกำลังทำโปรเจ็คจบเกี่ยวกับระบบสแกนลายนิ้วมือโดยใช้ Finger Print ครับ
ผมเลือกใช้ URU4000B ฐานข้อมุลที่ใช้เป้น MySQL ภาษาที่ใช้ vb.net (vb2012)
ตอนนี้ผมสามารถเพิ่มข้อมูลได้แล้ว โดยเก็บค่า fpstring ที่ใช้ในการค้นหาเป็นรหัสประมาณ 1000กว่าตัวอักษรได้
ตามภาพนี้ครับ
เอสคิวแอลลายนิ้วมือ

ตอนนี้ติดปัญหาอยู่ตรงขั้นตอนการค้นหาลายนิ้วมือครับ
เนื่องจากมันไม่สามารถใช้ Select แบบค่าปกติได้
เพราะว่าค่า String ที่ได้จากลายนิ้วมือจะเปลี่ยนตลอด
ผมได้ศึกษามาว่ามันตรวจจับจุดที่เหมือนกันประมาณ 5 จุด เพื่อยื่นยันบุคคล

ภาพนี้เป็นซอสโค๊ดของโปรแกรมตัวอย่างนะครับ (จากตัวอย่างใช้ MS Access)
read_finger

ผมต้องการให้เป็น MySQL ครับ
ใครพอช่วยได้บ้างครับ ติดเพียงค้นหา
มันไม่สามารถ Select ตรงตัวได้ผมไม่รู้ว่า ถ้าเป็น MySQL จะมีคำสั่งอย่างไรครับ

ขอบคุณมาก ๆ เลยครับ



Tag : .NET, MySQL, VB.NET, VS 2012 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2014-11-14 11:34:20 By : thanabordees93 View : 5459 Reply : 69
 

 

No. 1



โพสกระทู้ ( 9,293 )
บทความ ( 2 )



สถานะออฟไลน์


อยากจะช่วย แต่พอเจอรูปภาพ ก็ขี้เกียจขึ้นมาทันทีครับ
แก้เป็น text ครับ เดียวจะเข้ามาช่วย(ถ้ามี text ให้ก๊อป)






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-14 13:19:00 By : Chaidhanan
 


 

No. 2



โพสกระทู้ ( 37 )
บทความ ( 0 )



สถานะออฟไลน์


อันนี้โค๊ดตัวอย่างในส่วนของค้นหาข้อมูลโดยใช้ MS Access เอามาจากโปรแกรมตัวอย่างครับ

Code (VB.NET)
    ' อ่านข้อมูลลายนิ้วมือจากฐานข้อมูล
    Private Sub AddFinger()
        Dim sTemp As String
        'Dim strDataSourcePath As String
        Dim rsSelect As New ADODB.Recordset

        DataBasePath = My.Application.Info.DirectoryPath
        Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBasePath & "\dbFingerprint.mdb;Persist Security Info=False")

        FingerCount = 0
        fpcHandle = ZKFPEngX1.CreateFPCacheDB

        rsSelect.Open("Select * from us_userinfo", Conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        rsSelect.MoveFirst()
        While Not rsSelect.EOF
            sTemp = rsSelect.Fields("fpstring").Value
            ZKFPEngX1.AddRegTemplateStrToFPCacheDB(fpcHandle, FingerCount, sTemp)
            ReDim Preserve FFingerCode(FingerCount + 1)
            ReDim Preserve FFingerNames(FingerCount + 1)
            ReDim Preserve FFingerPic(FingerCount + 1)
            If rsSelect.Fields("code").Value <> "" Then
                FFingerCode(FingerCount) = rsSelect.Fields("code").Value
            Else
                FFingerCode(FingerCount) = ""
            End If
            If rsSelect.Fields("name").Value <> "" Then
                FFingerNames(FingerCount) = rsSelect.Fields("name").Value
            Else
                FFingerNames(FingerCount) = ""
            End If
            If rsSelect.Fields("pic").Value <> "" Then
                FFingerPic(FingerCount) = rsSelect.Fields("pic").Value
            Else
                FFingerPic(FingerCount) = ""
            End If
            FingerCount = FingerCount + 1
            rsSelect.MoveNext()
        End While
        rsSelect.Close()
    End Sub


ไฟล์ทั้งหมด ตัวอย่างและ SDK ผมแนบไฟล์ไว้ที่
https://drive.google.com/folderview?id=0BwK3L4J8YBbgb2JPbVlTcUVkQk0&usp=sharing

ขอบคุณมากครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-14 13:58:52 By : thanabordees93
 

 

No. 3



โพสกระทู้ ( 9,293 )
บทความ ( 2 )



สถานะออฟไลน์


อันนี้เป็นตัวอย่างที่ ดึงมาเปรียบเทียบ และตัวอย่างที่เซฟ ลายนิ้วมือ มีไหมครับ
หรือว่าอยู่ใน Fingerpirnt.zip ครับ อันนั้นเห็นเป็น โปรแกรม
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-14 14:19:19 By : Chaidhanan
 


 

No. 4



โพสกระทู้ ( 37 )
บทความ ( 0 )



สถานะออฟไลน์


ใน FingerPrint.ZIP มันเป้นตัวอย่างทั้งโปรแกรมเลยครับ แต่เป้นของเดิมที่เค้าใช้ MS Access
ผมเอามาแปลงเป็นบันทึกเป็น MySQL แล้ว คีย์รหัสลายนิ้วมือเป็น Fpstring รูปแบบเดียวกับในตัวอย่าง
ส่วนโค๊ดค้นหาเปรียบเทียบผมเห็นมีอยู่แค่อันนี้ครับ เป้นของ MS Access ผมทำให้มันเป้น MySQL ไม่ถูก

Code (VB.NET)
' อ่านข้อมูลลายนิ้วมือจากฐานข้อมูล
Private Sub AddFinger()
    Dim sTemp As String
    'Dim strDataSourcePath As String
    Dim rsSelect As New ADODB.Recordset

    DataBasePath = My.Application.Info.DirectoryPath
    Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBasePath & "\dbFingerprint.mdb;Persist Security Info=False")

    FingerCount = 0
    fpcHandle = ZKFPEngX1.CreateFPCacheDB

    rsSelect.Open("Select * from us_userinfo", Conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
    rsSelect.MoveFirst()
    While Not rsSelect.EOF
        sTemp = rsSelect.Fields("fpstring").Value
        ZKFPEngX1.AddRegTemplateStrToFPCacheDB(fpcHandle, FingerCount, sTemp)
        ReDim Preserve FFingerCode(FingerCount + 1)
        ReDim Preserve FFingerNames(FingerCount + 1)
        ReDim Preserve FFingerPic(FingerCount + 1)
        If rsSelect.Fields("code").Value <> "" Then
            FFingerCode(FingerCount) = rsSelect.Fields("code").Value
        Else
            FFingerCode(FingerCount) = ""
        End If
        If rsSelect.Fields("name").Value <> "" Then
            FFingerNames(FingerCount) = rsSelect.Fields("name").Value
        Else
            FFingerNames(FingerCount) = ""
        End If
        If rsSelect.Fields("pic").Value <> "" Then
            FFingerPic(FingerCount) = rsSelect.Fields("pic").Value
        Else
            FFingerPic(FingerCount) = ""
        End If
        FingerCount = FingerCount + 1
        rsSelect.MoveNext()
    End While
    rsSelect.Close()
End Sub


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-14 14:27:36 By : thanabordees93
 


 

No. 5



โพสกระทู้ ( 296 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook

การเปลี่ยน Access เป็น Mysql
1. Export Access ออกมาเป็น .sql
2. Import .sql นั้นใส่ลงใน Mysql หรือ จะ Import Data base จาก ไฟล์ Access เลยก็ได้
3. ในส่วนของของโค้ด เปลียนจาก OleDB เป็น Mysql (คือเปลี่ยนคำว่า OleDB เป็น MySQL ในทุกส่วนของโค้ดอะ)
4. เปลี่ยน Connection string จาก
Code (VB Code)
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBasePath & "\dbFingerprint.mdb;Persist Security Info=False" 

ให้เป็น
Code (VB Code)
"Persist Security Info=False;database=dbname;server=ip เครื่องที่ลง mysql;Connect Timeout=30;Port=3306;CharSet=utf8;user id=UID;Password=password"


เงื่อนไขให้ค้นหาที่เหมือนกัน 5 จุดเพื่อยืนยันตัวบุคคลใช่ไหมครับ ลองใช้ Like '%%' เชื่อมเงื่อนไข ด้วย And 5 ครั้งได้ไหมครับ อันนี้ผมคิดเฉยๆนะครับ ผมไม่ทราบเหมือนกันว่า 1000 ตัวอักษรที่ว่านี้ มีทั้งหมดกี่จุด และ แต่ละจุดมีกี่ตัวอักษร คุณลองแสกนนิ้วของคุณ ซัก 10 ครั้งแล้วเอา รหัสที่ได้มาดูเทียบกันซักสิบครั้งดูครับ ว่ามันเปลี่ยนตรงไหนบ้าง จะได้ตั้งเงื่อนไขถูก

ปล. มีซอร์ดโค้ดโปรแกรมตัวอย่างแล้วโปรแกรมตัวอย่างนั้น เค้าไม่มีปุ่มค้นหามาให้หรอครับ


ประวัติการแก้ไข
2014-11-15 01:32:52
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-15 01:32:28 By : zarooman
 


 

No. 6



โพสกระทู้ ( 37 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 5 เขียนโดย : zarooman เมื่อวันที่ 2014-11-15 01:32:28
รายละเอียดของการตอบ ::
กดค้นหาแล้ว พอเอานิ้วจิ้มลงเครื่องสแกนนิ้ว มันจะเรียกฟังก์ชั่นนี้ขึ้นมาอะครับ ที่เป้นการค้นหาลายนิ้วมือจากฐานข้อมูล
Code (VB.NET)
' อ่านข้อมูลลายนิ้วมือจากฐานข้อมูล
Private Sub AddFinger()
    Dim sTemp As String
    'Dim strDataSourcePath As String
    Dim rsSelect As New ADODB.Recordset

    DataBasePath = My.Application.Info.DirectoryPath
    Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBasePath & "\dbFingerprint.mdb;Persist Security Info=False")

    FingerCount = 0
    fpcHandle = ZKFPEngX1.CreateFPCacheDB

    rsSelect.Open("Select * from us_userinfo", Conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
    rsSelect.MoveFirst()
    While Not rsSelect.EOF
        sTemp = rsSelect.Fields("fpstring").Value
        ZKFPEngX1.AddRegTemplateStrToFPCacheDB(fpcHandle, FingerCount, sTemp)
        ReDim Preserve FFingerCode(FingerCount + 1)
        ReDim Preserve FFingerNames(FingerCount + 1)
        ReDim Preserve FFingerPic(FingerCount + 1)
        If rsSelect.Fields("code").Value <> "" Then
            FFingerCode(FingerCount) = rsSelect.Fields("code").Value
        Else
            FFingerCode(FingerCount) = ""
        End If
        If rsSelect.Fields("name").Value <> "" Then
            FFingerNames(FingerCount) = rsSelect.Fields("name").Value
        Else
            FFingerNames(FingerCount) = ""
        End If
        If rsSelect.Fields("pic").Value <> "" Then
            FFingerPic(FingerCount) = rsSelect.Fields("pic").Value
        Else
            FFingerPic(FingerCount) = ""
        End If
        FingerCount = FingerCount + 1
        rsSelect.MoveNext()
    End While
    rsSelect.Close()
End Sub




แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-15 09:57:22 By : thanabordees93
 


 

No. 7



โพสกระทู้ ( 9,293 )
บทความ ( 2 )



สถานะออฟไลน์


Code (VB.NET)
Public Class Form1
    Dim con As MySql.Data.MySqlClient.MySqlConnection
    Dim cmd As MySql.Data.MySqlClient.MySqlCommand
    Dim rsSelect As MySql.Data.MySqlClient.MySqlDataReader
    Dim sTemp As String
    Dim StatusAdd As Integer
    Dim FTempLen As Integer
    Dim FRegTemplate As Object
    Dim FingerCount As Long
    Dim fpcHandle As Long
    Dim FFingerCode() As String    'รหัส
    Dim FFingerNames() As String    'ชื่อ
    Dim FFingerPic() As String    'รูป
    Dim FMatchType As Integer
    Dim ItemFinger As String    'ลายนิ้ว
    Dim ItemPathNoPic As String    'ไม่มีรูป

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        con = New MySql.Data.MySqlClient.MySqlConnection(
                "server=localhost;user id=test;Password=test;database=test;persist security info=False")
        cmd = New MySql.Data.MySqlClient.MySqlCommand()
        cmd.Connection = con 'this.msqlConnection;
        cmd.CommandText = "SELECT * FROM us_userinfo"
        Try
            FingerCount = 0
            'fpcHandle = ZKFPEngX1.CreateFPCacheDB
            con.Open()
            rsSelect = cmd.ExecuteReader()
            While rsSelect.Read()
                sTemp = rsSelect.GetString("fpstring")
                'ZKFPEngX1.AddRegTemplateStrToFPCacheDB(fpcHandle, FingerCount, sTemp)
                ReDim Preserve FFingerCode(FingerCount + 1)
                ReDim Preserve FFingerNames(FingerCount + 1)
                ReDim Preserve FFingerPic(FingerCount + 1)
                If rsSelect.GetString("code") <> "" Then
                    FFingerCode(FingerCount) = rsSelect.GetString("code")
                Else
                    FFingerCode(FingerCount) = ""
                End If
                If rsSelect.GetString("name") <> "" Then
                    FFingerNames(FingerCount) = rsSelect.GetString("name")
                Else
                    FFingerNames(FingerCount) = ""
                End If
                If rsSelect.GetString("pic") <> "" Then
                    FFingerPic(FingerCount) = rsSelect.GetString("pic")
                Else
                    FFingerPic(FingerCount) = ""
                End If
                FingerCount = FingerCount + 1
            End While
        Catch er As Exception
            'do something with the exception
        Finally
            con.Close()
        End Try
    End Sub
End Class


ลองดูนะครับ แต่ผมอ่าน โค๊ดแล้วงง ไม่รู้ว่าพอหาเจอแล้ว มันจะแสดงข้อมูลยังไง

คือไม่เห็นตัว เปรียบเทียบว่า เหมือน แล้ว ให้หยุด
เอาเป็นว่าส่วนนั้นคงทำได้เองนะครับ อันนี้ก็แค่เอาส่วนที่แปลง จาก access เป็น mysql ก็แล้วกันนะครับ

อ้อ ในส่วน remark เป็นส่วนของ dll ผมขึ้เกียจหา function add dll นะครับ คิดว่าคุณคงมีแล้ว
เวลาใช้ ก็เอา มาร์คออก ด้วยนะครับ และผม ไม่ได้ทำประกาศไว้ คิดว่าคงทำได้เองแหล่ะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-15 10:40:45 By : Chaidhanan
 


 

No. 8



โพสกระทู้ ( 37 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 7 เขียนโดย : Chaidhanan เมื่อวันที่ 2014-11-15 10:40:45
รายละเอียดของการตอบ ::
สำเร็จแล้วครับ ขอบคุณมาก ๆ เลย

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-15 13:18:02 By : thanabordees93
 


 

No. 9

Guest


สอบถามหน่อยครับ เรื่องติดต่อกับเครื่องแสกน ลายนิ้วมือ ผมลองทำตามดูแต่ ไม่ยังขึ้น error ฟัง dll
ดูข้อมูล เก็บลายนิ้วมือ ยังไงครับ ช่วยแนะนำหน่อยครับ พวก sdk ต้องมี ลายเส้นไหม คุณ thanabordees93
[email protected]
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-05-19 16:02:33 By : pitsanu
 


 

No. 10

Guest


คุณ Chaidhanan ช่วยแนะนำด้วยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-05-19 16:05:02 By : pitsanu
 


 

No. 11

Guest


error dll
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-14 10:28:25 By : pitsanu
 


 

No. 12



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 11 เขียนโดย : pitsanu เมื่อวันที่ 2016-06-14 10:28:25
รายละเอียดของการตอบ ::
บรรทัดที่ 3 มันบอกอยู่แล้วครับ ตามนั้นเลย

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-14 10:32:47 By : lamaka.tor
 


 

No. 13

Guest


'ผม ก็ add reference แล้วนะครับ แต่มันขึ้นเครื่องหมาย ตกใจ ! ตามภาพ ที่อยู่ขวามือ imports ไม่ครบหรือครับ แก้ไขยัง ไงครับ
' ช่วยทีครับผม

Imports AxZKFPEngXControl
Imports ZKFPEngXControl

Imports System.Runtime.InteropServices

Public Class Form1
Dim con As MySql.Data.MySqlClient.MySqlConnection

Dim cmd As MySql.Data.MySqlClient.MySqlCommand

Dim rsSelect As MySql.Data.MySqlClient.MySqlDataReader

Dim sTemp As String

Dim StatusAdd As Integer

Dim FTempLen As Integer

Dim FRegTemplate As Object

Dim FingerCount As Long

Dim fpcHandle As Long

Dim FFingerCode() As String 'รหัส

Dim FFingerNames() As String 'ชื่อ

Dim FFingerPic() As String 'รูป

Dim FMatchType As Integer

Dim ItemFinger As String 'ลายนิ้ว

Dim ItemPathNoPic As String 'ไม่มีรูป
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con = New MySql.Data.MySqlClient.MySqlConnection("server=localhost;user id=root;Password=34260;database=test;persist security info=False")

cmd = New MySql.Data.MySqlClient.MySqlCommand()

cmd.Connection = con 'this.msqlConnection;

cmd.CommandText = "SELECT * FROM us_userinfo"

Try

FingerCount = 0

'fpcHandle = ZKFPEngX1.CreateFPCacheDB

con.Open()

rsSelect = cmd.ExecuteReader()

While (rsSelect.Read())

sTemp = rsSelect.GetString("fpstring")

'ZKFPEngX1.AddRegTemplateStrToFPCacheDB(fpcHandle, FingerCount, sTemp)

ReDim Preserve FFingerCode(FingerCount + 1)

ReDim Preserve FFingerNames(FingerCount + 1)

ReDim Preserve FFingerPic(FingerCount + 1)

If rsSelect.GetString("code") <> "" Then

FFingerCode(FingerCount) = rsSelect.GetString("code")

Else

FFingerCode(FingerCount) = ""

End If

If rsSelect.GetString("name") <> "" Then

FFingerNames(FingerCount) = rsSelect.GetString("name")

Else

FFingerNames(FingerCount) = ""

End If

If rsSelect.GetString("pic") <> "" Then

FFingerPic(FingerCount) = rsSelect.GetString("pic")

Else

FFingerPic(FingerCount) = ""

End If

FingerCount = FingerCount + 1

End While

Catch er As Exception

'do something with the exception

Finally

con.Close()

End Try

End Sub



End Class
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 08:47:08 By : pitsanu
 


 

No. 14

Guest


ตอบความคิดเห็นที่ : 2 เขียนโดย : thanabordees93 เมื่อวันที่ 2014-11-14 13:58:52
รายละเอียดของการตอบ ::
ตัวเก็บลายนิวมื้อ นี้ต้องเขียนยังไงครับ ช่วย แนะนำหน่อยครับ พอดีผมมี เครื่องอ่านแสกนลายนิ้วมื่อ u are 4800

จะเขียนอ่านลายนิ้วมือแล้วเก็บ code string

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 08:54:11 By : pitsanu
 


 

No. 15



โพสกระทู้ ( 9,293 )
บทความ ( 2 )



สถานะออฟไลน์


ลองเอาเม้าส์ไปคลิกที่เส้นแดง ดูถ้า ! มันหาย ก็ rebuild ใหม่ได้เลยครับ
บางที มันสับสน เพราะเราอ้างอิง component แบบ วนไปวนมา
แทนที่จะอ้างอิงแบบ root กลับอ้างอิง แบบ cycle
เวลาคอมไพล์ ตัวหนึ่ง ก็จะทำให้อีกตัวเสียไป มันหา address อ้างอิงไม่เจอ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 09:17:30 By : Chaidhanan
 


 

No. 16

Guest


มันฟ้อง error control อีกครับ ต้องแก้ไขยังไงครับ
error con1
error con2
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 09:40:16 By : pitsanu
 


 

No. 17

Guest


ตัวนี้ก็ add แล้วนะครับ
error con3
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 09:42:44 By : pitsanu
 


 

No. 18



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 16 เขียนโดย : pitsanu เมื่อวันที่ 2016-06-15 09:40:16
รายละเอียดของการตอบ ::
มัน error ว่าไงครับ

ลองคลิกดู

ลองสละเวลาซัก 3 นาที create project มาใหม่ add ref ใหม่ สร้าง ฟรอร์มใหม่
ลาก control ลงใน ฟอร์มใหม่

1. หาก ลงแล้ว ใช้งานได้ เป็นที่ project วิธีบ้านๆของผมคือ ลบ ref ทิ้งไป แล้ว add ใหม่(ส่วนใหญ่ผมทำวิธีนี้ได้ตลอด)
2. หาก ลงแล้ว ใช้งานไม่ได้ ไม่เป็นที่ project ก็ต้องรื้อกันต่อว่า file ref มีตัณหาอะไรป่าว

ผมใช้วิธีนี้แก้ปัญหา 10 นาที รู้ผลตลอด ครับ 55555

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 10:03:17 By : lamaka.tor
 


 

No. 19

Guest


เป็นแบบนี้ครับ


error con4
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 10:12:41 By : pitsanu
 


 

No. 20

Guest


พอเอา ตัว control ZKFPEngX1 มาใช้ จะขึ้น error

reference ไม่ฟ้องแล้วครับ เปลี่ยนมาใช้ vb2008
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 10:26:41 By : pitsanu
 


 

No. 21



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ลอง create project มาใหม่ add ref ใหม่ สร้าง ฟรอร์มใหม่
ลาก control ลงใน ฟอร์มใหม่

ดูยังครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 11:31:39 By : lamaka.tor
 


 

No. 22

Guest


มีปัญหา คอนโทรล AxZKFPEngX1 คุณ ธนบดี ได้แล้วช่วยหน่อยครับ
error con45
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 11:53:35 By : pitsanu
 


 

No. 23

Guest


ลองแล้วครับ เหมือนเดิม
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 13:18:43 By : pitsanu
 


 

No. 24



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ลอง create project มาใหม่ add ref ใหม่ สร้าง ฟรอร์มใหม่
ลาก control ลงใน ฟอร์มใหม่

แล้วยังไม่ได้

อาจจะมองได้ว่า การ add ref นั้นไม่ช่วยไรเลยครับ

น่าจะเกิดจาก ตัว file ref ไม่รองรับ .net รุ่นนั้น ๆ ครับ

ปกติใช้ได้ใช่ไม๊ครับ กับ รุ่นนี้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 13:29:10 By : lamaka.tor
 


 

No. 25

Guest


ผมลองเขียนพึ่งลองเขียน ในนั้น บอกว่ารองรับ .netframwork 3.5

แต่ก็มี sdk อีก ตัวแต่มัน เก็บcashได้แค่ 10 recod ใช้ได้ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 13:54:36 By : pitsanu
 


 

No. 26

Guest


ผม ลด ลงมาใช้ vb.net2005 แล้วก็ยังไม่ได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 14:04:37 By : pitsanu
 


 

No. 27

Guest


ZKFPEngX1.CreateFPCacheDB()


ตัวนี้ใช้ยังไงครับ

แต่ control มันชื่อ AxZKFPEngX1
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 14:30:09 By : pitsanu
 


 

No. 28



โพสกระทู้ ( 242 )
บทความ ( 0 )



สถานะออฟไลน์


เวลาเขียนโปรแกรมส่วนตัวผม ชอบไปปรับ ให้มัน Copy Local ครับจะได้ไม่สับสนว่า เราใช้ .dll จากไหนอยู่จากเครื่องจาก bin/debug

ลองเอาไปประยุกต์ดูนะครับ ผมเดาว่าเราเปลี่ยน target เป็น .netframework 4.0 น่าจะหายนะครับ

ปปป
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 14:37:51 By : bigsuntat
 


 

No. 29



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 28 เขียนโดย : bigsuntat เมื่อวันที่ 2016-06-15 14:37:51
รายละเอียดของการตอบ ::
แบบนี้แหล่มครับ +1

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-15 15:12:30 By : lamaka.tor
 


 

No. 30

Guest


ปรับตามที่ bigsuntat แล้วนะครับ ยัง error ตัว นี้ เหมือนเดิม งง หรือว่า Biokey.ocx มันไม่ รองรับ win7
error con4596
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-16 16:04:44 By : pitsanu
 


 

No. 31

Guest


Imports AxZKFPEngXControl
Imports ZKFPEngXControl
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

ผม ขาด อะไรหรือเปล่า
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-16 16:07:19 By : pitsanu
 


 

No. 32



โพสกระทู้ ( 9,293 )
บทความ ( 2 )



สถานะออฟไลน์


Imports AxZKFPEngXControl
Imports ZKFPEngXControl

เลือกเอาครับว่าจะใช้ ตัวไหน
มันไม่รู้ว่าจะใช้ ฟังก์ชั่นของ component ตัวไหนดี
ชื่อ method มันซ้ำกัน


ปล. ไม่ขาด แต่เกิน 5555


ประวัติการแก้ไข
2016-06-16 17:36:54
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-16 17:34:27 By : Chaidhanan
 


 

No. 33

Guest


BioKey.ocx ตัวนี้ ฟรีไหมครับ การใช้งาน พี่ท่านพี่แนะนำได้บ้าง ผม ลอง จนไปไม่เป็นแล้ว มีตัวไหนแนะบ้าง ไหมครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-22 13:45:13 By : pitsanu
 


 

No. 34



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

เห็นทำมาหลายวันแล้วไม่ได้ซักที ผมเลยลองโหลดเจ้าไฟล์ BioKey.ocx มา Add
สรุปว่าไม่มีแจ้งเตือนใดๆ ครับ

555

ย้อนกลับไปที่ No. 18

ถ้า create project มาใหม่ add ref ใหม่ สร้าง ฟรอร์มใหม่
ลาก control ลงใน ฟอร์มใหม่ แล้วยังไม่ได้อีก

เป็นผมนี่แก้โดยการ ลง vs ใหม่เลย เสียเวลาแค่ ครึ่งชั่วโมง (แนะนำ 2012 ครับ เพราะผมใช้แล้วมันได้ 5555)
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 09:12:07 By : lamaka.tor
 


 

No. 35

Guest


เยียมยอด

เดียวผมลอง ดู เวอร์ชั่น 2012
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 09:44:55 By : pitsanu
 


 

No. 36

Guest


ลอง vb2012


ยังเจอ error เหมือนเดิม คุณ
No. 34

TOR_CHEMISTRY ทำไง ครับ

erro89
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 11:27:48 By : pitsanu
 


 

No. 37

Guest


BioKey.ocx ตัวนี้ โหลดมาจากไหน ครับ อันเดียวกันไหมครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 11:43:16 By : pitsanu
 


 

No. 38



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

น่านแหละปัญหาคือผมก็จำไม่ได้อ่าครับ

เอา email มาละกันครับ เดี๋ยวผมจะส่งให้ไปเทศ(ส) ดู
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 11:48:31 By : lamaka.tor
 


 

No. 39

Guest


ขอบคุณมากเลยครับ

[email protected]

พิษณุ โทคำเวช
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 12:01:08 By : pitsanu
 


 

No. 40



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 39 เขียนโดย : pitsanu เมื่อวันที่ 2016-06-23 12:01:08
รายละเอียดของการตอบ ::
ส่งไปแล้วนะครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 13:08:26 By : lamaka.tor
 


 

No. 41

Guest


ยัง error ต้อง add reference ตัวไหน บ้างหนอ ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 13:44:24 By : pitsanu
 


 

No. 42

Guest


ไม่ error แล้วครับ จะดึง ลายนิ้วมือ ออกมาได้ไงครับทีนี้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 13:55:37 By : pitsanu
 


 

No. 43



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

สรุปได้ยังครับว่าเกิดจากอะไร

เผื่อคนอื่นมีปัญหาจะได้เป็นแนวทาง

ส่วน จะดึง ลายนิ้วมือ ยังไง นี่
ผมก็ไม่แน่ใจเหมือนกัน
ต้องดูว่ามันเก็บข้อมูลไว้ยังไงครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 14:11:06 By : lamaka.tor
 


 

No. 44

Guest


ได้แล้วครับ

เกิดจาก BioKey.ocx ต้องเป็น เวอร์ชัน 4.0 กับ vb2012

แต่ยังไม่รู้วิธี ดึง เก็บลายนิ้วมือ

ขอบคุณ มงคล โพธิ์ชัยหล้า มากครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 14:16:02 By : pitsanu
 


 

No. 45



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 44 เขียนโดย : pitsanu เมื่อวันที่ 2016-06-23 14:16:02
รายละเอียดของการตอบ ::
5555
ซะเต็มยศเลย


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 14:34:24 By : lamaka.tor
 


 

No. 46

Guest


มี ตัวอย่าง อ่านลายนิ้วมือ แล้วเก็บลงในฐานข้อมูลหรือเปล่าครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 15:20:39 By : pitsanu
 


 

No. 47

Guest


ตอบความคิดเห็นที่ : 8 เขียนโดย : thanabordees93 เมื่อวันที่ 2014-11-15 13:18:02
รายละเอียดของการตอบ ::
คุณ ธนบดี จะเก็บลายนิ้วมือยังไงครับ ช่วยหน่อยครับผม

AxZKFPEngX1.AddRegTemplateStrToFPCacheDB(fpcHandle, FingerCount, sTemp)

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 15:33:06 By : ่pitsanu
 


 

No. 48



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 47 เขียนโดย : ่pitsanu เมื่อวันที่ 2016-06-23 15:33:06
รายละเอียดของการตอบ ::
เหมือน จขกท จะมี link ตัวอย่างให้นี่ครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 15:49:59 By : lamaka.tor
 


 

No. 49

Guest


เป็น vb6 ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 16:01:26 By : pitsanu
 


 

No. 50



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

น่าจะแกะได้ไม่ค่อยยากนะครับ
ผมว่าตัวนี้ซัก 30 นาที อาจจะมีประโยชน์กว่าที่จะนั่งหาข้อมูลอีกเป็นวันเลยนา
เป็นผมนี่เลือกขี้ที่อยู่ตรงหน้าดีกว่าคว้าทองที่ยังมองไม่เห็นแสงครับ
เอาขี้มาทำเป็นปุ๋ยอย่างดีปลูกผักขายเผลอๆได้ตังเยอะกว่าทองอีก 5555
Code (VB.NET)
Option Explicit
Dim tmplist(0 To 11) As String

Private Sub Form_Load()
    'ติดต่อเตรื่องสแกนนิ้มมือ
    InitialSensor
    'สแกน 1:N
    Identify
    'กำหนดวันที่
    Calendar.Value = Date
    'เก็บข้อมูลนิ้วจากฐานช้อมูลเช้าเครื่องสแกน
    AddFinger
    'ไม่มีรูป
    ItemPathNoPic = App.Path & "\pic\00000.jpg"
End Sub

'เก็บข้อมูลนิ้วจากฐานช้อมูลเช้าเครื่องสแกน
Private Sub AddFinger()
    Dim sTemp As String
    Dim strDataSourcePath As String
    Dim rsSelect As New ADODB.Recordset
    
    DataBasePath = App.Path
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBasePath & "\dbFingerprint.mdb;Persist Security Info=False"
    
    FingerCount = 0
    fpcHandle = ZKFPEngX1.CreateFPCacheDB
    
    rsSelect.Open "Select * from us_userinfo", Conn, adOpenKeyset, adLockOptimistic
    rsSelect.MoveFirst
    While Not rsSelect.EOF
        sTemp = rsSelect.Fields("fpstring")
        ZKFPEngX1.AddRegTemplateStrToFPCacheDB fpcHandle, FingerCount, sTemp
        ReDim Preserve FFingerCode(FingerCount + 1)
        ReDim Preserve FFingerNames(FingerCount + 1)
        ReDim Preserve FFingerPic(FingerCount + 1)
        If rsSelect.Fields("code").Value <> "" Then
            FFingerCode(FingerCount) = rsSelect.Fields("code").Value
        Else
            FFingerCode(FingerCount) = ""
        End If
        If rsSelect.Fields("name").Value <> "" Then
            FFingerNames(FingerCount) = rsSelect.Fields("name").Value
        Else
            FFingerNames(FingerCount) = ""
        End If
        If rsSelect.Fields("pic").Value <> "" Then
            FFingerPic(FingerCount) = rsSelect.Fields("pic").Value
        Else
            FFingerPic(FingerCount) = ""
        End If
        FingerCount = FingerCount + 1
        rsSelect.MoveNext
    Wend
    rsSelect.Close
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ZKFPEngX1.FreeFPCacheDB (fpcHandle)
    ZKFPEngX1.EndEngine
End Sub

Private Sub LabelExit_Click()
    Unload Me
End Sub

Private Sub AddRecord(list As ListBox, newRec As String)
Dim i As Integer
    If list.ListCount = 12 Then
        list.Clear
    End If
    list.AddItem newRec, 0
End Sub

Private Sub LabelSetup_Click()
    frmLogin.Show vbModal
End Sub

Private Sub Timer1_Timer()
    lblTime.Caption = Format(Now, "hh:mm:ss")
End Sub

Private Sub Timer2_Timer()
    lblname.Caption = ""
    Img.Picture = LoadPicture("")
End Sub

'ค้นหาผลการสแกน
Private Sub ZKFPEngX1_OnCapture(ByVal ActionResult As Boolean, ByVal ATemplate As Variant)
Dim fi As Long, i As Long
Dim Score As Long, ProcessNum As Long
Dim newRec As String
Dim txtfile As String
Dim txtdata As String
    
    If FMatchType = 2 Then
        Score = 8
        fi = ZKFPEngX1.IdentificationInFPCacheDB(fpcHandle, ATemplate, Score, ProcessNum)
        If fi = -1 Then
            lblname.Caption = "ไม่พบข้อมูล กรุณาลองใหม่อีกครั้ง"
            Img.Picture = LoadPicture("")
        Else
            lblname.Caption = FFingerCode(fi) & " : " & FFingerNames(fi)
            If FFingerPic(fi) = "" Then
                FFingerPic(fi) = ItemPathNoPic
            End If
            Img.Picture = LoadPicture(FFingerPic(fi))
            newRec = "          " & FFingerCode(fi) & "         " & FFingerNames(fi) & "            " & Format(Now, "dd-MM-yyyy  hh:mm:ss")
            AddRecord timelist, newRec
            'ตรวจสอบไฟล์เก็บข้อมูล
            txtdata = FFingerCode(fi) & Format(Now, "hh:mm")
            ChaekFileName Date, txtfile
            AddDataToFile txtfile, txtdata
        End If
    End If
End Sub

Private Sub ZKFPEngX1_OnFeatureInfo(ByVal AQuality As Long)
    Dim sTemp As String
    If StatusAdd <> 0 Then
        If Trim(frmUser.txtid.Text) = "" Then
            MsgBox "กรุณาระบุรหัสพนักงานก่อนครับ !!!", vbOKOnly + vbInformation, "ผลการตรวจสอบ"
            frmUser.txtid.SetFocus
            Exit Sub
        End If
        
        If Trim(frmUser.txtname.Text) = "" Then
            MsgBox "กรุณาระบุชื่อพนักงานก่อนครับ ! ", vbOKOnly + vbCritical, "พบข้อผิดพลาด"
            frmUser.txtname.SetFocus
            Exit Sub
        End If
        
        If frmUser.StatusBar <> "กรุณาคลิกปุ่ม Save" Then
            sTemp = ""
            If ZKFPEngX1.IsRegister Then
                sTemp = "Ststus of enrollment : " & ZKFPEngX1.EnrollIndex & " fingerprint(s) reserved!"
            End If
            sTemp = sTemp & "Fingerprint quality"
            If AQuality <> 0 Then
                sTemp = sTemp & " ไม่ผ่าน " & AQuality
            Else
                sTemp = sTemp & " ผ่าน"
            End If
            frmUser.StatusBar.Caption = sTemp
        End If
    End If
End Sub

Private Sub ZKFPEngX1_OnEnroll(ByVal ActionResult As Boolean, ByVal ATemplate As Variant)
    If StatusAdd <> 0 Then
        If Trim(frmUser.txtid.Text) = "" Then
            MsgBox "กรุณาระบุรหัสพนักงานก่อนครับ !!!", vbOKOnly + vbInformation, "ผลการตรวจสอบ"
            frmUser.txtid.SetFocus
            Exit Sub
        End If
            
        If Trim(frmUser.txtname.Text) = "" Then
            MsgBox "กรุณาระบุชื่อพนักงานก่อนครับ ! ", vbOKOnly + vbCritical, "พบข้อผิดพลาด"
            frmUser.txtname.SetFocus
            Exit Sub
        End If
            
        If Not ActionResult Then
           frmUser.StatusBar = "บันทึกผิดพลาด"
        Else
            frmUser.StatusBar = "กรุณาคลิกปุ่ม Save"
            ItemFinger = ZKFPEngX1.GetTemplateAsString
        End If
    End If
End Sub


Code (VB.NET)
Option Explicit
Dim ItemIDOld As String
Dim StateClick As String
Dim ItemUserId As String
Dim ItemUserName As String
Dim ItemUserPic As String

'ล็อก Comments
Private Sub lockctrl()
    txtid.Locked = True
    txtname.Locked = True
    Picture1.Visible = True
    Picture2.Visible = True
    Picture3.Visible = True
    Picture4.Visible = False
    Picture5.Visible = False
    txtid.BackColor = &H80000000
    txtname.BackColor = &H80000000
    cmdpic.Enabled = False
    cmddeletepic.Enabled = False
    mfg.Enabled = True
End Sub

'ปลดล็อก Comments
Private Sub UnLockCtrl()
    txtid.Locked = False
    txtname.Locked = False
    Picture1.Visible = False
    Picture2.Visible = False
    Picture3.Visible = False
    Picture4.Visible = True
    Picture5.Visible = True
    cmdpic.Enabled = True
    cmddeletepic.Enabled = True
    txtid.BackColor = &HFFFFFF
    txtname.BackColor = &HFFFFFF
    mfg.Enabled = False
End Sub

Private Sub cmdAdd_Click()
     If frmScan.ZKFPEngX1.Active = True Then
        txtid.SetFocus
        txtid.Text = ""
        txtname.Text = ""
        StateClick = "Add"
        UnLockCtrl
        StatusAdd = 1
        ItemUserPic = ""
        ItemFinger = ""
        Img.Picture = LoadPicture(ItemUserPic)
    
        frmScan.ZKFPEngX1.BeginEnroll
        StatusBar.Caption = "เริ่มเก็บลายนิ้วมือ"
    Else
        MsgBox "เกิดข้อผิดพลาดในการเชื่อมต่อ ไม่สามารถเพิ่มผู้ใช้งานได้!", vbOKOnly + vbCritical, "เกิดข้อผิดพลาด"
    End If
End Sub

Private Sub cmdCancel_Click()
    lockctrl
    StatusAdd = 0
End Sub

Private Sub cmdDelete_Click()
    If txtid.Text <> "" Then
        DeleteUser txtid.Text
    Else
        MsgBox "กรุณาคลิก เลือกรายการที่จะ DELETE ก่อน ! ", vbOKOnly + vbInformation, "พบข้อผิดพลาด"
    End If
End Sub

'ลบข้อมูล
Private Sub DeleteUser(tmpID As String)
On Error GoTo PictureNotFound
Dim comUpdate As New ADODB.Command
Dim sqlUpdate As String
    
    Conn.BeginTrans
        With comUpdate
            .ActiveConnection = Conn
            .CommandType = adCmdText
        End With
            
        sqlUpdate = "DELETE * FROM us_userinfo"
        sqlUpdate = sqlUpdate & " Where (code='" & tmpID & "')"
        
        With comUpdate
            .CommandText = sqlUpdate
            .Execute
        End With

        If MsgBox("คุณต้อง DELETE พนักงานชื่อ " & txtname.Text & " ใช่หรือไม่?", vbYesNo + vbQuestion, "คำยืนยัน") = vbYes Then
            Conn.CommitTrans
            'แสดงชื่อ
            DisplayUser mfg
            With mfg
                ItemUserId = (.TextMatrix(1, 0))
                ItemUserName = (.TextMatrix(1, 1))
                ItemUserPic = (.TextMatrix(1, 2))
                ItemFinger = (.TextMatrix(1, 3))
            End With
            txtid.Text = ItemUserId
            txtname.Text = ItemUserName
            If ItemUserPic = "" Then
                Img.Picture = LoadPicture(ItemPathNoPic)
            Else
                Img.Picture = LoadPicture(ItemUserPic)
            End If
        Else
            Conn.RollbackTrans
        End If
        
PictureNotFound:
     If (Err.Number = 76) Or (Err.Number = 53) Or (Err.Number = 481) Then
        ItemUserPic = ""
        Img.Picture = LoadPicture(ItemUserPic)
        Exit Sub
    End If
End Sub

'แสดงรายการในกริด
Public Sub DisplayUser(mfgName As MSHFlexGrid)
    Dim sqlSelect As String
    Dim rsSelect As New ADODB.Recordset
    Dim i As Integer

        sqlSelect = "SELECT * FROM us_userinfo ORDER BY code"

        With rsSelect
            If .State = adStateOpen Then .Close
            .ActiveConnection = Conn
            .CursorType = adOpenForwardOnly
            .CursorLocation = adUseClient
            .Open sqlSelect
            If .RecordCount <> 0 Then
                ClearGrid mfgName
                With mfgName
                    For i = 1 To rsSelect.RecordCount
                        .TextMatrix(i, 0) = rsSelect.Fields("code").Value
                        .TextMatrix(i, 1) = rsSelect.Fields("name").Value
                        If rsSelect.Fields("pic").Value <> "" Then
                            .TextMatrix(i, 2) = rsSelect.Fields("pic").Value
                        Else
                            .TextMatrix(i, 2) = ""
                        End If
                         If rsSelect.Fields("fpstring").Value <> "" Then
                            .TextMatrix(i, 3) = rsSelect.Fields("fpstring").Value
                        Else
                            .TextMatrix(i, 3) = ""
                        End If
                        rsSelect.MoveNext
                        .Rows = .Rows + 1
                        If .Rows > rsSelect.RecordCount Then
                            .Rows = rsSelect.RecordCount + 1
                        End If
                    Next
                End With
            Else
                ClearGrid mfgName
            End If
            Setmfg mfgName
        End With
        rsSelect.Close
        Set rsSelect = Nothing
End Sub


Private Sub cmddeletepic_Click()
    ItemUserPic = ""
    Img.Picture = LoadPicture(ItemUserPic)
End Sub

Private Sub cmdEdit_Click()
     If frmScan.ZKFPEngX1.Active = True Then
        StatusAdd = 1
        If txtid.Text <> "" Then
            Call UnLockCtrl
            ItemIDOld = txtid.Text
            StateClick = "Edit"
            frmScan.ZKFPEngX1.BeginEnroll
            StatusBar.Caption = "เริ่มเก็บลายนิ้วมือ"
        Else
            MsgBox "กรุณาคลิก รายการที่จะ EDIT ก่อน ! ", vbOKOnly + vbInformation, "พบข้อผิดพลาด"
        End If
    Else
        MsgBox "เกิดข้อผิดพลาดในการเชื่อมต่อ ไม่สามารถแก้ไขผู้ใช้งานได้!", vbOKOnly + vbCritical, "เกิดข้อผิดพลาด"
    End If
End Sub

Private Sub cmdpic_Click()
On Error GoTo PictureNotFound
    With cdlBrowse
        .DialogTitle = "เลือกรูปภาพ"
        .CancelError = False
        .Action = 1
        ItemUserPic = .Filename
    End With
    
    If ItemUserPic <> "" Then
        Img.Picture = LoadPicture(ItemUserPic)
    End If

PictureNotFound:
     If (Err.Number = 76) Or (Err.Number = 53) Or (Err.Number = 481) Then
        ItemUserPic = ""
        Img.Picture = LoadPicture(ItemUserPic)
        Exit Sub
    End If
End Sub

Private Sub cmdSave_Click()
    If StateClick = "Edit" Then
        'กรณีแก้ไข
        Call UpdateData
    Else
        'กรณีเพิ่มใหม่
        Call AddData
    End If
End Sub

Private Sub Form_Load()
On Error GoTo PictureNotFound
     If frmScan.ZKFPEngX1.Active = True Then
        FMatchType = 0
        DisplayUser mfg
        lockctrl
         If frmScan.ZKFPEngX1.Active = True Then
            StatusBar.Caption = "เชื่อมต่อสำเร็จ"
        Else
            StatusBar.Caption = "การเชื่อมต่อ เกิดข้อผิดพลาด"
        End If
    
        With mfg
            ItemUserId = (.TextMatrix(1, 0))
            ItemUserName = (.TextMatrix(1, 1))
            ItemUserPic = (.TextMatrix(1, 2))
            ItemFinger = (.TextMatrix(1, 3))
        End With
        txtid.Text = ItemUserId
        txtname.Text = ItemUserName
        If ItemUserPic = "" Then
            Img.Picture = LoadPicture(ItemPathNoPic)
        Else
            Img.Picture = LoadPicture(ItemUserPic)
        End If
    Else
        MsgBox "เกิดข้อผิดพลาดในการเชื่อมต่อ กรุณาปิดโปรแกรมแล้วเรียกใช้อีกครั้ง!", vbOKOnly + vbCritical, "เกิดข้อผิดพลาด"
        Exit Sub
    End If
    
PictureNotFound:
     If (Err.Number = 76) Or (Err.Number = 53) Or (Err.Number = 481) Then
        ItemUserPic = ""
        Img.Picture = LoadPicture(ItemUserPic)
        Exit Sub
    End If
End Sub

Private Sub UpdateData()
On Error GoTo DuplicateERROR
Dim comUpdate As New ADODB.Command
Dim sqlUpdate As String
Dim tmpSex As String

        If Trim(txtid.Text) = "" Then
            MsgBox "กรุณาระบุรหัสพนักงานก่อนครับ !!!", vbOKOnly + vbInformation, "ผลการตรวจสอบ"
            txtid.SetFocus
            Exit Sub
        End If
        
        If Trim(txtname.Text) = "" Then
            MsgBox "กรุณาระบุชื่อพนักงานก่อนครับ ! ", vbOKOnly + vbCritical, "พบข้อผิดพลาด"
            txtname.SetFocus
            Exit Sub
        End If
        
        If (Trim(ItemFinger) = "") Then
            MsgBox "กรุณากำหนดลายนิ้วมือก่อนครับ !!!", vbOKOnly + vbInformation, "ผลการตรวจสอบ"
            Exit Sub
        End If
        
        Conn.BeginTrans
            With comUpdate
                .ActiveConnection = Conn
                .CommandType = adCmdText
            End With
            
            sqlUpdate = "UPDATE us_userinfo"
            sqlUpdate = sqlUpdate & " SET code='" & txtid.Text & "',name='" & txtname.Text & "',"
            sqlUpdate = sqlUpdate & " pic='" & ItemUserPic & "',fpstring='" & ItemFinger & "'"
            sqlUpdate = sqlUpdate & " Where (code='" & ItemIDOld & "')"
            
            With comUpdate
                .CommandText = sqlUpdate
                .Execute
            End With
        
            If MsgBox("คุณต้องการแก้ไขข้อมูลของพนักงานชื่อ " & txtname.Text & "  ใช่หรือไม่?", vbYesNo + vbQuestion, "คำยืนยัน") = vbYes Then
                Conn.CommitTrans
                ItemIDOld = ""
                StatusBar.Caption = ""
                'แสดงชื่อพนักงาน
                DisplayUser mfg
                lockctrl
                'เก็บข้อมูลนิ้วจากฐานช้อมูลเช้าเครื่องสแกน
                frmScan.ZKFPEngX1.AddRegTemplateStrToFPCacheDB fpcHandle, FingerCount, ItemFinger
                ReDim Preserve FFingerCode(FingerCount + 1)
                ReDim Preserve FFingerNames(FingerCount + 1)
                ReDim Preserve FFingerPic(FingerCount + 1)
                FFingerCode(FingerCount) = txtid.Text
                FFingerNames(FingerCount) = txtname.Text
                FFingerPic(FingerCount) = ItemUserPic
                FingerCount = FingerCount + 1
            Else
                Conn.RollbackTrans
                lockctrl
            End If
            StatusAdd = 0
DuplicateERROR:
        If Err.Number = -2147467259 Then
            MsgBox "คุณกำหนดรหัสซ้ำ !", vbOKOnly + vbCritical, "เกิดข้อผิดพลาด"
            Conn.RollbackTrans
            txtid.SetFocus
        End If
End Sub

Private Sub AddData()
On Error GoTo DuplicateERROR
Dim comUpdate As New ADODB.Command
Dim sqlUpdate As String
Dim tmpSex As String

        If Trim(txtid.Text) = "" Then
            MsgBox "กรุณาระบุรหัสพนักงานก่อนครับ !!!", vbOKOnly + vbInformation, "ผลการตรวจสอบ"
            txtid.SetFocus
            Exit Sub
        End If
        
        If Trim(txtname.Text) = "" Then
            MsgBox "กรุณาระบุชื่อพนักงานก่อนครับ ! ", vbOKOnly + vbCritical, "พบข้อผิดพลาด"
            txtname.SetFocus
            Exit Sub
        End If
        
        If (Trim(ItemFinger) = "") Then
            MsgBox "กรุณากำหนดลายนิ้วมือก่อนครับ !!!", vbOKOnly + vbInformation, "ผลการตรวจสอบ"
            Exit Sub
        End If
        
        
        Conn.BeginTrans
            sqlUpdate = "INSERT INTO us_userinfo(code,name,pic,fpstring) "
            sqlUpdate = sqlUpdate & " VALUES('" & txtid.Text & "','" & txtname.Text & "','" & ItemUserPic & "','" & ItemFinger & "')"
   
            With comUpdate
                .ActiveConnection = Conn
                .CommandType = adCmdText
                .CommandText = sqlUpdate
                .Execute
            End With
        
            If MsgBox("คุณต้องการเพิ่มพนักงานใหม่ชื่อ " & txtname.Text & "  ใช่หรือไม่?", vbYesNo + vbQuestion, "คำยืนยัน") = vbYes Then
                Conn.CommitTrans
                'แสดงชื่อพนักงาน
                StatusBar.Caption = ""
                DisplayUser mfg
                lockctrl
                'เก็บข้อมูลนิ้วจากฐานช้อมูลเช้าเครื่องสแกน
                frmScan.ZKFPEngX1.AddRegTemplateStrToFPCacheDB fpcHandle, FingerCount, ItemFinger
                ReDim Preserve FFingerCode(FingerCount + 1)
                ReDim Preserve FFingerNames(FingerCount + 1)
                ReDim Preserve FFingerPic(FingerCount + 1)
                FFingerCode(FingerCount) = txtid.Text
                FFingerNames(FingerCount) = txtname.Text
                FFingerPic(FingerCount) = ItemUserPic
                FingerCount = FingerCount + 1
            Else
                Conn.RollbackTrans
                lockctrl
            End If
            StatusAdd = 0
DuplicateERROR:
        If Err.Number = -2147467259 Then
            MsgBox "คุณกำหนดรหัสซ้ำ !", vbOKOnly + vbCritical, "เกิดข้อผิดพลาด"
            Conn.RollbackTrans
            txtid.SetFocus
        End If
End Sub

' set รูปแบบ Grid mfg
Public Sub Setmfg(mfgName As MSHFlexGrid)
Dim i As Integer
    With mfgName
        .ColWidth(0) = 1200
        .ColWidth(1) = 1800
        .ColWidth(2) = 0
        .ColWidth(3) = 0
        
        .TextMatrix(0, 0) = "รหัสพนักงาน"
        .TextMatrix(0, 1) = "ชื่อ-สกุล"
        .TextMatrix(0, 2) = "ลิ้งรูปภาพ"
        .TextMatrix(0, 3) = "ลายนิ้ว"
    End With
    With mfgName
        For i = 0 To 2
            .FixedAlignment(i) = flexAlignLeftCenter  ' จัดตำหน่งส่วนหัว
            .ColAlignment(0) = flexAlignCenterCenter
            .ColAlignment(1) = flexAlignLeftCenter
            Next
    End With
End Sub

Public Sub ClearGrid(mfgName As MSHFlexGrid)
Dim i As Integer
    With mfgName
        For i = 1 To .Rows - 2
            If .Rows > 2 Then
                .Rows = .Rows - 1
            End If
        Next
            .Clear
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    StatusAdd = 0
    FMatchType = 2
End Sub

Private Sub mfg_Click()
On Error GoTo PictureNotFound
    With mfg
        ItemUserId = (.TextMatrix(.Row, 0))
        ItemUserName = (.TextMatrix(.Row, 1))
        ItemUserPic = (.TextMatrix(.Row, 2))
        ItemFinger = (.TextMatrix(.Row, 3))
    End With
    txtid.Text = ItemUserId
    txtname.Text = ItemUserName
    If ItemUserPic = "" Then
        Img.Picture = LoadPicture(ItemPathNoPic)
    Else
        Img.Picture = LoadPicture(ItemUserPic)
    End If
    
PictureNotFound:
     If (Err.Number = 76) Or (Err.Number = 53) Or (Err.Number = 481) Then
        ItemUserPic = ""
        Img.Picture = LoadPicture(ItemUserPic)
        Exit Sub
    End If
End Sub

Private Sub mfg_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo PictureNotFound
    With mfg
        ItemUserId = (.TextMatrix(.Row, 0))
        ItemUserName = (.TextMatrix(.Row, 1))
        ItemUserPic = (.TextMatrix(.Row, 2))
        ItemFinger = (.TextMatrix(.Row, 3))
    End With
    txtid.Text = ItemUserId
    txtname.Text = ItemUserName
    If ItemUserPic = "" Then
        Img.Picture = LoadPicture(ItemPathNoPic)
    Else
        Img.Picture = LoadPicture(ItemUserPic)
    End If
    
PictureNotFound:
     If (Err.Number = 76) Or (Err.Number = 53) Or (Err.Number = 481) Then
        ItemUserPic = ""
        Img.Picture = LoadPicture(ItemUserPic)
        Exit Sub
    End If
End Sub



Code (VB.NET)
Option Explicit
'ติดต่อ DataBase
Public DataBasePath As String
Public Conn As New ADODB.Connection

Public StatusAdd As Integer
Public FTempLen As Integer
Public FRegTemplate As Variant
Public FingerCount As Long
Public fpcHandle As Long
Public FFingerCode() As String    'รหัส
Public FFingerNames() As String    'ชื่อ
Public FFingerPic() As String    'รูป
Public FMatchType As Integer
Public ItemFinger As String    'ลายนิ้ว
Public ItemPathNoPic As String    'ไม่มีรูป

Public Sub InitialSensor()
    frmScan.ZKFPEngX1.InitEngine
    If frmScan.ZKFPEngX1.Active = True Then
        frmScan.ZKFPEngX1.SensorIndex = 1
        frmScan.ZKFPEngX1.EnrollCount = 3
        frmScan.lblon.Visible = False
        frmScan.lbloff.Visible = True
    Else
        frmScan.lblon.Visible = True
        frmScan.lbloff.Visible = False
    End If
End Sub

Public Sub Identify()
    If frmScan.ZKFPEngX1.IsRegister Then
        frmScan.ZKFPEngX1.CancelEnroll
    End If
    FMatchType = 2
End Sub

' ฟังก์ชั่นเปลี่ยน พ.ศ. ให้เป็น ค.ศ. และรูปแบบวันที่และเวลา
Public Function TimeThaiFormat(EngTime As Date) As Date
    Dim tmpYear As String
    Dim tmpDate As String
    Dim tmpmonth As String
    Dim tmptime As String
        tmptime = CStr(Format(EngTime, " HH:mm:ss"))
        tmpYear = DatePart("yyyy", EngTime)
        tmpDate = DatePart("d", EngTime)
            If Len(tmpDate) = 1 Then
                tmpDate = "0" & tmpDate
            Else
                tmpDate = tmpDate
            End If
        tmpmonth = DatePart("m", EngTime)
            If Len(tmpmonth) = 1 Then
                tmpmonth = "0" & tmpmonth
            Else
                tmpmonth = tmpmonth
            End If
        TimeThaiFormat = tmpYear & "-" & tmpmonth & "-" & tmpDate & tmptime
End Function

'ตรวจสอบไฟล์เก็บข้อมูล
Public Function ChaekFileName(tmptime As Date, tmpResult As String)
    Dim tmpYear As String
    Dim tmpDate As String
    Dim tmpmonth As String
    
        tmpYear = DatePart("yyyy", tmptime)
        tmpYear = Right(tmpYear, Len(tmpYear) - 2)
        tmpDate = DatePart("d", tmptime)
            If Len(tmpDate) = 1 Then
                tmpDate = "0" & tmpDate
            Else
                tmpDate = tmpDate
            End If
        tmpmonth = DatePart("m", tmptime)
            If Len(tmpmonth) = 1 Then
                tmpmonth = "0" & tmpmonth
            Else
                tmpmonth = tmpmonth
            End If
        tmpResult = tmpYear & tmpmonth & tmpDate
End Function

'เช็คว่ามีไฟล์หรือยัง ถ้ามีให้เพิ่มรายการได้
Public Sub AddDataToFile(tmpFile As String, tmpdata As String)
On Error GoTo CreatFile
Dim PathFileini As String
Dim tmpFreeFile As Integer
    
    PathFileini = DataBasePath
    If Right$(PathFileini, 1) <> "\" Then
        PathFileini = PathFileini & "\data\"
    End If
    PathFileini = PathFileini & tmpFile & ".txt"
    tmpFreeFile = FreeFile

    Open PathFileini For Append As #tmpFreeFile
        Print #tmpFreeFile, tmpdata
   Close
    
CreatFile:
    Select Case Err.Number
        Case 53 ' ถ้าไม่มีไฟล์ให้สร้างใหม่
        CreateFile tmpFile
    End Select
End Sub

Public Sub CreateFile(tmpFile As String)
Dim Filename As String
Dim memFreeFile As String
Dim PathFile As String

    memFreeFile = FreeFile
    
        PathFile = DataBasePath
        If Right$(PathFile, 1) <> "\" Then
            PathFile = PathFile & "\data\"
        End If
    Filename = "" & PathFile & tmpFile & ".txt"
   
    Open Filename For Append As #memFreeFile
    Close
End Sub


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-23 16:28:09 By : lamaka.tor
 


 

No. 51

Guest


เอาข้อมูลจากเครื่องแสนออกมาออก มาโชว์ได้ นี้จะไปต่อได้ เลยนะนี้

ตอนแสกน รับข้อมูลยังไง งง ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-24 11:05:08 By : pitsanu
 


 

No. 52



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ลองเขียนโค้ดทั้งหมดตามนั้นยังละครับ

คุ้นๆว่าถ้าเขียนครบมันก็จะได้เลย นะครับ(ลองแกะดู)
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-24 11:16:36 By : lamaka.tor
 


 

No. 53

Guest


มีทั้ง ฟอร์ม เลยไหม 55 ไล่ code ตา ลาย เลยตอนนี้ หา ตัว ดึง มาจากเครื่อง แสกน
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-24 11:54:19 By : pitsanu
 


 

No. 54



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 53 เขียนโดย : pitsanu เมื่อวันที่ 2016-06-24 11:54:19
รายละเอียดของการตอบ ::
มีทั้งฟอร์มครับ

แต่เป็นการตั้งค่า ลองดูในไฟล์ที่โหลดมานะครับ พอดีผมลบทิ้งไปแล้ว
อ๊อ ถ้ายังไม่รู้ว่าใช้อะไรอ่าน ก็ Notepad++ ครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-24 14:09:17 By : lamaka.tor
 


 

No. 55

Guest


code ตัวอย่าง ยังมี error


erro90


ลอง code เชื่อมต่อ เครื่องแสกนลายนิ้วมือ
896
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-24 14:09:37 By : pitsanu
 


 

No. 56



โพสกระทู้ ( 4,283 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

เอ...เหมือนจะมีให้โหลดนะ
โหลดมาครบป่าวครับ

แต่ก็นับถือนะแกะโค้ดจนใกล้เสรจแล้วนิครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-06-24 14:27:32 By : lamaka.tor
 


 

No. 57

Guest


กลับอีก ครั้ง ยังไม่ได้เลย พี่ๆ ท่าน ทำสำเร็จแล้ว ช่วยหน่อยครับ เก็บ ลายนิ้วมือ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-07-26 11:12:09 By : pitsanu
 


 

No. 58



โพสกระทู้ ( 12 )
บทความ ( 0 )



สถานะออฟไลน์


1. ไปที่ เมนู Tools
2. ไปที่ เมนู Choose Toolbox Items
3. ไปที่ Tab COM Components
4. Browse Biokey.ocx

ก็จะได้ครับ และเวลาที่ใช้งาน ตอนติดตั้งโปรแกรมต้องมี
Copy AxInterop.ZKFPEngXControl.dll
Interop.ZKFPEngXControl.dll
Biokey.ocx

ของผมเขียนติดต่อ Time One
ติดอย่างไรเมล์มาได้ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-08-04 18:42:32 By : thaweewong
 


 

No. 59

Guest


ขอ mail หน่อยครับ thaweewong


[email protected]
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-08-05 14:06:57 By : pitsanu
 


 

No. 60

Guest


สวัสดีครับ คุณ thaweewong ผมติดปัญหา add referent แล้ว มันฟ้อง error ผมใช้ vb.net2010
ใช้ u are 4500


Biokey.ocx

ใช้ อ่านข้อมูลออกมาจาก เครื่องแสกน ยังไงครับ
ยังไปไม่เป็นครับ ช่วยหน่อยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-08-05 14:31:20 By : pitsanu
 


 

No. 61

Guest


ตอบความคิดเห็นที่ : 58 เขียนโดย : thaweewong เมื่อวันที่ 2016-08-04 18:42:32
รายละเอียดของการตอบ ::
[email protected]

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-08-05 14:36:46 By : pitsanu
 


 

No. 62

Guest


er


พี่ครับ ช่วยดู code นี้ด้วยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-08-08 13:49:32 By : pitsanu
 


 

No. 63

Guest


Code (VB.NET)
Public Function Connection() As String()

        axZKFPEngX1.FPEngineVersion = "9"
        izkfpver = axZKFPEngX1.FPEngineVersion
        axZKFPEngX1.SensorIndex = 0
        If AxZKFPEngX1.InitEngine() = 0 Then

            Try
                Value(0) = "Connect"
                Value(1) = "Finger Serial Number :" + AxZKFPEngX1.SensorSN.ToString()
                Value(2) = "Finger Count :" + AxZKFPEngX1.SensorCount.ToString()
                Value(3) = "Finger Index :" + AxZKFPEngX1.SensorIndex.ToString()
                Value(4) = "ImageWidth Record :" + AxZKFPEngX1.ImageWidth.ToString()
                Value(5) = "ImageHeight Record :" + AxZKFPEngX1.ImageHeight.ToString()
                isConnected = True
                fpcHandle = AxZKFPEngX1.CreateFPCacheDB()
            Catch
                AxZKFPEngX1.EndEngine()
                Value(0) = "Disconnect"
                Value(1) = ""
                Value(2) = ""
                Value(3) = ""
                Value(4) = ""
                Value(5) = ""
                isConnected = False
            End Try
        End If
        Return Value
    End Function


ter

ไม่สามารถติดต่อ กับ แสกน ได้ ทำไมมัน error
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-08-10 14:54:07 By : pitsanu
 


 

No. 64



โพสกระทู้ ( 4 )
บทความ ( 0 )



สถานะออฟไลน์


อยากได้ตัวอย่างที่เป็น c# รบกวนแนะนำด้วยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-01-10 10:03:45 By : mailo_sa
 


 

No. 65



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ตอบความคิดเห็นที่ : 64 เขียนโดย : mailo_sa เมื่อวันที่ 2017-01-10 10:03:45
รายละเอียดของการตอบ ::
ใช้เว็บแปลงเอาเลยครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-01-10 10:38:21 By : mr.win
 


 

No. 66



โพสกระทู้ ( 4 )
บทความ ( 0 )



สถานะออฟไลน์


ขอ mail หน่อยครับ thaweewong
[email protected]
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-01-10 11:51:50 By : mailo_sa
 


 

No. 67

Guest


สวัสดีครับพี่ๆ พอดีสนใจทำโปรเจคเกี่ยวกับ VB.net กับ เครื่องสแกนลายนิ้มมือครับ อยากจะรบกวนขอโค้ดตัวอย่างด้วยครับ

เมลล์ : [email protected]

ขอบคุณ ล่วงหน้าครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-05-26 17:50:47 By : sjoconnor
 


 

No. 68

Guest


สวัสดีครับ พี่ๆ ทุกคน ผมสนใจโปรแกรมสแกนลายนิ้วมือ อยากจะขอ code ตัวอย่าง มีศึกษาครับ
Mail : [email protected]
ขอบพระคุณอย่างสูงครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-07-31 09:27:53 By : aekcub
 


 

No. 69

Guest


มันไม่เข้า Event AxZKFPEngX1_OnCapture และ AxZKFPEngX1_OnEnroll
แต่เข้า AxZKFPEngX1_OnFingerTouching ,AxZKFPEngX1_OnImageReceived
ไม่ทราบเป็นที่อะไร รบกวนหน่วยค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-03-16 15:17:25 By : FP
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ติดปัญหาการ select ข้อมูลรหัสลายนิ้วมือ ฐานข้อมุล MySQL + VB2012
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , pangpond.com , pangpond.co.th , สำนักงานบัญชี.com , รถมือสอง

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2022 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่