將數據添加到記錄集時的運行時錯誤'91'

我想在VB6中向數據庫中插入一些信息，但運行時錯誤爲'91'。我的代碼：將數據添加到記錄集時的運行時錯誤'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

來源

2015-11-07 Alireza Darban

我編輯了您的文章，使其更具可讀性。我做出的一個判斷是將Adodc1.Recordset.Fields（「Fname」）= Fname'寫成一行，而不是兩行。我認爲這是你的原始代碼，在複製粘貼錯誤拆分行之前，但請驗證這一點。 – MicroVirus

您還沒有發佈的代碼的其餘部分，以在其中創建Adhoc1變量等等

這post表明RecordSet在使用它之前還沒有被初始化，但是沒有代碼就很難更具體。

來源

2015-11-07 10:49:17

運行時錯誤'91'是Object variable or With block variable not set，這是一個稍微混淆的方式來說你的變量包含Nothing。

要麼你忘了正確初始化Adodc1，或者，這是更可能的是，你需要初始化Adodc1.RecordSet到一些有用的東西（如Set Adodc1.RecordSet = New RecordSet或相關的），然後才能使用它。

來源

2015-11-07 10:51:00 MicroVirus

順便說一句，你發佈的代碼，我相信你會填充一個記錄集插入到數據庫。嘗試如下：

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

來源

2015-11-08 12:58:22

將數據添加到記錄集時的運行時錯誤'91'

回答

相關問題