ADICIONAR REGISTRO NO LISTBOX

USUARIO.EXCLUIDOS 23/05/2007 14:11:29
#217924
OLÁ,

ESTOU APRENDENDO VISUAL BASIC E ESTOU COM DIFICULDADES NO SEGUINTE CASO:
SUPONDO OS SEGUINTES REGISTROS EM UMA TABELA:
1 A
1 B
1 C
2 D
2 E
2 F
3 G
3 H

GOSTARIA DE SABER COMO QUE FAÇO PRA ADICIONAR EM LISTBOX SOMENTE OS REGISTROS DE NÃÅ¡MERO "2", OU SEJA, SOMENTE O "D,E,F".
SE ALGUEM PODER ME AJUDAR EU AGRADEÇO MUITO.
OBRIGADO,
GIOVANNI.
VBAPRENDE 23/05/2007 14:13:59
#217925
so fazer um select

"SELECT * FROM tabela WHERE codigo=2"

se eu entendi bem é isso que você qué.
SERGIO.CARDOSO 23/05/2007 14:19:44
#217928
Private Function PreeList()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "\MeuBanco.MDB")
Set rs = db.OpenRecordset("Select * from MinhaTabela where Num1 = 2", dbOpenDynaset)
Do While Not rs.EOF
List1.AddItem CStr(rs!Letra2)
rs.MoveNext
Loop
rs.Close
db.Close
End Function
Tópico encerrado , respostas não são mais permitidas