datagrid mira te pongo mi codigo completo para q lo veas lo ke hace es cuando lo carga lo jala la tabla de mi bd de fox y deacuerdo a mi consulta q genero selecciono el que quiero eliminar y se supone q presiono el boton de eliminar de la propiedad de mi datagrid y me manda ese msg q te comente. Se supone q lo que debo hacer es nadamas elegir el registro a eliminar y borrarlo de mi tabla fisica par ello ocupo este codigo
Imports System.Data.oledb
Public Class WebForm1
Inherits System.Web.UI.Page
'Public ds As New DataSet
Public ds As Data.DataSet = New DataSet
Public adaptadorautores As New OleDbDataAdapter
#Region " Código generado por el Diseñador de Web Forms "
'El Diseñador de Web Forms requiere esta llamada.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
'NOTA: el Diseñador de Web Forms necesita la siguiente declaración del marcador de posición.
'No se debe eliminar o mover.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: el Diseñador de Web Forms requiere esta llamada de método
'No la modifique con el editor de código.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strconexion As String
Dim strcomando As String
Dim cb As OleDbCommandBuilder
Dim claveprimaria(1) As DataColumn
strconexion = "provider=vfpoledb.1;data source=C:\actividades\ra2005\ra_de27.dbf" 'Tabla de quincenas
strcomando = "select * from ra_de27"
adaptadorautores = New OleDbDataAdapter(strcomando, strconexion)
cb = New OleDbCommandBuilder(adaptadorautores)
adaptadorautores.Fill(ds, "ra_de27")
claveprimaria(0) = ds.Tables("ra_de27").Columns("Clave")
ds.Tables("ra_de27").PrimaryKey() = claveprimaria
'Introducir aquí el código de usuario para inicializar la página
DataGrid1.DataSource = ds
If IsPostBack = False Then
DataGrid1.DataBind()
End If
End Sub
Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles DataGrid1.ItemCommand
If e.CommandName = "seleccionar" Then
DataGrid1.SelectedIndex = e.Item.datasetindex
End If
End Sub
Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles DataGrid1.DeleteCommand
Dim fila_eli As Long
fila_eli = e.Item.DataSetIndex
ds.Tables("ra_de27").Rows(fila_eli).Delete()
adaptadorautores.Update(ds, "ra_de27")
ds.Tables("ra_de27").AcceptChanges()
DataGrid1.DataBind()
End Sub
Private Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles DataGrid1.EditCommand
DataGrid1.EditItemIndex = e.Item.datasetindex
DataGrid1.DataBind()
End Sub
Private Sub DataGrid1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged
End Sub
Private Sub DataGrid1_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles DataGrid1.CancelCommand
DataGrid1.EditItemIndex = -1
DataGrid1.DataBind()
End Sub
End Class
ojala y piedas responder!!!!!!! |