zoukankan      html  css  js  c++  java
  • VBA:Excel使用SQL进行查询

    Sub Query()
        Dim Conn As Object, Rst As Object
        Dim strConn As String, strSQL As String
        Dim i As Integer, PathStr As String
        Set Conn = CreateObject("ADODB.Connection")
        Set Rst = CreateObject("ADODB.Recordset")
        PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
        Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
        Case Is <= 11
            strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
        Case Is >= 12
            strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
        End Select
        '设置SQL查询语句
        strSQL = "SELECT DISTINCT 发站 FROM [LMSData2016.12$]"
        Conn.Open strConn    '打开数据库链接
        Set Rst = Conn.Execute(strSQL)    '执行查询,并将结果输出到记录集对象
        With Sheet1
            .Cells.Clear
            For i = 0 To Rst.Fields.Count - 1    '填写标题
                .Cells(1, i + 1) = Rst.Fields(i).Name
            Next i
            .Range("A2").CopyFromRecordset Rst
            .Cells.EntireColumn.AutoFit  '自动调整列宽
        End With
        Rst.Close    '关闭数据库连接
        Conn.Close
        Set Conn = Nothing
        Set Rst = Nothing
    End Sub
  • 相关阅读:
    CSS中expression使用简介
    过滤Html标签代码
    ASP.NET上传图片时显示预览
    30分钟搞定.net正则表达式
    DataFormatString格式化
    Js事件大全
    Hibernate关联映射
    动态给下拉框添加选项
    python模块整理文章导航
    python学习笔记文章导航
  • 原文地址:https://www.cnblogs.com/zhaoshujie/p/9594703.html
Copyright © 2011-2022 走看看