首页 最新文章网站编程正文

Matomo数据统计助手知识要点手记

imitker 编程 975 0

代码片段① 

   ……

    '定义数据源执行结果对象

    Dim rstMain  As ADODB.RecoRDSet

    Set rstMain = New ADODB.Recordset

    '执行sql获取结果,adLockOptimistic表示执行过程中,数据可以正常操作

    rstMain.CursorLocation = 3 '该属性可返回记录数

    rstMain.Open strSQL, oConn, 3, 3

    '数据非空判断

    If rstMain.EOF Then

        MsgBox "没有查询到任何数据!"

        Exit Function

    Else

        '将查询结果,从A2开始放置到当前的Excel中(比一条条的处理效率大幅提升

        Range("A2").CopyFromRecordset rstMain

        memberSum = CLng(rstMain.RecordCount)  '记录数

    End If

……



评论

百度搜索

站点信息

  • 文章总数:508
  • 页面总数:7
  • 分类总数:29
  • 标签总数:861
  • 评论总数:285
  • 浏览总数:653970
Copyright ©2019-2020.Powered by©刘相涛 辽ICP备14000512号-5