ADICIONAR REGISTRO NO LISTBOX
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.
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.
so fazer um select
"SELECT * FROM tabela WHERE codigo=2"
se eu entendi bem é isso que você qué.
"SELECT * FROM tabela WHERE codigo=2"
se eu entendi bem é isso que você qué.
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
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