Question

我想在VB6中将一些信息插入数据库，但我得到运行时错误'91'。我的代码：

    Private sub btn_click()
          Fname = txtFname.text
          Adodc1.Recordset.AddNew
          Adodc1.Recordset.Fields("Fname") = Fname
          Adodc1.Recordset.Update
    End sub

debuger在Adodc.Recordset.AddNew

上显示错误

Answer 1

您尚未发布其余代码，以了解Adhoc1变量的创建位置等等。

这个post表明RecordSet在使用之前尚未初始化，但如果没有代码，则很难更具体。

Answer 2

运行时错误“91”是Object variable or With block variable not set，这是一种令人困惑的方式，表示您的变量包含Nothing。

您忘记正确初始化Adodc1，或者更有可能，您需要先将Adodc1.RecordSet初始化为有用的内容（如Set Adodc1.RecordSet = New RecordSet或相关内容），然后才能用它。

Answer 3

顺便发布代码，我相信你会填充一个Recordset插入到数据库中。请尝试如下：

sub btn_click()
    dim Adodc1 as adodb.recordset

    set Adodc1 = new adodb.recordset

    Fname = txtFname.text

    Rs.Fields.Append "Fname", adVarChar, 20     'adVarChar = text, followed by the amount of characters

    Adodc1.open()

    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields("Fname") = Fname
    Adodc1.Recordset.Update
End sub

将数据添加到记录集时的运行时错误“91”

3 个答案: