Question

vb 打开对象时,不允许操作

Dim rs_addfc As New ADODB.Recordset
Dim rs_add As New ADODB.Recordset

Private Sub cmdAdd_Click()

Dim sql As String
sql = "select*from goods"
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_add.AddNew
'修改第5出
rs_add.Fields("生产厂商") = txtFc.Text
rs_add.Fields(2) = txtName.Text
rs_add.Fields(3) = txtType.Text
rs_add.Fields(4) = txtPrice.Text
rs_add.Fields(5) = Val(txtQuantity.Text) '使用Val函数把TextBox.Text中的文本型数据转换成数字型数据
rs_add.Fields(6) = Val(txtmoney.Text)
rs_add.Fields(7) = txtyear.Text
rs_add.Fields(8) = txtmon.Text
rs_add.Fields(9) = txtday.Text
rs_add.Fields(10) = txtem.Text
'修改
'这里面又外键约束 员工员编号 和 生产厂商必须有对应的记录 否则报错
On Error GoTo ToExit
rs_add.Update

MsgBox "添加商品入库成功", vbOKOnly + vbExclamation, ""
ToExit:
Exit Sub

End Sub

Answer 1

记录集不能在打开的状态下再打开，要在open之前先close关闭它，或Set rs_add=nothing也行。
或在处理完后把它关闭。

如果是频繁操作同一个记录集，打开一次就可以了，
If not rs_add.State=adStateOpen then '判断还没打开时才打开
Dim sql As String
sql = "select*from goods"
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
end if