使用Excel VBA自定义类来包装数据库调用并返回logging集

我有以下代码。 意图是有这个工具类，我用来保存我所有的数据库工作，只是返回填充ADODB.RecordSet对象。 我收到错误。 我究竟做错了什么？

Public Property Get RecordSetCustomers() As ADODB.Recordset m_myDB.BuildConfig Dim cmd As New ADODB.Command Dim strSQL As String strSQL = "SELECT * FROM vw_customers" cmd.CommandType = ADODB.CommandTypeEnum.adCmdText cmd.ActiveConnection = m_myDB.DbConnection cmd.CommandText = strSQL Dim rs As New ADODB.Recordset Set rs = New ADODB.Recordset Set rs = cmd.Execute RecordSetCustomers = rs End Property 

m_myDB是一个保存所有数据库configuration/连接参数的对象/类。

我收到的错误是：“编译错误：无效的财产使用”

我试着将其转换为具有相同结果的函数。

Answer 1

VBA语法要求关键字“set”用于对象引用分配。 见http://roymacleanvba.wordpress.com/2009/05/08/set-keyword/

  ... Set RecordSetCustomers = rs End property