SQL E COMBOBOX

LEANDRO 26/10/2009 13:18:11
#326291 Resposta escolhida

Eu carrego todos os meus combos, dessa maneira :

Dim j As Integer
Set ComboCarrega = gMyConn.Execute([Ô]aqui vai o seu select[Ô])
j = 0
While Not ComboCarrega.EOF
Me.Combo.List(j) = ComboCarrega!nome
Me.Combo.ItemData(j) = ComboCarrega!codigo
j = j + 1
ComboCarrega.MoveNext
Wend
ComboCarrega.CloseRecordset
Set ComboCarrega = Nothing

TECLA 26/10/2009 14:20:31
#326296

Para adaptar o exemplo do LEANDRO, você precisa fazer um SELECT que retorne o NOME e o CÓDIGO do usuário.

Exemplo:

SELECT codigo, nome FROM usuario ORDER BY nome

PEGUDO 26/10/2009 14:39:53
#326299

Senhores,
O exemplo de vocês não funcionou aqui, acusando o erro: [Ô]Type mismatch[Ô]

Estou usando a seguinte conexão:
Dim objdb As New dbConnect
Dim objtb As Recordset

Set objtb = objdb.CCADODB.Execute([Ô]Select nome from usuarios[Ô])

Quando eu vou listar os nomes na combo1 e utilizo:
While Not objtb.EOF
... (código aqui)
Wend

Ou o programa dá erro ou ele fica em loop constante.

Agradeço a paciência e a ajuda
Abraços.

LEANDRO 26/10/2009 14:43:57
#326300

Aonde ele da erro ?

o seu select só esta com nome ou seja

[Ô]Select nome from usuarios[Ô]

então você só esta pegando a coluna nome, porem no seu While Not você esta usando 2 campo, tente assiim


Select * from usuarios

OPTIMUS 26/10/2009 15:18:49
#326302

Private Sub CarregarCombo()
Dim rs As New ADODB.Recordset
rs.Open [Ô]SELECT NOME FROM USUARIOS ORDER BY NOME[Ô], suaconexao
Combo1.Clear
Do While rs.EOF = False
Combo1.AddItem Trim$(rs(0))
rs.MoveNext
Loop
If rs.State = 1 Then
rs.Close
Set rs = Nothing
End If
End Sub

PEGUDO 27/10/2009 10:27:17
#326344

Galera valeu a ajuda
Leandro obrigado pelas dicas;
Optimus grande ajuda mesmo, valeu cara.

Obrigado a todos.