ERRO EM CONSULTA

CAIO.FR.SP 21/08/2009 15:51:22
#320603
galera fiz um codigo pra preenche uma combox com o nome de clintes contidos nas o.s[ô]s, mas com a condição de que caso eles ja estejao na combo, sejam ignorados. mas esta dando um erro. olhem o codigo.

  Private Sub carrega_combo()
    Dim i As Integer
    Dim existe As Boolean
    cmb_clientes.AddItem [Ô]TODOS[Ô]
    With cmd_conexao
        .ActiveConnection = conexao
        .CommandType = adCmdText
        .CommandText = [Ô]SELECT * from os order by cliente;[Ô]
        Set rst_conexao = .Execute
    End With
    If rst_conexao.BOF And rst_conexao.EOF Then Exit Sub
    rst_conexao.MoveFirst
    Do While Not rst_conexao.BOF
        For i = 1 To cmb_clientes.ListCount - 1
            If rst_conexao!cliente = cmb_clientes.List(i) Then
                existe = True
            End If
        Next i
        If existe = False Then
            cmb_clientes.AddItem rst_conexao!cliente
        End If
        rst_conexao.MoveNext
    Loop
End Sub
LUIS.FLAVIO 21/08/2009 15:58:57
#320604 Resposta escolhida
Amigo você não precisa fazer essa condição apenas você fazer a consulta para não retornar nomes repetidos usando o DISTINCT.

Exemplo:

SELECT DISTINCT NomeDosClientes FROM ORDER BY Cliente
Tópico encerrado , respostas não são mais permitidas
Voltar