与active有关
工程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':类型不匹配
请帮忙解决,谢谢