Eliminar elemento de listbox
Publicado por Neo (16 intervenciones) el 28/05/2008 23:22:25
Tengo un control listbox que muestra los datos de una base de datos Access. El problema me surge cuando quiero eliminar un elemento, ena la BD la elimino sin problemas, pero en el programa me sigue apareciendo el elmento en la lista y tengo que salirme del formulario y volver a cargarlo para que desaparezca de mi listbox.
¿Alguna ayuda?
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
strConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:VBProgramaciónGestor.accdb;Persist Security Info=False"
Try
cn = New OleDbConnection(strConexion)
cn.Open()
Catch ex As Exception
MessageBox.Show("Error al abrir la conexión:" & vbCrLf & ex.Message)
Exit Sub
End Try
ds = New Data.DataSet
Ssql = "DELETE * FROM Docus WHERE Codigo=" & Codigo.Text & ""
da = New OleDbDataAdapter(Ssql, cn)
Dim cmdBuilder As New OleDbCommandBuilder(da)
da.MissingSchemaAction = MissingSchemaAction.AddWithKey '(Añadir con clave)
Try
da.Fill(ds, "Docus")
Catch ex As Exception
MessageBox.Show("Error al cargar el DataSet:" & vbCrLf & ex.Message)
End Try
'Eliminamos
ListBox1.Items.Remove(ListBox1.SelectedIndex)
Cerrar()
End Sub
¿Alguna ayuda?
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
strConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:VBProgramaciónGestor.accdb;Persist Security Info=False"
Try
cn = New OleDbConnection(strConexion)
cn.Open()
Catch ex As Exception
MessageBox.Show("Error al abrir la conexión:" & vbCrLf & ex.Message)
Exit Sub
End Try
ds = New Data.DataSet
Ssql = "DELETE * FROM Docus WHERE Codigo=" & Codigo.Text & ""
da = New OleDbDataAdapter(Ssql, cn)
Dim cmdBuilder As New OleDbCommandBuilder(da)
da.MissingSchemaAction = MissingSchemaAction.AddWithKey '(Añadir con clave)
Try
da.Fill(ds, "Docus")
Catch ex As Exception
MessageBox.Show("Error al cargar el DataSet:" & vbCrLf & ex.Message)
End Try
'Eliminamos
ListBox1.Items.Remove(ListBox1.SelectedIndex)
Cerrar()
End Sub
Valora esta pregunta


0