VB 6.0添加新记录引发错误对象变量或未设置块

Question

我想在表单加载事件上向我的数据库添加一条新记录 - 也就是说，只要我的表单加载文本框将是空白的，这将使用户能够输入信息，然后将其添加到数据库。 但是，当我的代码是这样时：

Private Sub Form_Load()
Data1.Recordset.AddNew
End Sub

我一直收到错误：

  

运行时错误'91';对象变量或未设置块。   我该怎么办？

Answer 1

将您的代码放在Form_Initialize（）

中

Private Sub Form_Initialize()
Data1.Recordset.AddNew
End Sub

Answer 2

我想;您需要将其更改为以下内容：

Private Sub Form_Load()
    Dim rs As ADODB.Recordset
    Set rs = Data1.Recordset

    rs.AddNew
    rs!Column1 = 1
    rs!Column2 = "test
    rs.Update

End Sub

现在，如果您收到Set rs = Data1.Recordset上方的错误消息，那么我们需要知道Data1是什么。

Answer 3

只需在adodc1.refresh行之前添加addnew即可。它会解决它。