BANCO DE DADOS

USUARIO.EXCLUIDOS 14/09/2005 16:39:27
#104175
Olá, estou usando o velho sistema de BD DAO, e gostaria de saber, como adiciono em uma listbox todos os registros que tiverem como banda a banda Hammerfall?praticamente é um filtro de bandas, como poderei fazer isso?Além de fazer isso na listbox, quero fazer tambem na DBGRID,me ajudem, obrigado
MARIOZNETO 14/09/2005 17:02:27
#104180 Resposta escolhida
Data1.RecordSource = "select * from sua_tabela where banda='" & txtbanda.text & "'"
Data1.Refresh

While Not Data1.Recordset.EOF
List1.AddItem Data1.Recordset.Fields("seu_campo")
Data1.Recordset.EOF
Wend

Falow...
LIONHEART 14/09/2005 17:02:58
#104181 
Sql = "select nm_musica from TBL_BANDAS where nm_banda = 'Hammerfall' "

rs.Open Sql, conexao
while not rs.EOF
   lista.addItem rs!nm_musica
   rs.MoveNext
wend
rs.Close
USUARIO.EXCLUIDOS 14/09/2005 17:54:57
#104187
Dim Banco As Database
Dim Tabela As RecordSet
Dim Consulta As String

Set Banco = OpenDatabase(App.Path & "\bandas.MDB")
Consulta = "select nmmusica from tabbanda where nmbanda = 'Hammerfall'"
Set Tabela = Banco.OpenRecorset(Consulta)

'Adicionar no ListBox
Do While Not Tabela.EOF
LstMusicas.AddItem Tabela("nmmusica")
Tabela.MoveNext
Loop

'Adicionar no DBGrid, se eu não me engano é assim
DBGrid1.DataSource = Tabela.DataSource
USUARIO.EXCLUIDOS 14/09/2005 18:56:11
#104200
Vlw ADRIANO e LION, mas eu queria como o MARIO fez, eu estou usando sistema DAO
USUARIO.EXCLUIDOS 14/09/2005 19:30:28
#104209
Soh corrigindo MARIO:

Data1.RecordSource = "select * from sua_tabela where banda='" & txtbanda.text & "'"
Data1.Refresh

While Not Data1.Recordset.EOF
List1.AddItem Data1.Recordset.Fields("seu_campo")
Data1.Recordset.movenext
Wend
USUARIO.EXCLUIDOS 14/09/2005 20:07:30
#104218
Apenas aproveitando, o código adicionar registro é:
data1.recorset.addnew
como é mesmo o código pra salvar o que estiver nas caixas de texto?
GANDA.NICK 14/09/2005 22:52:48
#104248
Data1.Recordset.Update
USUARIO.EXCLUIDOS 14/09/2005 23:12:14
#104251
Ok, vlw
Tópico encerrado , respostas não são mais permitidas
Voltar