
29/01/2013, 08:48
|
| | Fecha de Ingreso: enero-2013
Mensajes: 93
Antigüedad: 12 años, 3 meses Puntos: 0 | |
Borrar registro del Datagridview en VB y de la BD de SQL con ContextMenuStrip Buen dia, mi duda es la siguiente, tengo un datagridview en VB y al momento de darle click en el renglon me vacia los datos en varios textbox con el siguiente codigo:
Private Sub datagridview1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles datagridview1.SelectionChanged
Dim renglon As Integer = Me.datagridview1.CurrentCell.RowIndex
Me.t1.Text = Me.datagridview1.Item(0, renglon).Value
Me.t2.Text = Me.datagridview1.Item(1, renglon).Value
Me.t3.Text = Me.datagridview1.Item(2, renglon).Value
Me.t4.Text = Me.datagridview1.Item(3, renglon).Value
End Sub
Ahora cuando le doy click derecho y borrar del datagridview con el siguiente codigo:
Private Sub BorrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem.Click
Using con As New SqlClient.SqlConnection("server=SQLExpress;databas e=BD;Integrated Security=True")
con.Open()
Dim query As String = "DELETE FROM Alumnos WHERE nocontrol = @nc"
Dim cmd As New SqlClient.SqlCommand(query, con)
res = MessageBox.Show("Realmente desea borrar el Alumno?", "ALUMNOS", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
sql = ""
For Each row As DataGridViewRow In datagridview1.Rows
If res = vbYes Then
If row.Selected Then
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@nc", CStr(row.Cells(0).Value))
cmd.ExecuteNonQuery()
Me.AlumnosTableAdapter.Fill(Me.EscuelaDataSet.Alum nos)
End If
End If
Next
End Using
End Sub
Me aparece el siguiente error:
NullReferenceException was unhandled by user code
Referencia a objeto no establecida como instancia de un objeto
Si le quito la opcion de seleccionar renglon y mostrar en datagridview no me marca error pero me piden que haga eso!
En que estoy mal o como me podrian ayudar porfa! |