4d影院门户网
当前位置: 首页 > 本地生活 >

filter是什么意思中文(filter动词)

时间:2021-04-18 来源:http://www.4dchina.cn浏览:
大家好,今日继续讲解VBA数据库解决方案,今日讲解的是第75讲,内容是:记录集中筛选(Filter)的用法。 我们在操作EXCEL表格的时候,筛选是经常用到的,可以解决很多数据处理的问题,那么记录集中可否能做到筛选呢?答案当然是肯定的。今日我们的内容就是讲解记录

大家好,今日继续讲解VBA数据库解决方案,今日讲解的是第75讲,内容是:记录集中筛选(Filter)的用法。

我们在操作EXCEL表格的时候,筛选是经常用到的,可以解决很多数据处理的问题,那么记录集中可否能做到筛选呢?答案当然是肯定的。今日我们的内容就是讲解记录集的筛选,当然我们也可以在取得记录集的时候用WHERE来前期实现此功能,今日我们讲的是后期实现的办法。

实例,我们有如下的工作表数据:

我们首先要用ADO连接方法,取得这个工作表的记录集,这个并不难,然后我们用筛选的方法得到民族为汉的记录,然后把筛选的结果反馈。

下面看我给出的代码:

Sub mynzRecords_75() '第75讲 记录集中筛选(Filter)的用法

Dim cnADO, rsADO As Object

Dim strPath, strSQL As String

Dim myData() As Variant

Dim myTitle() As Variant

Dim myResult() As Variant

Worksheets("75").Select

Cells.ClearContents

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.Recordset")

strPath = ThisWorkbook.FullName

cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 12.0;hdr=yes;imex=1';" _

& "data source=" & strPath

strSQL = "SELECT * FROM [数据8$]"

rsADO.Open strSQL, cnADO, 1, 3

rsADO.Filter = "民族='汉'"

For Each Field In rsADO.Fields

[a1].Offset(0, i) = Field.Name

i = i + 1

Next

Range("a2").CopyFromRecordset rsADO

rsADO.Close

cnADO.Close

Set rsADO = Nothing

Set cnADO = Nothing

End Sub

代码截图:

代码讲解:

1 上述代码实现了记录集的筛选功能,也就是说,记录集也可以如同工作表一样的筛选,

2 rsADO.Filter = "民族='汉'" 这句就是实现筛选的语句,要注意写法。Filter将返回一个针对 Recordset 对象中数据的过滤器。

下面看代码的运行:

上述为返回的结果,正是我们需要的结果。

这里需要再补充一点,刚才我讲过,关于Recordset对象Filter属性,是可以在形成记录集的前用WHERE语句来实现的,可见一样的结果有多种的实现手段,不要拘泥于一种思路,但有的资料上记载,用FILTER不如用WHERE实现速度快。这一点还望大家注意。

相关影视人物

朱瑞http://www.4dchina.cn/topic/6760.html

李谦http://www.4dchina.cn/topic/5017.html

徐奥http://www.4dchina.cn/topic/19828.html

黄康生http://www.4dchina.cn/topic/20539.html

马世嫒http://www.4dchina.cn/topic/9115.html

赵丽萍http://www.4dchina.cn/topic/5470.html

吴述纲http://www.4dchina.cn/topic/37569.html

刘炳银http://www.4dchina.cn/topic/37753.html

戴季英http://www.4dchina.cn/topic/5767.html

金华http://www.4dchina.cn/topic/5519.html

版权声明
本文为4d影院生活服务栏目发表,未经许可,不得转载。

------分隔线----------------------------
最新文章
为您推荐的文章