类中函数的调用
我设了两个类
一个类中
设了一个Function
我想在别一个类当中去调用这个类
请问应该怎么办？？？？
请给出代码
谢谢了
祝新年快乐！！！！！！！！！
问题点数：100、回复次数：8Top
1 楼YHeng（我来也！！！！！！）回复于 2003-02-02 19:14:09 得分 30
dim cxx as new 类名
类名.函数名(实参表)
set cxx=nothing '用完后释放对象
大概是这样，记不大清楚了！！！！！！Top
2 楼YHeng（我来也！！！！！！）回复于 2003-02-02 19:15:31 得分 0
不好意思，不要使用cxx作为对象名，我个人觉得使用obj前缀好点！！！！！！Top
3 楼ForrestSun（佑佑）回复于 2003-02-02 19:46:51 得分 0
呵呵这个我知道
你试试这个
Option Explicit
Public Function ExecuteSql(ByVal Sql As String, MsgString As String) As ADODB.Recordset
'传递参数SQL传递查询语句，msgstring 传递查询信息
'自身以一个数据集对象的形式返回
Dim cnn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSql_error
sTokens = Split(Sql) '用split函数产生一个包含各个子串的数组
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
cnn.Execute Sql
MsgString = sTokens(0) & "操作成功！"
Else
Set rsT = New ADODB.Recordset
rsT.Open Trim$(Sql), cnn, adOpenKeyset, adLockOptimistic
Set ExecuteSql = rsT
MsgString = "查询到" & rsT.RecordCount & "条记录"
End If
ExecuteSql_Exit:
Set rsT = Nothing
Set cnn = Nothing
Exit Function
ExecuteSql_error:
MsgString = "查询错误:" & Err.Description
Resume ExecuteSql_Exit
End Function
Private Function ConnectString()
ConnectString = "dsn=data"
End Function
你用别的类调用一下？？
我没试通我明明设成了PUBLIC可不知道为什么
Top
4 楼YHeng（我来也！！！！！！）回复于 2003-02-02 21:09:52 得分 0
不知是否设置了一个全局的 ADODB.Recordset 对象呢！！！！！！Top
5 楼billj（小金）回复于 2003-02-02 22:37:53 得分 30
如果有两个类模块C1和C2
如果被调函数Func1()放于C1中，必须设为公有函数（即用Public声明函数）
然后从C2中去调用
dim objC1 as C1 ' 声明C1类
dim x
set objC1 = new C1 ' 实例化C1类
x = objC1.Func1()
set objC1 = Nothing ' 释放类实例Top
6 楼zjxgold（稻草人）回复于 2003-02-03 10:31:07 得分 20
upTop
7 楼CityhunterID（城市猎人）回复于 2003-02-03 11:12:41 得分 20
upTop
8 楼ForrestSun（佑佑）回复于 2003-02-03 11:40:51 得分 0
问题我已自己解决
问题出在没有引用ADO2.5的引用上
谢谢上面的回答
类与类的调用可以通过接口调用
也可以通过引用调用
我个人总结的不知对不
调用方法是用接口调用
调用函数、属性时采用引用调用
在每个类的前面要进行引用
implements classa 调用方法时的引用
dim test as new classa 调用属性时和函数时引用Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
