我是用rfid讀卡機讀到卡號後 然後要判斷是否與資料庫卡號符閤 VB比對資料庫 - 趣味新聞網

發表日期 2008-11-13T01:20:46+08:00

     我是用rfid讀卡機讀到卡號後，然後要判斷是否與資料庫卡號符閤，可是都找不到資料，資料庫中明明就有符閤的。不知哪裏寫錯瞭，幫幫忙吧。
Private Sub Check_Click()
Dim criteria As String

Dim ctr As Integer
Dim mysql As String
Dim cnnstr As String
'print number of card
List1.AddItem SN
Set rs = New ADODB.Recordset
cnnstr = "provider=sqloledb;data source=asdf-469d6024a0;uid=sa;pwd=;initial catalog=RFID"

rs.Open "member", cnnstr, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs

rs.MoveFirst
criteria = "Card= '" & SN & " '"
rs.Find criteria, adSearchForward

end sub
SN是卡號的字串變數
程式碼如下
Private Sub cmdSelect_Click()

Dim ctr As Integer
Dim TagType(0 To 50) As Byte

'Selects a single card and returns the card ID (Serial Number)
retcode = ACR120_Select(rHandle, TagType(0), ResultTag, ResultSN(0))


'Check if Retcode is Error
If retcode < 0 Then
'Call Function to Define Error Code in string form.
List1.AddItem (ErrDef(retcode))
Else

List1.AddItem ("Select Success")

'Convert Serial Number to Hex Format.
'(You Can Bypass Hex() Conversion if you want to display serial number as decimal)

If TagType(0) = 4 Or TagType(0) = 5 Then
SN = ""
For ctr = 0 To 6
SN = SN + A_BUGFIX(ResultSN(ctr))
Next
Else

SN = ""
For ctr = 0 To ResultTag - 1
SN = SN + A_BUGFIX(ResultSN(ctr))
Next

End If

'Display Serial Number
List1.AddItem (SN)

End If


'Auto Scroll List Box to the latest Entry
List1.ListIndex = List1.NewIndex

End Sub
它還會判斷卡的型彆，不過我沒有把它印齣來，因為我隻要判斷卡號而已。

[ 本帖最後由 mayday03225 於 2008-11-13 09:48 編輯 ]

分享鏈接