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