>Private Sub DataGrid1_DeleteCommand(ByVal source As Object, _ >ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) _ >Handles DataGrid1.DeleteCommand > Dim PKey As Integer > iPKey = e.Items.Cells[1].Text > > 'Code to get a connection to the Access database > SQLString = "Delete BlahBlahBlah Where PKey = " + Str(iPKey) > oConnection = New OleDbConnection(???) > oCommand = New OleDbCommand(SQLString, oConnection) > > 'Now delete the record > oConnection.Open() > oCommand.ExecuteNonQuery() > oConnection.Close() > > ' Add code to delete data from data source. > subFillGrid() >End Sub > >>
>> >>Sub subFillGrid() >> >>Dim objConn As OleDb.OleDbConnection = New OleDb.OleDbConnection() >>Dim Adapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter() >>Dim dsDataDict As Data.DataSet = New Data.DataSet() >>Dim strConn, strSQL As String >> >>If ConfigurationSettings.AppSettings("AppMode") = "ModeProd" Then >> strConn = ConfigurationSettings.AppSettings("dbConnectLive") >>ElseIf ConfigurationSettings.AppSettings("AppMode") = "ModeTest" Then >> strConn = ConfigurationSettings.AppSettings("dbConnectTest") >>End If >> >>strSQL = "Select FirstNameVC, LastNameVC, EMailVC, DateDT from BlahBlahBlah" >> >>objConn.ConnectionString = strConn >>Adapter.SelectCommand = New OleDb.OleDbCommand(strSQL, objConn) >>Adapter.SelectCommand.Connection.Open() >>Adapter.Fill(dsDataDict, "FileReg") >>DataGrid1.DataSource = dsDataDict.Tables("FileReg") >>DataGrid1.DataBind() >>End Sub >> >>>>
>> >>' Visual Basic >>Private Sub DataGrid1_DeleteCommand(ByVal source As Object, _ >>ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) _ >>Handles DataGrid1.DeleteCommand >> Dim index As Integer >> index = e.Item.ItemIndex >> ' Add code to delete data from data source. >> DataGrid1.DataBind() >>End Sub >> >>>>