資料庫：sql server
代碼功能：當刷卡成功時，實作把表2（adodc2）中車號為刷卡時從卡中讀出的車號的”品名“欄位復制到表1（adodc1）中。
例如：表1中有車號、品名兩列。表2中有車號、品名、單位兩列，當刷卡時讀卡器讀出該卡的對應的車號為晉A123456，則把表2中車號為晉A123456的品名列的值復制給表1中品名列的值。
Private Sub Timer2_Timer()
Dim str As String
st = rf_card(icdev, 0, snr(0))
If (st = 0) Then
st = hex_a(snr(0), asnr, 4)
Else
'MsgBox "請刷卡！", vbCritical
Exit Sub
End If
sector = 1
st = rf_authentication(icdev, 0, sector)
If (st = 0) Then
'List1.AddItem ("rf_authentication ok")
Else
MsgBox "1扇區驗證失敗！", vbCritical
Exit Sub
End If
st = rf_read(icdev, 4, data10)
st = rf_read(icdev, 5, data11)
st = rf_read(icdev, 6, data12)
Text9.Text = data10
Text10.Text = data11
Text11.Text = data12
Text12.Text = Trim(Text9.Text) & Trim(Text10.Text) & Trim(Text11.Text)
If (st <> 0) Then
MsgBox "讀卡失敗！", vbCritical
Else
st = rf_beep(icdev, 30)
st = rf_halt(icdev)
End If【以上全為讀卡功能，不會不用看，主要看下面的，讀卡后車號已經寫入text12文本框了】
Adodc1.Recordset.ADDNEW
str = " select 品名 from 進料資料集 where 車號=' " & Text12.Text & " ' "
Adodc2.RecordSource = str
Adodc1.Recordset.Fields("車號") = Text12.Text
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
【報錯為：物件變數或with塊變數未設定】
uj5u.com熱心網友回復：
要做大作業的來看看。。= =uj5u.com熱心網友回復：
幫你頂一下，太復雜了，腦殼大。uj5u.com熱心網友回復：
物件變數或with塊變數未設定，一般有幾種情況，首先看看是哪個變數報錯，檢查這個變數；其次可能是你的VB安裝程式是否有問題，重啟安裝一遍VB試試。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/130462.html