利用ADO,实现大数据、多数据之排重处理
摘要:1 strSQL = \"SELECT DISTINCT 型号,生产厂 FROM [数据$]\" 这句代码的意义是在型号和生产厂的字段值中去掉重复的值。strSQL = \"SELECT DISTINCT 型号,生产厂 FROM [数据$]\"。
大家好,我们今天继续VBA数据库解决方案的学习,这讲的内容是利用ADO实现工作表数据的排重处理。
实例:在我的工作表中有如下的数据,
很显然有一部分型号和生产厂的数据是重复的,我们的目标是把这些重复的值只是保留一个,然后把净化的数据放到一页文件中,该如何做到呢?
下面我给出我的代码:
Sub mynzRecords_45() '第45讲,利用ADO,实现工作表数据的排重处理
Dim cnADO, rsADO As Object
Dim strPath, strTable, strSQL As String
Set cnADO = CreateObject(\"ADODB.Connection\")
Dim Sht1, Sht2 As Worksheet
Set Sht1 = Worksheets(\"45\")
Set Sht2 = Worksheets(\"数据\")
Sht1.Activate
'建立一个ADO的连接
strPath = ThisWorkbook.FullName
cnADO.Open \"Provider=Microsoft.ACE.OLEDB.12.0;\" _
& \"Extended Properties=Excel 12.0;\" _
& \"Data Source=\" & strPath
strSQL = \"SELECT DISTINCT 型号,生产厂 FROM [数据$]\"
Cells.ClearContents
Range(\"A1:B1\") = Array(\"型号\", \"生产厂\")
Range(\"A2\").CopyFromRecordset cnADO.Execute(strSQL)
cnADO.Close
Set cnADO = Nothing
End Sub
代码的截图:
代码的讲解:
1 strSQL = \"SELECT DISTINCT 型号,生产厂 FROM [数据$]\" 这句代码的意义是在型号和生产厂的字段值中去掉重复的值。其中利用了SQL SELECT DISTINCT 语句。
语法:SELECT DISTINCT 列名称 FROM 表名称
语法说明:在表中,可能会包含重复值。这并不成问题,不过,有时您也许希望仅仅列出不同(distinct)的值。关键词 DISTINCT 用于返回唯一不同的值。
2 Range(\"A1:B1\") = Array(\"型号\", \"生产厂\")
Range(\"A2\").CopyFromRecordset cnADO.Execute(strSQL)
上述语句给出A1:B1填入的数组,然后从记录中拷贝出记录到A2之后的单元格中。
代码的运行:
今日内容回向:
1 如何实现列数据的排重?
2 如何理解本节用的SQL语句SELECT DISTINCT 列名称 FROM 表名称。