VBA数据库解决方案第45讲：利用ADO实现工作表数据的排重处理

大家好，我们今天继续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=Excel12.0;" _

        & "Data Source=" &strPath

    strSQL = "SELECT DISTINCT 型号,生产厂FROM [数据$]"

    Cells.ClearContents

    Range("A1:B1") = Array("型号", "生产厂")

    Range("A2").CopyFromRecordsetcnADO.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").CopyFromRecordsetcnADO.Execute(strSQL)

上述语句给出A1:B1填入的数组，然后从记录中拷贝出记录到A2之后的单元格中。

代码的运行：

今日内容回向：

1  如何实现列数据的排重？

2  如何理解本节用的SQL语句SELECT DISTINCT 列名称 FROM 表名称。