ADO获取字段值到数组的函数

时　间:2016-07-28 09:34:15
作　者:yuhong   ID：15631  城市：天津
摘　要:返回记录集字段数组
正　文:

有时候在操作记录集时，我们需要获得记录集的字段值数组，下面是自己曾用过的一个函数

说明：mm： 判断返回的数组是否为空

         arr() ：是返回的数组

        sqlQry：SQL语句，从记录集中返回需要的一个字段，需要哪个字段就包括哪个字段即可，如要返回唯一值加上DISTINCT

Public Function getDate_Arr(mm As Boolean, arr() As Variant, sqlQry As String)
    Dim Conn1 As New ADODB.Connection
    Dim Rs_Date As New ADODB.Recordset
    Set Conn1 = CurrentProject.Connection
    Dim sql As String
    Dim rstCount As Integer
    Dim x As Integer
        sql = sqlQry
    Rs_Date.Open sql, Conn1, 3, 3
    rstCount = Rs_Date.RecordCount
    If rstCount = 0 Then
        mm = False
        Rs_Date.Close
        Set Rs_Date = Nothing
        Exit Function
    End If
     Rs_Date.MoveFirst
     ReDim arr(0 To rstCount - 1)
     Do Until Rs_Date.EOF
     arr(x) = Rs_Date(0)
     x = x + 1
     Rs_Date.MoveNext
    Loop
      Rs_Date.Close
      Set Rs_Date = Nothing
      mm = True
End Function