Como borrar un registro de un datagridview con click derecho.

[davidalonsso05]

Buen dia, tengo un datagridview en Visual Basic 2005, ya pude mostrar un ContextMenuStrip al dar click derecho sobre este, muestra 2 opciones: Borrar y Editar, Mi pregunta es:
¿Como Borrar el registro del datagrid al pulsar la opcion del menu al presionar click derecho?

Nota: Si me podrian explicar con manzanas (desde 0) que mejor!

[gasuton]

Estimado David estas en un foro de VB6.0 y VB2005 es VB.net, por favor pide que muevan tu post al foro correcto.

saludos.

[Carlangueitor]

Listo, movido al lugar correspondiente.

Saludos

[Aquaventus]

Hola davidalonsso05, podrías por favor mostrarnos como realizas el muestreo de tu contextmenustrip en código? Saludos!.

[davidalonsso05]

Iniciado por Aquaventus

Hola davidalonsso05, podrías por favor mostrarnos como realizas el muestreo de tu contextmenustrip en código? Saludos!.

Lo hice mediante los Menus:
Agregue el ContextMenuStrip mediante el toolbox posteriormente solo le di dos opciones, borrar y editar, aun no le ingreso nada en la opcion de borrar ni editar...

Private Sub BorrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem.Click

End Sub

Has ahorita asi voy hehe

[Aquaventus]

Ok. Lo que podrías hacer es agregar manualmente el contextmenustrip por código en el evento mousedown de tu datagridview y usar el DataGridView.HitTestInfo:
Primero creas una variable indice que será el que contenga el index de la fila seleccionada y el menu a agregar:

Código vb:

Dim indice As Integer
Dim menu As ContextMenuStrip
 

Luego en el método MouseDown de tu grilla

Código vb:

If e.Button = System.Windows.Forms.MouseButtons.Right Then
    Dim Mi_Test As DataGridView.HitTestInfo = Me.Mi_datagridview.HitTest(e.X, e.Y)
    If Mi_Test.Type = DataGridViewHitTestType.Cell Then
        If Mi_Test.RowIndex >= 0 Then
            indice = Mi_Test.RowIndex
            Me.Mi_datagridview.CurrentCell = Me.Mi_datagridview.Rows(Mi_Test.RowIndex).Cells(Mi_Test.ColumnIndex)
            Me.Mi_datagridview.Rows(Mi_Test.RowIndex).Selected = True
            menu = New ContextMenuStrip()
            menu.Items.Add("Eliminar",Nothing,EliminarFila)
            Me.Mi_datagridview.ContextMenuStrip = menu
        End If
    End If
End If
 

Finalmente el evento de eliminación llamas el indice a borrar:

Código vb:

Private Sub AbrirForm(sender As Object, e As EventArgs)
Me.Mi_datagridview.Rows.RemoveAt(indice)
End Sub
 

Espero te haya servido Saludos!.

[davidalonsso05]

Aquaventus ya me solucionaste gran parte de mi duda. Es lo que necesitaba alguien que me explicara con manzanas

Ya si me pudieras decir o bien donde buscar que al momento de borrar esa linea de codigo me lo borre de la BD que esta en SQL yo con todo gusto lo busco gracias!!

[Aquaventus]

Analiza un poco lo que os brindé y hallarás la solución... una vez que obtienes el índice de la fila, puedes extraer el valor de la celda que te interesa, en este caso puede ser el ID(PK) de tus registros y con eso eliminar de tu tabla por el ID. Saludos!.

[davidalonsso05]

Bien ya lo estoy analizando!
De echo cuando borro una fila del datagrid me borra la primera y no la seleccionada...

[Aquaventus]

Utiliza los Breakpoints para que le hagas seguimiento de dónde cae el problema. Ahora coloca el código que tienes para ver que hayas hecho mal. Saludos!.

[davidalonsso05]

En

Public Class Form1
Dim indice As Integer
Dim menu As ContextMenuStrip


