sworlls

Ola pessoal tudo bem com vcs? espero que sim!
Bem, tenho um problema que nao estou conseguindo resolver.
Gostaria de uma ajuda!
Tenho um ListBox, que esta condigurado como checkBox, ou seja, cada linha do list tem um CheckBox.
Bem o que pretendo fazer e o seguinte, O listBox deve carregar do banco de dados uma serie de items, devo marcar com um Check um determinado item do ListBox, e clicar no botao excluir.
Em seguida deve ser excluido o item do listBox e do Banco de Dados, Isso e o que deve acontecer.
Mas quando clico no excluir no meu programa ele exclui o item selecionado do ListBox, mas do Banco de Dados ele Exclui o ultimo registro e nao o item correspondente ao Listbox!.
Nao sei se estou sendo claro, caso tenha ficado alguma duvida por favor me comuniquem, me mandem um mail. gostaria da ajuda de vcs para resolver esse problema.
Obrigado pela força e boa noite a todos.
Abraços.
ops:

heavenfromhell

varra o seu listbox e o que estiver selecionado vc exclui do BD (é bom que o listbox possua a chave do BD pra facilitar a exclusao:

Exemplo

For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
BD.seek "=", mid(list1.text,1,5)
bd.delete
End If
Next

usei mid levando-se em conta que na sua listbox as 5 primeiras posicoes se referem a matricula do registro ou coisa e tal ...
espero ter ajudado ..

__________________
"And no one sings me lullabies
And no one makes me close my eyes
So I throw the windows wide
And call to you across the skies". Pink Floyd.

Slackware 10/Win XP Home
Linux User #353467

heavenfromhell

onde tem mid(list1.text,1,5) substitua por
mid(list1.list(i),1,5)...
ok??

__________________
"And no one sings me lullabies
And no one makes me close my eyes
So I throw the windows wide
And call to you across the skies". Pink Floyd.

Slackware 10/Win XP Home
Linux User #353467