"Delete Phantom Menace" (On mdb again)

espoo · Apr 28, 2012

Hi again, Thanks, rajasp for your solution but I been not able to put it in practice at all :-( Aniway I took a Microsoft Quickstar example for deleting and I added it to my code, but when I click on the "Delete" column it returns me the following error: ------------------------------- Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.ArgumentOutOfRangeException: Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index Source Error: Line 24: objCommand = New OleDbCommand(DeleteCmd, objConnection) Line 25: objCommand.Parameters.Add(New OleDbParameter("@Id", OleDbType.VarChar, 11)) Line 26: objCommand.Parameters("@Id").Value = http://aspmessageboard.com/archive/index.php/DBAddDataGrid.DataKeys(CInt(E.Item.ItemIndex)) --> LINE OF ERROR. Line 27: Line 28: objCommand.Connection.Open() ------------------------------- I tried a lot of things, but nothing seem to Work. Here's my code. Any Ideas? (The code uses a form to add a record on a table using a mdb file, then it should delete the selected record, but it don't works..) Code: ------------------------------- <%@ Page Language="VB" Debug="True"%> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OleDb" %> <script language="VB" runat="server"> ' Declarados Globalmente. Dim objConnection As OleDbConnection Dim objCommand As OleDbCommand Sub Page_Load(Sender As Object, E As EventArgs) ' Set up our connection. objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("borrala.mdb") & ";") If Not (IsPostBack) ShowDataGrid() End If ' Every call to the page adds a new record and ' shows the data in the table. End Sub Sub MyDataGrid_Delete(Sender As Object, E As DataGridCommandEventArgs) Dim DeleteCmd As String = "DELETE from Employee where IdF = @Id" objCommand = New OleDbCommand(DeleteCmd, objConnection) objCommand.Parameters.Add(New OleDbParameter("@Id", OleDbType.VarChar, 11)) objCommand.Parameters("@Id").Value = DBAddDataGrid.DataKeys(CInt(E.Item.ItemIndex)) objCommand.Connection.Open() Try objCommand.ExecuteNonQuery() Message.InnerHtml = "Record Deleted " & DeleteCmd Catch Exc As OleDbException Message.InnerHtml = "ERROR: Could not delete record" Message.Style("color") = "red" End Try objCommand.Connection.Close() ShowDataGrid() End Sub Sub AddNewRecord(Sender As Object, E As EventArgs) Dim strSQLQuery As String Dim miEnlace As String Dim Contra As String Contra="</a>" miEnlace="<a href="+""""+Enlace.value+""""+">"+NomFich.value+Contra ' Our insert command strSQLQuery = "INSERT INTO tbdownloads " _ & "(NomFich, Enlace, DescF) " _ & "VALUES (@TextValue, @IntValue, @DTValue)" ' Create new command object passing it our SQL insert ' and telling it which connection to use. objCommand = New OleDbCommand(strSQLQuery, objConnection) ' Add parameters that our SQL command takes: objCommand.Parameters.Add(New OleDbParameter("@TextValue", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@IntValue", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@DTValue", OleDbType.VarChar, 255)) ' Set the values of these parameters: ' These can obviously come from anywhere... I'm just pulling ' in strings and numbers from the current time & date so ' I can keep the sample simple and not involve an input form. objCommand.Parameters("@TextValue").Value = NomFich.value objCommand.Parameters("@IntValue").Value = miEnlace objCommand.Parameters("@DTValue").Value = DescF.value ' Open the connection, execute the command, and close the connection. objConnection.Open() objCommand.ExecuteNonQuery() objConnection.Close() ' Record is now added... you should add appropriate error ' checking and handling, but we've left it out simply for ' clarity and brevity. Either that or I was just too lazy ' to write it... I don't recall!

ShowDataGrid End Sub Sub ShowDataGrid() Dim objCommand As OleDbCommand Dim strSQLQuery As String ' Get all the records to show strSQLQuery = "SELECT Enlace, DescF FROM tbdownloads" ' Create new command object passing it our SQL query ' and telling it which connection to use. objCommand = New OleDbCommand(strSQLQuery, objConnection) ' Open the connection, execute the command, and close the connection. objConnection.Open() DBAddDataGrid.DataSource = objCommand.ExecuteReader(System.Data.CommandBehavi or.CloseConnection) DBAddDataGrid.DataBind() ' I shouldn't need this, but System.Data.CommandBehavior.CloseConnection ' is not identical to .Close(). I'm not sure why, but if you move the ' .Close line above .DataBind, it fails when trying to FieldCount ' complaining that the reader is closed. On the other hand, if you use ' CloseConnection it works fine. This makes me think .Close() does more ' "closing" then CloseConnection so I've included it here just in case. ' Any ideas on this... send them to [email protected]. objConnection.Close() End Sub </script> <html> <body> <form runat="server"> <h3>Administrador de Archivos de La Intranet</h3> <center> <table width="95%"> <td valign="top"> <table style="font: 8pt verdana"> <tr> <td colspan="2" bgcolor="#aaaadd" style="font:10pt verdana">A?ade un fichero Nuevo a la Tabla:</td> </tr> <tr> <td nowrap>Nombre del Fichero: </td> <td><input type="text" id="NomFich" value="Ej: Precios Nokia.pdf" runat="server"></td> </tr> <tr> <td nowrap>Enlace: </td> <td><input type=file id="Enlace" value="Doe" runat="server"></td> </tr> <tr nowrap> <td>Descripci

"Delete Phantom Menace" (On mdb again)

espoo

New Member