AJUDA URGENTE COM LSTBOX
Pessoal onde esta o erro nesta rotina abaixo, pelo que eu sei teria que lista mais de um item no listbox se encontrasse, mas nao esta acontecendo isso.. To precisando muito disso.. alguem poderia me ajudar? estou on-line no msn: bydumoraes@hotmail.com
Set rs = cnn.Execute("Select * from usuarios where " & Criterio.Text & " LIKE '" & nomebusca.Text & "%'")
If (Not rs.EOF) And (Not rs.BOF) Then
Do While Not rs.EOF
' preenche o combo Banco Avisador
lstUsuario.Clear
lstUsuario.AddItem rs!usuario
rs.MoveNext
Loop
Else
MsgBox ("Nenhum usuario encontrado")
Exit Sub
Set rs = cnn.Execute("Select * from usuarios where " & Criterio.Text & " LIKE '" & nomebusca.Text & "%'")
If (Not rs.EOF) And (Not rs.BOF) Then
Do While Not rs.EOF
' preenche o combo Banco Avisador
lstUsuario.Clear
lstUsuario.AddItem rs!usuario
rs.MoveNext
Loop
Else
MsgBox ("Nenhum usuario encontrado")
Exit Sub
Ok Pessoal achei o erro no loop ele tava limpando o listbox e retornava somente o ultimo encontrado
acontece o seguinte...
toda vez q entra no loop você está limpando a lista, veja:
lstUsuario.Clear
tire isso e coloque antes de entrar no loop..
vê se ajuda ...
toda vez q entra no loop você está limpando a lista, veja:
lstUsuario.Clear
tire isso e coloque antes de entrar no loop..
vê se ajuda ...
sql = "SELECT * FROM USUÃ ÂRIOS WHERE USUARIO LIKE '" & NOMEBUSCA.TEXT & "%" & "'"
Set rs = cnn.Execute(sql)
If (Not rs.EOF) And (Not rs.BOF) Then
Do While Not rs.EOF
' preenche o combo Banco Avisador
'lstUsuario.Clear
lstUsuario.AddItem rs![usuario]
rs.MoveNext
Loop
Else
MsgBox ("Nenhum usuario encontrado")
Exit Sub
Set rs = cnn.Execute(sql)
If (Not rs.EOF) And (Not rs.BOF) Then
Do While Not rs.EOF
' preenche o combo Banco Avisador
'lstUsuario.Clear
lstUsuario.AddItem rs![usuario]
rs.MoveNext
Loop
Else
MsgBox ("Nenhum usuario encontrado")
Exit Sub
Tópico encerrado , respostas não são mais permitidas