Elimar un dato de un listview
Experto tengo un pequeño problema con listview.
Mi listview
id | nombre | direcion | tel
1 | jose | zapata |554848464
2 | jua | grnjas |554848464
tengo este codigo para eliminar un registro
<pre>
Private Sub btnborrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnborrar.Click
' Eliminar la fila indicada
Dim i As Integer
Dim fila As Data.DataRow
fila = CType(ListView1.SelectedItems(0).Tag, DataRow)
Me.Dscliente1.Tables(0).Rows.Remove(fila)
ListView1.Items.Remove(ListView1.SelectedItems(0))
Me.OleDbDataAdapter1.Update(Me.Dscliente1)
Me.Dscliente1.AcceptChanges()
End Sub
</pre>
El problema es que cundo selecciono el registro y le doy click al botón,
quita el dato del listviw, pero no realiza los cambios en la bd, y al momento
de actualizar la tabla reaparece los datos, como puedo hacer para que no suceda
esto.
Mi listview
id | nombre | direcion | tel
1 | jose | zapata |554848464
2 | jua | grnjas |554848464
tengo este codigo para eliminar un registro
<pre>
Private Sub btnborrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnborrar.Click
' Eliminar la fila indicada
Dim i As Integer
Dim fila As Data.DataRow
fila = CType(ListView1.SelectedItems(0).Tag, DataRow)
Me.Dscliente1.Tables(0).Rows.Remove(fila)
ListView1.Items.Remove(ListView1.SelectedItems(0))
Me.OleDbDataAdapter1.Update(Me.Dscliente1)
Me.Dscliente1.AcceptChanges()
End Sub
</pre>
El problema es que cundo selecciono el registro y le doy click al botón,
quita el dato del listviw, pero no realiza los cambios en la bd, y al momento
de actualizar la tabla reaparece los datos, como puedo hacer para que no suceda
esto.
1 respuesta
Respuesta de Roberto Alvarado
1
Me podrías decir como, es que estoy empezando a conocer este lenguaje y quisiera saber más.
Dim dt As New DataTable
Dim obDBConn As New DBConnect
Dim sbQuery As New StringBuilder
sbQuery.Append("SELECT ")
sbQuery.Append("ID, PREGUNTA ")
sbQuery.Append(" FROM Preguntas ")
sbQuery.Append(" WHERE Activo = 'T' AND Busqueda = 'T' AND Orientadora = 'F' ")
dt = obDBConn.Request(sbQuery.ToString)
Abrir una conexion a la base de datos:
Dim cnnSql As New SqlConnection
_stMsgError = ""
Try
cnnSql.ConnectionString = ConfigurationManager.ConnectionStrings("VMCConnectionString").ConnectionString
cnnSql.Open()
Catch ex As SqlException
_stMsgError = ex.Message
Throw
End Try
Ejecutar una sentencia SQL
Dim dt As New DataTable
_stMsgError = ""
Dim obCnn As New SqlConnection
Try
obCnn = ConnectDB()
Dim obCmd As SqlCommand = obCnn.CreateCommand
obCmd.CommandText = pstQuery
obCmd.Connection = obCnn
Dim daTmp As New SqlDataAdapter(obCmd)
daTmp.Fill(dt)
Catch ex As SqlException
_stMsgError = ex.Message
Throw
Finally
obCnn.close()
End Try
Dim obDBConn As New DBConnect
Dim sbQuery As New StringBuilder
sbQuery.Append("SELECT ")
sbQuery.Append("ID, PREGUNTA ")
sbQuery.Append(" FROM Preguntas ")
sbQuery.Append(" WHERE Activo = 'T' AND Busqueda = 'T' AND Orientadora = 'F' ")
dt = obDBConn.Request(sbQuery.ToString)
Abrir una conexion a la base de datos:
Dim cnnSql As New SqlConnection
_stMsgError = ""
Try
cnnSql.ConnectionString = ConfigurationManager.ConnectionStrings("VMCConnectionString").ConnectionString
cnnSql.Open()
Catch ex As SqlException
_stMsgError = ex.Message
Throw
End Try
Ejecutar una sentencia SQL
Dim dt As New DataTable
_stMsgError = ""
Dim obCnn As New SqlConnection
Try
obCnn = ConnectDB()
Dim obCmd As SqlCommand = obCnn.CreateCommand
obCmd.CommandText = pstQuery
obCmd.Connection = obCnn
Dim daTmp As New SqlDataAdapter(obCmd)
daTmp.Fill(dt)
Catch ex As SqlException
_stMsgError = ex.Message
Throw
Finally
obCnn.close()
End Try
