CARREGAR COMBOBOX

USUARIO.EXCLUIDOS 06/06/2005 14:28:20
#87274
como carregar um combobox, com informações do banco de dados(access).

abraços,


Vinhosa
USUARIO.EXCLUIDOS 06/06/2005 14:35:49
#87277 
rs.open "CRITERIOS", Banco, adUseClient, adOpenKeyset

while not rs.EOF

combo1.additem rs!campo1
rs.movenext

wend
LEANDRO.BUENO 06/06/2005 16:27:57
#87312
No form Load:
teste.MoveFirst
Do While Not teste.EOF
Combo1.AddItem Format(teste!Codigo, "00") + "-" + teste!usuario
teste.MoveNext
Loop

Na combo1:
Private Sub Combo1_Click()
teste.MoveFirst
teste.Seek "=", Val(Mid(Combo1, 1, 2))
txtsenha = teste!senha
End Sub

espero ter ajudado
USUARIO.EXCLUIDOS 06/06/2005 20:25:31
#87353
Utilize essa ferramenta Combo que há como você carregar o campo da tabela

Onde:
Rowsource = ADO
ListField = Campo do banco de dados
IVOFABIANO 07/06/2005 10:01:08
#87393
Dim i%

If not rs.Bof and not rs.Eof Then
rs.MoveFirst
Combo.Clear
For i = 1 to rs.recordcount
combo1.additem rs!campo1
rs.movenext
Next
End if

Abs.
Tópico encerrado , respostas não são mais permitidas
Voltar