想同时封装成以下2代码成DLL文件,但编译时就出错,生成不了DLL文件,想让高手帮忙我错在哪里
我在ActiveX DLL中想将下列代码封装成以下DLL: 但不成功,请高手帮忙解决一下:谢谢!!新建一个类模块,bhsq1.cls
bhsq是类名,类的工程名 bhsq1:
Public Function sl(ByVal sql As String) As ADODB.Recordset
Dim mycon As ADODB.Connection
Dim rst As ADODB.Recordset
Set mycon = New ADODB.Connection
mycon.ConnectionString = "rovider=sqloledb;server=.;Database=sxcpmc;Uid=sawd=;"
mycon.Open
Dim stokens() As String
Set rst = New ADODB.Recordset
rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
Set sl = rst
End Function
单独封装上面的代码,能在程序使用
Dim bhs As New bhsq '用里面的类名,而不是用类的工程名
Set mrc1 = bhs.sl(Trim(txtsql))
Set bhs = Nothing '能正常编译和使用'
-----------------------------
但是,再在以上的代码基础上再想封装以下代码就报错了(我把两代码放在同一个类模块中,也再无其他模块了..).
编译时就有错误提示:提示private 对象模块不能作为参数/公共过程的返回类型,公共数据成员或公共用户定义类型字段在公共的对象中使用 ,生成不了DLL
Public Sub gongdandata(ByVal MSF1 As MSFlexGrid) '预览生产单gongdan窗体时用到
Dim i As Integer
Dim mrc1 As ADODB.Recordset
Set mrc1 = sl(Trim(txtsql))
If mrc1.EOF = False Then
mrc1.MoveFirst
MSF1.RowHeightMin = 410
MSF1.CellAlignment = 0
With MSF1
.Rows = 1
Do While Not mrc1.EOF
.Rows = .Rows + 1
For i = 1 To mrc1.Fields.Count
.TextMatrix(.Rows - 1, i - 1) = FormatNumber(mrc1.Fields(i - 1), 3, -1)
Next i
mrc1.MoveNext
Loop
mrc1.Close
End With
End If
End Sub
请高手帮忙解答一下,我错在哪里了????
