我编译了一个.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块变量未设置 呢?
和数据库连接没错,我试了希望不吝赐教 谢谢
里面有一个类 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块变量未设置 呢?
和数据库连接没错,我试了希望不吝赐教 谢谢
Dim objSub As cSetSubID
objSub.AddNew
end sub
改成
Private Sub cmdAdd_Click()
Dim objSub As cSetSubID
set objsub=new csetsubid
objSub.AddNew
end sub
类 cSetSubID也存在阿执行到objSub.AddNew 就出问题了
为什么呢?
Private Sub cmdAdd_Click()
Dim objSub As new cSetSubID
objSub.AddNew
end sub
还要将你编的DLL引用进去。
Private Sub cmdAdd_Click()
Dim objSub As New cSetSubID
objSub.AddNew
end sub