ใครเขียน vb.net กับ U.are.U 4000 บ้างคับ ช่วยหน่อย

พอดีมีตัวอย่าง U.are.U 4000  vb.net ที่เค้าให้มาเชื่อมกับฐานข้อมูลAccess พอดีต้องทำงานกับ MySQL แบบ Mysql connector แต่ติดตรงที่วนลูปข้อมูลใน DB มาเก็บไว้ที่ cache ครับ ใครผู้รู้ช่วยแปลงเป็น Mysql connector หน่อย ครับ ติดตรงนี้ แก้หลายวันแล้วครับ..งง


  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim sTemp As String
        Dim strSQL As String = ""
        Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\test.mdb;User Id=admin;Password=;"
        Dim conn As New OleDbConnection(connStr)
        conn.Open()
        Dim FingerCount = 0  'กำหนดนิ้วเริ่มต้นของนิ้วที่จะเก็บลงไปใน Memory
        fpcHandle = ZKFPEngX1.CreateFPCacheDB 'ประกาศให้มีการสร้าง Cache ฐานข้อมูลใน Memory
        strSQL = "select * from fptable"
        Dim _cmd As New OleDbCommand(strSQL, conn)
        Dim reader As OleDbDataReader = _cmd.ExecuteReader()
        Dim _cmd1 As New OleDbCommand(strSQL, conn)
        Dim adapter As New OleDbDataAdapter(_cmd1)
        Dim data As New DataSet()
        adapter.Fill(data, "test")
        Dim Fpm As String = ""
        i = 0
        While (reader.Read()) 'While Fpm ' ทำการ Loop ลายนิ้วมือที่เก็บไว้ในฐานข้อมูลมาสร้าง Cache
           sTemp = data.Tables("test").Rows(i)("fpstring") 'ฐานข้อมูลนิ้วเก็บในตรงนี้
            ZKFPEngX1.AddRegTemplateStrToFPCacheDB(fpcHandle, FingerCount, sTemp) 'เพิ่ม ลายนิ้วมือเข้าไป โดยมี FingerCount เป็นตัวนับนิ้ว และเรียกเข้าในระบบ String ซึ่งอยู่ในตัวแปร sTemp
          


ReDim Preserve FFingerNames(FingerCount + 1) 'สร้าง Array ของตัวแปร เพื่อเก็บชื่อ ของนิ้ว เอาไว้เรียกมาแสดงตอนแสดงผล
            FFingerNames(FingerCount) = data.Tables("test").Rows(i)("name")  'เอาข้อมูลเข้า
            ListBox1.Items.Add(data.Tables("test").Rows(i)("name"))
            FingerCount = FingerCount + 1
            i = i + 1
        End While
        reader.Close()
        conn.Close()
    End Sub
แก้ไขข้อความเมื่อ
แสดงความคิดเห็น
โปรดศึกษาและยอมรับนโยบายข้อมูลส่วนบุคคลก่อนเริ่มใช้งาน อ่านเพิ่มเติมได้ที่นี่