eliminar desde el grid view - SOLUCIONADO (solucion abajo)

[fbirrer]

hola a todos

estoy buscando una forma de poder eliminar desde el gridview, y que al presionar el boton eliminar o el icono de borrar aparesca un mensaje en javascript ¿Seguro desea eliminar?

Me ayudan para esto, gracias

[fbirrer]

Iniciado por fbirrer

hola a todos

estoy buscando una forma de poder eliminar desde el gridview, y que al presionar el boton eliminar o el icono de borrar aparesca un mensaje en javascript ¿Seguro desea eliminar?

Me ayudan para esto, gracias

Buscando a l internet, en la pagina http://www.es-asp.net/Foro/ajax-y-ja...p-net-2-0.aspx encontre esto:

Código PHP:

  Funcion JavaScript
<script language="javascript" type="text/javascript">
function ConfirmDel()
{
return confirm('¿Esta seguro que desea eliminar este Registro?');
}
</script>
 
Aqui asigno al boton del grid la funcion Java
Protected Sub Grid_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles Grid.RowDataBound
Try
If e.Row.RowType <> ListItemType.Header And e.Row.RowType <> ListItemType.Footer Then
e.Row.Cells(4).Attributes.Add("onClick", "javascript:return ConfirmDel();")
End If
Catch ex As Exception
 
End Try
End Sub
 
Aqui Controlo el nombre del comando y ejecuto la sentencia
Protected Sub Grid_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles Grid.RowCommand
On Error Resume Next
Dim index As Integer = Convert.ToInt32(e.CommandArgument)
Dim row As GridViewRow = Grid.Rows(index)
Dim cn As New ADODB.Connection, TransaccionActiva As Boolean
 
Select Case e.CommandName
Case "Modificar"
   'OTRO COMANDO QUE NO VIENE A CUENTO
 
Case "Eliminar"
   On Error GoTo ControlError
   cn.ConnectionString = ConexionAdoDB()
   cn.Open()
   TransaccionActiva = True
   cn.BeginTrans()
   cn.Execute("Delete Tabla1 WHERE Id=" & Server.HtmlDecode(row.Cells(0).Text))
   cn.Execute("Delete Tabla2 WHERE Id=" & Server.HtmlDecode(row.Cells(0).Text))
   If TransaccionActiva = True Then
      cn.CommitTrans()
      TransaccionActiva = False
   End If
   cn.Close()
   cn = Nothing
   On Error Resume Next
   Cargar_Grid()
End Select
Exit Sub
 
ControlError:
   If transaccionactiva = True Then
   cn.RollbackTrans()
   TransaccionActiva = False
   Me.lb_Comentario.text = Err.Description
   End If
End Sub