SQL Server数据库用窗体查询时，加DISTINCT 后无数据显示

忘得快

各位老师：
       学生在用窗体列表框查询SQL Server数据库时，加DISTINCT  后无数据显示，请教解决办法，谢谢！（实例在12楼）
Private Sub UserForm_Initialize()
    Call t001
    Me.StartUpPosition = 0
    A = Array(130, 130, 40, 40, 40) '
    Set cnn = New ADODB.Connection
'    cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & stpath1 & ";Jet OleDb:DataBase Password=123456"
    cnn.Open "provider =SQLOLEDB;password=" & SJPW & " ; user ID= sa;data source =" & SJLJ & ";initial catalog=" & SJK & "; " 'Server语句
    SQL = "select * from style "
    Set rs = New ADODB.Recordset
    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    ReDim arr(1 To rs.Fields.Count)
    On Error Resume Next
    With ListView1
        .ColumnHeaders.Clear
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        For i = 0 To rs.Fields.Count - 1
            If i > 0 Then
                .ColumnHeaders.Add , , rs.Fields(i).Name, A(i), lvwColumnCenter '
            Else
                .ColumnHeaders.Add , , rs.Fields(i).Name, A(i)
            End If
            arr(i + 1) = rs.Fields(i).Name
        Next i
    End With
    显示数据
    rs.MoveFirst
    Label1.Caption = "共查到" & ListView1.ListItems.Count & "记录"
End Sub
Private Sub 显示数据() '显示数据
    Dim i&, j&, s$, t$, SQL$
    For i = 1 To UBound(arr)
         t = Me.Controls("TextBox" & i).Text
         If Len(t) Then s = s & " and UCase(" & arr(i) & ") like '%" & UCase(t) & "%'"
    Next
    SQL = "select * from style" '
'    SQL = "select DISTINCT 代码,描述,尺寸,单位 from style" '问题在这里
    If Len(s) Then SQL = SQL & " where " & Mid(s, 6)
    On Error Resume Next
    Set rs = New ADODB.Recordset
    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    With ListView1
        .ListItems.Clear
        For i = 1 To rs.RecordCount
            .ListItems.Add , , rs.Fields(0).Value
            For j = 1 To rs.Fields.Count - 1
                .ListItems(i).SubItems(j) = rs.Fields(j).Value '
            Next
            rs.MoveNext
        Next
    End With
    rs.MoveFirst
End Sub




SQL = "select * from style" 语句改为
SQL = "select DISTINCT 代码,描述,尺寸,单位 from style" '没有数据显示


但是在查询Access数据库时，加DISTINCT 有数据显示：

microyip

看不到实际的数据库数据，只能瞎猜，是不是有些数据不规范啊？

忘得快

microyip 发表于 2016-10-6 16:34
看不到实际的数据库数据，只能瞎猜，是不是有些数据不规范啊？

有道理！我想在列表框显示代码不重复的数据，加DISTINCT 后无数据显示数据，请指点，谢谢！

microyip

忘得快 发表于 2016-10-6 17:06
有道理！我想在列表框显示代码不重复的数据，加DISTINCT 后无数据显示数据，请指点，谢谢！

加Trim来过滤空格，不知道行不行

忘得快

microyip 发表于 2016-10-6 16:34
看不到实际的数据库数据，只能瞎猜，是不是有些数据不规范啊？

显示的结果就像查询Access数据库一样，谢谢！

忘得快

microyip 发表于 2016-10-6 17:07
加Trim来过滤空格，不知道行不行

请教修改哪一句？

microyip

试试

1. SQL = "select DISTINCT Trim(代码),Trim(描述),Trim(尺寸),Trim(单位) from style"

复制代码

忘得快

microyip 发表于 2016-10-6 17:44
试试

按你的代码试了，还是没有数据显示。但是还要谢谢你的热心！
请问你的电脑装SQL Server数据库了吗？如装了我将实例文件上传，否则你也无法试。

wj2368

忘得快 发表于 2016-10-6 17:56
按你的代码试了，还是没有数据显示。但是还要谢谢你的热心！
请问你的电脑装SQL Server数据库了吗？如装 ...

select DISTINCT 代码,描述,尺寸,单位 from style
是作用于多列去重

microyip

忘得快 发表于 2016-10-6 17:56
按你的代码试了，还是没有数据显示。但是还要谢谢你的热心！
请问你的电脑装SQL Server数据库了吗？如装 ...

这个可以，加Q咯