Question

VB中通过DataGrid1控件删除某一条记录，通过文本框活的用户输入需要删除记录的ID删除

这是输入ID为“1”后点击删除出现的情况：光标移至ID为“1”的记录行，并出现错误提示框，单机调试后出现下图：

删除按钮代码为：
Private Sub Command2_Click()
DataGrid1.AllowDelete = True
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bike.mdb;Persist Security Info=False"
Adodc1.Visible = False
Recordset = "b1"
With Adodc1
.Recordset.Find "ID='" & Text1.Text & "'"
If Not Recordset.EOF And Not Recordset.BOF Then
Adodc1.RecordSource = "Delete * from b1 where ID=Text1.Text"
Adodc1.RecordSource = "update * from b1"
End If
End With

Adodc1.Recordset.MoveNext '移动数据库指针
Adodc1.Recordset.Delete ' 然后删除记录
Adodc1.Recordset.Update

End Sub





Answer 1

Recordset = "b1"

不知道这个Recordset 是什么数据类型？
"b1"应该是个字符串吧？是不是定义了b1?b1又是什么类型？
如果Recordset是个字符串"b1"，那么Recordset.BOF应该是会报错的。