尝试active,遇到困难,请求帮助

contactjoe 2000-08-21 06:17:00
工程personserver中已加入userconnection并改名为conperson,
其属性连接为ODBC数据源newperson,
personserver工程类型为ActiveX EXE,
工程中类模块person代码为:
(通用) Dim conn As conperson
Dim qy As rdoQuery
Dim rs As rdoResultset
......
Private Sub Class_Initialize()
Set conn = New conperson
conn.EstablishConnection
End Sub

'personid,personname,address,email,phone为person类属性

Public Sub getdata()
Set qy = New rdoQuery
If personid <> 0 Then
qy.SQL = "select * from qryperson where personid=" & personid
qy.MaxRows = 1
Set qy.ActiveConnection = conn '运行停在此句
Set rs = qy.OpenResultSet
With rs
personname = !personname
address = !address
email = !email
phone = !phone
End With
End If
......
我先在立即窗口中测试,写了如下代码:
set f=new personserver.person
f.personid=1
f.getdata 当在此句后敲回车时出错:
实时错误'13':类型不匹配

请帮忙解决,谢谢

...全文
94 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Un1 2000-08-22
  • 打赏
  • 举报
回复
你确认qy.ActiveConnection的类型是conperson?!
flyingknight 2000-08-21
  • 打赏
  • 举报
回复
vb我不会,vc还差不多

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