我编译了一个.dll
里面有一个类 cSetSubID
其中的一个Function是
Public Function AddNew() 'As resAdd
   g_Cn.Execute "insert into Subsection(SectionID,SectionName) values (" _
                         & 12 & ", " & 12 & ")"
End Function
(简化了)
然后新建一个工程 ,引用这个dll
Private Sub cmdAdd_Click()
    Dim objSub As cSetSubID
    
    objSub.AddNew
end sub
为什么编译总是出现  实时错误 91  对象变量或with块变量未设置 呢?
和数据库连接没错,我试了希望不吝赐教 谢谢

解决方案 »

  1.   

    你在使用前有没有引用这个DLL?
      

  2.   

    Private Sub cmdAdd_Click()
        Dim objSub As cSetSubID
        
        objSub.AddNew
    end sub
    改成
    Private Sub cmdAdd_Click()
        Dim objSub As cSetSubID
        set objsub=new csetsubid
        objSub.AddNew
    end sub
      

  3.   

    首先检查类cSetSubID是否已引入,然后检查g_Cn是否赋值
      

  4.   

    我按照 danielinbiti(金) 说的作了
    类 cSetSubID也存在阿执行到objSub.AddNew 就出问题了
    为什么呢?
      

  5.   

    非常简单你在声明时没有有New关键词应该是这样声明 
    Private Sub cmdAdd_Click()
        Dim objSub As new cSetSubID
        
        objSub.AddNew
    end sub
      

  6.   

    有没有用到ADO,用到的话还要引用ADO引擎。
    还要将你编的DLL引用进去。
    Private Sub cmdAdd_Click()
        Dim objSub As New cSetSubID
        
        objSub.AddNew
    end sub
      

  7.   

    addnew使关键字,改成add_new试试吧