99100it园地 爱驾考 网址导航 经济大势 爱巢游 手搜大全 聚划算

预览模式: 普通 | 列表

使用ADO和SQL在Excel工作表中执行查询操作的代码

作者:admin  日期:2020-02-23

 Sub ReadFromWorksheetADO()
    Dim wksData As Worksheet
    Dim wksResult As Worksheet
    Set wksData =ThisWorkbook.Worksheets("Sheet2")
    Set wksResult =ThisWorkbook.Worksheets("Sheet3")
    '清除已存在的数据
    wksResult.Cells.ClearContents
    Dim conn As New ADODB.Connection
    conn.Open"Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" &ThisWorkbook.FullName & ";" & _
            "ExtendedProperties=""Excel 12.0;HDR=Yes;"";"
    '在字符串中存储查询语句
    Dim query As String
    query = "Select * from [" &wksData.Name _
                    & "$] Where 物品='苹果' "
    '运行查询并存储在记录集中
    Dim rs As New Recordset
    rs.Open query, conn
    '输入标题
    Dim i As Long
    For i = 0 To rs.Fields.Count - 1
        wksResult.Cells(1, i + 1).Value2 =rs.Fields(i).Name
    Next i
    '输入数据
   wksResult.Range("A2").CopyFromRecordset rs
    '关闭连接
    conn.Close
End Sub
 
代码中，打开并连接数据库的语句为：
 
conn.Open"Provider=Microsoft.ACE.OLEDB.12.0;" & _
 
    "Data Source=" &ThisWorkbook.FullName & ";" & _
 
    "Extended Properties=""Excel12.0;HDR=Yes;"";"
 
适用于2007及以上版本。在同一代码中，只需要连接数据库一次，接着可以执行多个查询操作，无需每次查询前都进行连接。
 
SQL查询语句为：
 
query = "Select * from [" & wksData.Name _
 
    & "$] Where 物品='苹果' "
 
在工作表wksData中查询物品为“苹果”的记录，*号表示获取记录的所有字段。
 
我们还可以设置其他条件查询，获得相应的记录。例如：
 
1.查询物品为“苹果”且数量大于等于100的记录。
 
query = "Select * from [" & wksData.Name _
 
    & "$] Where 物品='苹果' and 数量>=100"
 
2. 查询物品为“苹果”或者数量大于等于100的记录。
 
query = "Select * from [" & wksData.Name _
 
    & "$] Where 物品='苹果' or 数量>=100"
 
3.查询编号以12开头的记录。
 
query = "Select * from [" & wksData.Name _
 
    & "$] Where 编号 like '12%' "
 
4.查询编号以1结尾的记录。
 
query = "Select * from [" & wksData.Name _
 
    & "$] Where 编号 like '%1' "
 
5.查询编号中包含200的记录。
 
query = "Select * from [" & wksData.Name _
 
    & "$] Where 编号 like '%200%' "
 
也可以选择获取满足条件的记录中的字段。例如，查找并获取物品为“苹果”的记录中的编号、物品和单价：
 
query = "Select 编号,物品,单价 from [" & wksData.Name _
 
     & "$] Where 物品='苹果' "
 
来源：
https://cloud.tencent.com/developer/article/1467282
 

 

Tags: 使用ADO和SQL执行查询操作

分类:特色代码 | 固定链接 | 禁止评论 | 引用: 0 | 查看次数: 1126

在excel中引用ADO类库的两种方法

作者:admin  日期:2020-02-23

 在VBA中引用ADO类库一般有两种方式。

 
一种是前期绑定。
 
所谓前期绑定，是指在VBE中手工勾选引用Microsoft ADO相关类库。
 
在Excel中，按<Alt+F11>快捷键打开VBA编辑窗口，依次单击【工具】→【引用】，打开【引用-VBAProject】对话框。在【可使用的引用】列表框中，勾选“Microsoft ActiveX Data Objects 2.8 Library”库，或“Microsoft ActiveX Data Objects 6.1 Library”库，单击【确定】按钮关闭对话框。
 
          
 
 
另一种是使用代码后期绑定。
 
Sub 后期绑定()
    Dim cnn As Object
    Set cnn = CreateObject("adodb.connection")
End Sub
 
两种方式的主要区别是，前期绑定后，在代码编辑过程中，VBE的“自动列出成员”功能，可以提供ADO的属性和方法，这便于代码快捷、准确的编写，但当他人的Excel工作簿并没有手工前期绑定ADO类库时，相关代码将无法运行；因此后期代码绑定ADO的通用性会更强些，它不需要手工绑定相关类库。
来源：https://mp.weixin.qq.com/s?__biz=MzI0MTAxNTc5NA==&mid=2468634477&idx=3&sn=47e652209bab466e8bab3e27cd38a58d&chksm=ffc2f1f0c8b578e6e7ea0fac79289ff858e82641dd740e45e3135644a895fd74a550061bdf99&scene=21#wechat_redirect

Tags: 在excel中引用ADO类库的两种方法

分类:特色代码 | 固定链接 | 禁止评论 | 引用: 0 | 查看次数: 2172

各版本ExcelAdo连接代码

作者:admin  日期:2020-02-23

 07~19版本ExcelAdo连接代码：

Sub test()


    Dim cnn As Object    Set cnn = CreateObject("adodb.connection")    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName    If cnn.State = 1 Then        MsgBox "连接成功!" & vbCrLf & "ADO版本为：" & cnn.Version & vbCrLf & "Connection对象提供者名称：" & cnn.provider        cnn.Close        Set cnn = Nothing    Else        MsgBox "数据库连接失败"    End IfEnd Sub 
 

来源：https://mp.weixin.qq.com/s?__biz=MzI0MTAxNTc5NA==&mid=2468634602&idx=4&sn=4a53cea4ba4a85ae828b17a8f42f693e&chksm=ffc2f177c8b578618aee2e7408bac59c76470c9211969933e3617f91e5e79373d469eebf7927&scene=21#wechat_redirect
 
以下代码兼顾了03及各高级版本Excel的情况：
 
Sub Mycnn3()
    Dim cnn As Object
    Dim strPath As String
    Dim str_cnn As String
    Set cnn = CreateObject("adodb.connection")
    strPath = ThisWorkbook.FullName
    If Application.Version < 12 Then
        str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strPath
    Else
        str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
    End If
    cnn.Open str_cnn
    cnn.Close
    Set cnn = Nothing
End sub
来源：https://mp.weixin.qq.com/s?__biz=MzI0MTAxNTc5NA==&mid=2468634477&idx=3&sn=47e652209bab466e8bab3e27cd38a58d&chksm=ffc2f1f0c8b578e6e7ea0fac79289ff858e82641dd740e45e3135644a895fd74a550061bdf99&scene=21#wechat_redirect
分类:特色代码 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2336

学SQL in Excel教程合集

作者:admin  日期:2020-02-23

 

学SQL in Excel教程合集

 

 

https://mp.weixin.qq.com/s/X5NbOIimYZ5jG0qU_mlWUg

Tags: 学SQL in Excel教程合集

分类:特色代码 | 固定链接 | 禁止评论 | 引用: 0 | 查看次数: 1048
扫码领红包！领到大红包的小伙伴赶紧使用哦！