NO errors, but no Works :-( (updating table)...

pop_black · Apr 28, 2012

I was not been able to delete a row from an mdb file, so I started with Edit tasks first... I been debugging a little time, and now it don't returns errors, but the aplication don't works aniway. I imagine that the problem should be in the sql string or in the definition of my Primary Key (IdF) or maybe in the quotes (but I'm not sure of that because it compile..) This is the sourcecode, you can try it with any mdb (adapting it to your tables..): --------------------------------------- <%@ Page Language="VB" Debug="True"%> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.OleDb" %> <script language="VB" runat="server"> sub Page_Load(obj as Object, e as EventArgs) 'set up connection dim myConnection as new OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("borrala.mdb") & ";") 'open connection dim myCommand as new OleDbDataAdapter ("select * from tbdownloads", myConnection) 'fill dataset dim ds as DataSet = new DataSet() myCommand.Fill(ds, "tbdownloads") 'select data view and bind to server control DataGrid1.DataSource = ds DataGrid1.DataMember = "tbdownloads" DataBind() end sub sub DataGrid1_Edit(obj as object, e as DataGridCommandEventArgs) DataGrid1.EditItemIndex = e.Item.ItemIndex DataGrid1.DataBind() end sub sub DataGrid1_Update(obj as object, e as DataGridCommandEventArgs) Dim myConn As OleDbConnection Dim connStr, sqlStr, strNomFich, strEnlace As String Dim myUpdateCommand As OleDbCommand Dim intPid As Integer intPid=e.Item.ItemIndex strNomFich=(Ctype(e.Item.Cells(1).Controls(0), Textbox)).Text strEnlace=(Ctype(e.Item.Cells(2).Controls(0), Textbox)).Text sqlStr="Update tbdownloads set NomFich=' " + strNomFich + " ', DescF=' " + StrEnlace + " ' WHERE IdF=" +intPid.ToString connStr="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("borrala.mdb") & ";" myConn=New OleDbConnection(connStr) myConn.Open() myUpdateCommand=New OleDbCommand(sqlStr, myConn) myUpdateCommand.ExecuteNonQuery myConn.Close() DataGrid1.EditItemIndex=-1 DataGrid1.DataBind() end sub sub DataGrid1_Cancel(obj as object, e as DataGridCommandEventArgs) DataGrid1.EditItemIndex = -1 DataGrid1.DataBind() end sub sub DataGrid1_SortCommand(obj as Object, _ e as DataGridSortCommandEventArgs) ' sort the data using the SortField property ' of the eventargs DataGrid1.DataBind() End Sub sub DataGrid1_PageIndexChanged(obj as Object, e as DataGridPageChangedEventArgs) DataGrid1.CurrentPageIndex = e.NewPageIndex DataGrid1.DataBind() end sub </script> <html> <body> <form runat="server"> <asp

ataGrid id="DataGrid1" runat="server" BorderColor="black" GridLines="Vertical" cellpadding="4" cellspacing="0" width="450" Font-NameFont-Names="Arial" Font-Size="8pt" ShowFooter="True" HeaderStyle-BackColor="#cccc99" FooterStyle-BackColor="#cccc99" ItemStyle-BackColor="#ffffff" AlternatingItemStyle-Backcolor="#cccccc" AutoGenerateColumns="false" AllowSorting=true OnEditCommand="DataGrid1_Edit" OnCancelCommand="DataGrid1_Cancel" OnUpdateCommand="DataGrid1_Update" AllowPaging="True" PageSize=2 PagerStyle-Mode=NumericPages PagerStyle-PageButtonCount = 2 OnPageIndexChanged="DataGrid1_PageIndexChanged" > <Columns> <asp:TemplateColumn HeaderText="Descripci

NO errors, but no Works :-( (updating table)...

pop_black

New Member