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

时间:2015-11-07 09:45:27

标签: vb6 runtime-error ado

我想在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

上显示错误

3 个答案:

答案 0 :(得分:1)

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

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

答案 1 :(得分:1)

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

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

答案 2 :(得分:0)

顺便发布代码,我相信你会填充一个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