Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助