关于VB代码实现数据库的问题，有兴趣进来看看

Question

数据库：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块变量未设置】

Answer 1

对象变量或with块变量未设置，一般有几种情况，首先看看是哪个变量报错，检查这个变量；其次可能是你的VB安装程序是否有问题，重启安装一遍VB试试。