'自定义简单查询SQL赋值到数组

通过VBA自定义简单的SQL查询,将查询结果存储到数组中,然后将数组的内容粘贴到Excel工作表的A5单元格开始的区域,实现了数据的快速导入。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

'自定义简单查询SQL赋值到数组

'Public JLH As Long  '长整数变量;工作表记录所在行
'Public JLL As Long  '长整数变量;工作表记录所在行

Function SQL_JDCX(F_Url As String, F_strSQL As String) As Variant
 'F_Url  '定义数据库链接字符串,连接方法、服务器名称、数据库名称、数据库账号、数据库密码
  'F_strSQL As String '字符串变量sql语句字符串
    Dim i
    Dim j
    Dim F_arr
        Set cn = CreateObject("Adodb.Connection")
        Set rs = CreateObject("Adodb.Recordset")
    On Error GoTo errmsg  '出现错误转到标识
        cn.Open F_Url '与数据库建立连接,如果成功,返回连接对象cn
        rs.Open F_strSQL, cn, 1, 3 '执行strSQL所含的SQL命令,结果保存在rs记录集对象中
        JLH = rs.RecordCount
        JLL = rs.Fields.Count
        'SQL记录 装入数组------------------------------------
        ReDim F_arr(1 To JLH + 1, 1 To JLL)
         rs.Movefirst
       '表头赋值
            For i = 0 To rs.Fields.Count - 1
               F_arr(1, i + 1) = rs.Fields(i).Name '标题
            Next
        '记录赋值
            For i = 1 To JLH
                For j = 0 To rs.Fields.Count - 1
                F_arr(i + 1, j + 1) = rs.Fields(j).
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值