Private Sub datagridview1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles datagridview1.MouseDown
If e.Button = System.Windows.Forms.MouseButtons.Right Then
Dim Mi_Test As DataGridView.HitTestInfo = Me.datagridview1.HitTest(e.X, e.Y)
If Mi_Test.Type = DataGridViewHitTestType.Cell Then
If Mi_Test.RowIndex >= 0 Then
indice = Mi_Test.RowIndex
Me.datagridview1.CurrentCell = Me.datagridview1.Rows(Mi_Test.RowIndex).Cells(Mi_T est.ColumnIndex)
Me.datagridview1.Rows(Mi_Test.RowIndex).Selected = True
menu = New ContextMenuStrip()
menu.Items.Add("Eliminar", Nothing) <------ BORRE "EliminarFila" ya que me marcaba que no ha sido declarada
Me.datagridview1.ContextMenuStrip = menu
End If
End If
End If
End Sub

y por ultimo....
Private Sub BorrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem.Click
Me.datagridview1.Rows.RemoveAt(indice)

End Sub

Asi lo puse hehe

[Aquaventus]

Ah perdón! Error mío... borra lo que esto que has hecho :

Código vb:

Private Sub BorrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem.Click
Me.datagridview1.Rows.RemoveAt(indice)
 

En el anterior code que te pasé me equivoqué de nombre, estaba bien como estaba :

Código vb:

menu.Items.Add("Eliminar",Nothing,EliminarFila)
 

Eliminar fila era un método al cual por error le coloque AbrirForm, solo era cuestion que lo modifiques como EliminarFila :

Código vb:

Private Sub EliminarFila (sender As Object, e As EventArgs)
Me.Mi_datagridview.Rows.RemoveAt(indice)
End Sub
 

Y eso era . Nos cuentas! Saludos!.

[davidalonsso05]

Lo que pasa es que le doy la opcion de borrar con el click derecho del menu contextual de BORRAR
Private Sub BorrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem.Click
Me.datagridview1.Rows.RemoveAt(indice)

End Sub

y si pongo el Eliminar fila como me mencionas
Private Sub EliminarFila (sender As Object, e As EventArgs)
Me.Mi_datagridview.Rows.RemoveAt(indice)
End Sub

me aparecen los siguientes errores:
Error 1 Argument not specified for parameter 'e' of 'Private Sub EliminarFila(sender As Object, e As System.EventArgs)'.
Error 2 Argument not specified for parameter 'sender' of 'Private Sub EliminarFila(sender As Object, e As System.EventArgs)'.

[Aquaventus]

Ok ya vi el error, es así :

Código vb:

menu.Items.Add("Eliminar", Nothing, New EventHandler(AddressOf EliminarFila))
 

y el método :

Código vb:

Private Sub EliminarFila()
        Me.Mi_datagridview.Rows.RemoveAt(indice)
    End Sub
 

Espero ahora sí no haya problemas .Saludos!.

PDT: Es la costumbre de trabajar en C#, que se me pasan algunas cosillas del VB.

[davidalonsso05]

Gracias por la respuesta, ahorita no estoy en el trabajo pero mañana lo implemento, ojala y jale porque es para mañana hehe gracias!!!!

[davidalonsso05]

Ya me borro la fila!! En serio gracias!!!

Ya el que me borre el registro del datagridview y de la tabla de sql y al momento de agregar un nuevo registro mediante botones y ya no aparezca en el datagridview me encargare!!

Si tienes un blog o tutoriales en Youtube me interesaria que me los pasaras Aquaventus!

"Inteligente es aquel que tiene conocimiento, Sabio es aquel que lo comparte"

[Aquaventus]

Excelente davidalonsso05, cualquier problema que tengas no dudes colocarlo en el Foro. Lamentablemente no tengo videotutoriales por el factor tiempo. Pero estamos aqui en el Foro para ayudarlos y compartir conocimientos. Saludos!.

[davidalonsso05]

Iniciado por Aquaventus

Excelente davidalonsso05, cualquier problema que tengas no dudes colocarlo en el Foro. Lamentablemente no tengo videotutoriales por el factor tiempo. Pero estamos aqui en el Foro para ayudarlos y compartir conocimientos. Saludos!.

Buen dia AquaVentus, disculpa despues de buscar y buscar como eliminar el la fila seleccionada (registros) del datagridview y tambien de la BD de SQL no encuentro la solucion, el codigo que me pasaste para borrar al fila seleccionada del DGV funciona a la perfeccion pero me podrias orientar o ayudar para que tambien me la borre de la BD...

Gracias de ante mano!