给我改个首个DLL错误，谢谢

[put2001_ruan]

test_ruan.dll
Private cnn As ADODB.Connection
Private rs As ADODB.Recordset
Private SQLStr As String
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'功能：返回对一个数据的记录集
'输入参数：TmpAddString string 数据库地址
' TmpNamString string 数据库名称
' TmpSqlString string 查询条件
' TmpInt int 数据库类型
' TmpUser string 数据库用户名
' TmpPass string 数据库密码
'输出： Adodb.recordset 一个记录集
'说明：
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function DBRecord(ByVal TmpAddString As String, ByVal TmpSqlString As String, ByVal TmpInt As Integer, _
ByVal TmpServerStr As String, ByVal TmpNamString As String, ByVal TmpUser As String, ByVal TmpPass As String) As ADODB.Recordset

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
If TmpInt = 1 Then '如果数据库是ACCESS
SQLStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & TmpAddString & _
";Jet OLEDB:Database Password=" & TmpPass
ElseIf TmpInt = 2 Then '如果是SQL
SQLStr = "driver={SQL Server};server=" & TmpServerStr & ";uid=" & TmpUser & ";pwd=" & TmpPass & ";database=" & TmpNamString
End If

cnn.Open SQLStr
rs.Open TmpSqlString, cnn, adOpenDynamic, adLockOptimistic

Set DBRecord = rs
End Function
我生成一个test_ruan.dll动态集，然后引用在另外一个工程里引用test_ruan
Private Sub Form_Load()
Dim test1 As New ADODB.Recordset
Dim xx As New test_name.Class1 '《---这里我有的不太明白，怎么会要求
'class1，而且我的dll没有用class1啊？

test1 = xx.DBRecord("E:\联系管理1.mdb", "select * from 公司信息", 1, "", "", "", "put2006")
MsgBox test1.RecordCount
End Sub

报告错误：属性的使用无效。谢谢大家

[DeltaCat]

你的DLL编译成功了？

还有你 的DLL中的类模块的名字是什么？

你的最后一句
Set DBRecord = rs 可以编译通过？

[put2001_ruan]

可以的啊。类模块的名字是默认的 class1啊。

[golden24kcn]

Public Function DBRecord(ByVal TmpAddString As String, ByVal TmpSqlString As String, ByVal TmpInt As Integer, _
ByVal TmpServerStr As String, ByVal TmpNamString As String, ByVal TmpUser As String, ByVal TmpPass As String) As

最后面不用定义为ADODB.Recordset,要定义为Object

不然不能编译.而在使用起来是一样的!!!

[bennycao]

test_ruan
最后一句
Set DBRecord = rs
改为
DBRecord = rs
工程里第一句
Dim test1 As New ADODB.Recordset
改为 Dim test1 As ADODB.Recordset '就不要再New一个了

test1 = xx.DBRecord("E:\联系管理1.mdb", "select * from 公司信息", 1, "", "", "", "put2006")
改为
Set test1 = xx.DBRecord("E:\联系管理1.mdb", "select * from 公司信息", 1, "", "", "", "put2006")

如果还不是报错的话，把两个工程都运行起来，在看是在哪里报错的

[put2001_ruan]

不行，改成object也出现同样的错误！那我本来就是返回一个recordset记录集的嘛！！！

[put2001_ruan]

to:bennycao(本本)
开玩笑吧，把DBRecord = rs改成这样更本就运行通不过。这是对象附值，怎么可以去掉set 的呢？？

[put2001_ruan]

哦。知道了。