Update not working...
What could be wrong on my function=
Sub MyDataList_Update(Sender As Object, E As DataListCommandEventArgs)
Dim Conn as OleDbConnection
Dim edit_price as string
Dim EditText As HtmlInputText
Dim MyConnection as String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("bd1.mdb") & ";"
Dim SQL as String = "update Tabela set numero='" & edit_price & "' Where nome=@nome"
Dim Cmd as OleDbCommand
EditText = E.Item.FindControl("edit_price")
conn = New OleDbConnection(MyConnection)
Cmd = New OleDbCommand(SQL, conn)
Cmd.Parameters.Add(New OleDbParameter("@numero", "edit_price"))
Conn.Open()
cmd.ExecuteNonQuery()
Conn.close
MyDataList.EditItemIndex = -1
Message.InnerHtml = "Price Updated: " & EditText.Value
PopulateList()
End Sub
Please help!
|