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