1个问题
1 在主程序外的DLL中的数据类ClassData中有一个返回RecordSet的函数GerRs,在主程序中:
Public Cn as New ClassData '在模块中设置为全局变量,保持Connect为连接状态。
Cn.Connect '打开连接
Dim Rs as Adodb.recordset
set Rs=ClassData.GetRs
Msgbox Rs.Fields(0)
返回错误:对象变量未设置,也就是Rs仍然是Nothing.没有被赋值。
把代码改为:
Msgbox ClassData.GetRs.Fields(0)
结果返回正确值。函数是有传回Recordset的,为什么不能赋值。Cn类对象也没有被关闭,类内的Connection应该还保持连接。