ELIMINAR LINHA DA LISTVIEW E BD
N existe uma maneira de depois de o utilizador seleccionar uma linha completa de uma listview, entao depois ao carregar num command, seja eliminada essa linha da listview e por consequente da bd ???
[[[ ]]]
[[[ ]]]
Dah uma olhada, acho q vai t ajudar:
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=60450&varSubPagina=1&varFiltro=filtro
Espero ter ajudado;
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=60450&varSubPagina=1&varFiltro=filtro
Espero ter ajudado;
Assim você eclui do bd.
vc executa o seguinte sql.: "Delete fromTabela where Campo = " & ListView.SelectedItem.Text
Assim do List.
Dim t As Integer
t = Lst.SelectedItem.ListSubItems.Count
While t > 0
Lst.SelectedItem.ListSubItems.Remove (t)
t = t - 1
Wend
Lst.SelectedItem.Text = ""
Tente isso que acho que deve funcionar.
vc executa o seguinte sql.: "Delete fromTabela where Campo = " & ListView.SelectedItem.Text
Assim do List.
Dim t As Integer
t = Lst.SelectedItem.ListSubItems.Count
While t > 0
Lst.SelectedItem.ListSubItems.Remove (t)
t = t - 1
Wend
Lst.SelectedItem.Text = ""
Tente isso que acho que deve funcionar.
"Delete fromTabela where Campo = " & ListView.SelectedItem.Text
assim vai eliminar tds os registos da bd certo ??
so q queria era eliminar o registro q fosse selecionado
[[[ ]]]
assim vai eliminar tds os registos da bd certo ??
so q queria era eliminar o registro q fosse selecionado
[[[ ]]]
Private Sub eliminar_Click()
If ListView1.ListItems.Count <> 0 Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
Dim rs As New Recordset
rs.Open "SELECT * FROM Nomes", conexao, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
rs.Update
Loop
End If
End Sub
eu sei q isto ta mal ...
queria fazer com q se fizesse o update de tds os registros q aparecem na listview1
[[[ ]]]
If ListView1.ListItems.Count <> 0 Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
Dim rs As New Recordset
rs.Open "SELECT * FROM Nomes", conexao, adOpenDynamic, adLockOptimistic
Do While Not rs.EOF
rs.Update
Loop
End If
End Sub
eu sei q isto ta mal ...
queria fazer com q se fizesse o update de tds os registros q aparecem na listview1
[[[ ]]]
troca o select pelo delete !
e atualiza o listview eo db !
e atualiza o listview eo db !
mas o q quero eh com q sejam actualizados os registros da listview1, apos serem eliminadas as linhas q o utilizador n queira na aplicaçao...
-------------------------------------------------------------------------------------
If ListView1.ListItems.Count <> 0 Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
isto permite com q sejam eliminadas da listview na aplicaçao as linhas q n quero
---------------------------------------------------------------------------------------
mas depois disso gostava q a bd ficasse com o q ficou na listview na aplicaçao, ou seja terei de fazer um update certo ??
como faço isso ?
entende a minha ideia ?
[[[ ]]]
-------------------------------------------------------------------------------------
If ListView1.ListItems.Count <> 0 Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
isto permite com q sejam eliminadas da listview na aplicaçao as linhas q n quero
---------------------------------------------------------------------------------------
mas depois disso gostava q a bd ficasse com o q ficou na listview na aplicaçao, ou seja terei de fazer um update certo ??
como faço isso ?
entende a minha ideia ?
[[[ ]]]
RUBGOMES, é só executar este sql antes de remover a linha do list.
"Delete fromTabela where Campo = " & ListView.SelectedItem.Text
Pois ele vai deletar do banco de dados somente o registro que atender a condição.
Você já fez o teste com esse sql????Se não fez o teste ainda, faça o teste, ok?
"Delete fromTabela where Campo = " & ListView.SelectedItem.Text
Pois ele vai deletar do banco de dados somente o registro que atender a condição.
Você já fez o teste com esse sql????Se não fez o teste ainda, faça o teste, ok?
so q ah ainda um problema ...
eh q nessa tabela pode haver id iguais em varios registros, bem como os outros campos serem iguais...
por isso n ta dando certo.
Dim rs As New Recordset
rs.Open "DELETE FROM Tablea WHERE ID = " & ListView1.SelectedItem.Text, conexao, adOpenDynamic, adLockOptimistic
If ListView1.ListItems.Count <> 0 Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
q alternativa pode haver ?
[[[ ]]]
eh q nessa tabela pode haver id iguais em varios registros, bem como os outros campos serem iguais...
por isso n ta dando certo.
Dim rs As New Recordset
rs.Open "DELETE FROM Tablea WHERE ID = " & ListView1.SelectedItem.Text, conexao, adOpenDynamic, adLockOptimistic
If ListView1.ListItems.Count <> 0 Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
q alternativa pode haver ?
[[[ ]]]
Dim rs As New Recordset
rs.Open "DELETE FROM Tabela WHERE ID = " & ListView1.ListItems(1) & " AND Nome = '" & ListView1.SelectedItem.SubItems(1) & "' AND Estado = '" & ListView1.SelectedItem.SubItems(2) & "' AND Data = '" & ListView1.SelectedItem.SubItems(3) & "' AND Observ = '" & ListView1.SelectedItem.SubItems(4) & "'", conexao, adOpenDynamic, adLockOptimistic
If ListView1.ListItems.Count <> 0 Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
axo q deu para resolver o problema
rs.Open "DELETE FROM Tabela WHERE ID = " & ListView1.ListItems(1) & " AND Nome = '" & ListView1.SelectedItem.SubItems(1) & "' AND Estado = '" & ListView1.SelectedItem.SubItems(2) & "' AND Data = '" & ListView1.SelectedItem.SubItems(3) & "' AND Observ = '" & ListView1.SelectedItem.SubItems(4) & "'", conexao, adOpenDynamic, adLockOptimistic
If ListView1.ListItems.Count <> 0 Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
axo q deu para resolver o problema
Tópico encerrado , respostas não são mais permitidas