Microsoft VBScript運行時錯誤'800a01a8'：必需的對象

Question

嗨，我有一個ASP頁面，該頁面調用帶有2個參數的函數

當我從asp頁面調用函數時，出現此錯誤

Microsoft VBScript運行時錯誤'800a01a8'所需對象：'AllPerInfo4xfm（...）'

我的代碼是

set GetAllInv = new GetFunction
set MyOrsk = GetAllInv.AllPerInfo4xfm(ssgr,nat)

我的功能是

Public Function AllPerInfo4xfm(ssgr,nat) 
   dim sdir,sdir2,ssec,tlen,ssec2
   tlen=len(ssgr)      
   sql ="Select * from Personal"
   myors2.Open SQl,oConn,1,1
   set Allperinfo4xf = myors2
end function

我錯過了什么嗎請咨詢

Answer 1

假設AllPerInfo4xfm() 不返回一個對象，松開Set在

set MyOrsk = GetAllInv.AllPerInfo4xfm(ssgr,nat)

=>

MyOrsk = GetAllInv.AllPerInfo4xfm(ssgr,nat)

更新wrt評論：

如果AllPerInfo4xfm()應該返回一個記錄集，請確保該函數包含一行

Set AllPerInfo4xfm = objRecordset 

（用您的變量名稱替換objRecordset；現在，當然，需要分配給MyOrsk的Set ）

更新OT的修訂版：

給定修改后的代碼，應同時檢查GetAllInv和myors2 。 當執行該行時，它們是有效的對象嗎？

比照 思考的食物