VBA执行含DISTINCT的SQL查询未返回唯一ItemID问题咨询

我来帮你搞定这个问题——你的SQL语句本身是对的（用了DISTINCT），但问题出在VBA的循环逻辑上：你先插入了多行相同的ItemNo，然后逐行循环处理这些重复的ItemNo，导致每次处理都会把查询结果覆盖到当前行的B列，最后就只剩第一个ItemID了。

问题根源拆解 #

看你的表格状态，你先根据CntItemID插入了多行相同的ItemNo（比如ItemNo=2有3行），然后循环从row=2到50逐行处理：

1. 当row=2时，查询ItemNo=2得到3个ItemID（2、3、4），CopyFromRecordset会把这三个值填充到B2、B3、B4；
2. 接着row=3，你又读取A3的ItemNo=2，再次执行SQL，把结果复制到B3，直接覆盖了之前的3；
3. 最后row=4，重复操作覆盖B4的4为2，最终就出现了所有ItemID都是2的错误结果。

修复后的完整代码 #

我们需要重构逻辑：先处理唯一的ItemNo，根据查询到的ItemID数量插入对应行数，再一次性填充所有ItemID，避免重复处理。

Sub GetUniqueItemIDs()
    Dim gcn As ADODB.Connection
    Set gcn = New ADODB.Connection
    gcn.ConnectionTimeout = 30
    gcn.CommandTimeout = 1000
    
    Dim rst As ADODB.Recordset
    Dim strConnection As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim currentRow As Integer
    Dim itemNo As String
    Dim itemIDCount As Integer
    
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("sheet2")
    
    ' 替换为你的实际SQL Server连接字符串
    strConnection = "Provider=SQLOLEDB;Data Source=你的服务器名;Initial Catalog=你的数据库名;Integrated Security=SSPI;"
    gcn.Open strConnection
    
    ' 获取A列最后一行数据（避免用SpecialCells可能的错误）
    LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    currentRow = 2 ' 从第二行开始（假设第一行是表头）
    
    Do While currentRow <= LastRow
        itemNo = ws.Range("A" & currentRow).Value
        
        ' 查询当前ItemNo对应的所有唯一ItemID
        Dim sqlStr As String
        sqlStr = "SELECT DISTINCT ITEMS.ITEMID FROM dbo.Items WHERE ITEMS.ITEMNO = '" & itemNo & "'"
        
        ' 每次循环重新初始化Recordset，避免残留旧数据
        Set rst = New ADODB.Recordset
        rst.Open sqlStr, gcn
        
        itemIDCount = rst.RecordCount
        
        If itemIDCount > 1 Then
            ' 插入（itemIDCount - 1）行，当前行已存在，不需要重复插入
            ws.Rows(currentRow + 1 & ":" & currentRow + itemIDCount - 1).Insert Shift:=xlDown
            ' 更新最后一行的位置，因为插入了新行
            LastRow = LastRow + itemIDCount - 1
        End If
        
        ' 将所有ItemID从当前行的B列开始批量填充
        ws.Range("B" & currentRow).CopyFromRecordset rst
        
        rst.Close
        Set rst = Nothing
        
        ' 直接跳到下一个未处理的ItemNo行，跳过当前ItemNo的所有已填充行
        currentRow = currentRow + itemIDCount
    Loop
    
    gcn.Close
    Set gcn = Nothing
    
    ' 可选：如果不需要CntItemID列，可以执行下面的代码删除它
    ' ws.Columns("C").Delete
End Sub

额外优化建议 #

1. 避免SQL注入风险：如果你的ItemNo是字符串类型，直接拼接SQL存在注入风险，建议改用参数化查询：

' 替换原有的SQL执行部分
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = gcn
cmd.CommandText = "SELECT DISTINCT ITEMS.ITEMID FROM dbo.Items WHERE ITEMS.ITEMNO = ?"
' 根据你的ItemNo类型调整参数类型（比如adInteger如果是数值）
cmd.Parameters.Append cmd.CreateParameter("ItemNo", adVarChar, adParamInput, 50, itemNo)
Set rst = cmd.Execute

2. 连接字符串优化：确保你的连接字符串适配你的SQL Server环境，比如用SQL Native Client或者ODBC驱动。

内容的提问来源于stack exchange，提问作者iam_em