Consulta de DataGrid en ASP.NET ?

[raab99]

Sub DataGrid_Update(Sender As Object, E As DataGridCommandEventArgs)
' Actualiza la base de datos con los nuevos valores
' tomando los valores del texbox
Dim glnum As String = CType(e.Item.Cells(2).Controls(0), TextBox).Text
Dim descri As String = CType(e.Item.Cells(3).Controls(0), TextBox).Text
' Actualiza los datos de la aplicacion
Dim myConnection As New SqlConnection(ConnectionString)
Dim UpdateCommand As SqlCommand = new SqlCommand()
UpdateCommand.Connection = myConnection
If AddingNew = True Then
UpdateCommand.CommandText = "INSERT INTO chart(glnum, descri) VALUES (@glnum, @descri)"
Else
UpdateCommand.CommandText = "UPDATE chart SET glnum = @glnum, descri = @descri WHERE glnum = @glnum"
End If
UpdateCommand.Parameters.Add("@glnum", SqlDbType.VarChar, 15).Value = glnum
UpdateCommand.Parameters.Add("@descri", SqlDbType.VarChar, 40).Value = descri
' Ejecuta el Comando
Try
myConnection.Open()
UpdateCommand.ExecuteNonQuery()
Catch ex as Exception
Message.Text = ex.ToString()
Finally
myConnection.Close()
End Try
' Restaura el grid con los nuevos registros (Refresh)
If AddingNew = True Then
DataGrid1.CurrentPageIndex = 0
AddingNew = false
End If
DataGrid1.EditItemIndex = -1
BindGrid()
End Sub
'+---------------------------------------------------------------+
Sub DataGrid_Cancel(Sender As Object, E As DataGridCommandEventArgs)
' Cancela la Edicion sin ningun cambio en la base de datos
DataGrid1.EditItemIndex = -1
BindGrid()
AddingNew = False
End Sub
'+---------------------------------------------------------------+
Sub DataGrid_Delete(Sender As Object, E As DataGridCommandEventArgs)
' Elimina la fila seleccionada
If Not isEditing Then
' Selecciona la llave para ejecutar la operacion en la base de datos
Dim keyValue As String = Cstr