Need help in Updating Data using Access in Web Matrix
-
Hi there, Currently I am creating an application for a library system where I have a field which is Available in my database.I am creating a web system using ASP.NET using VB code.It is a Text type and I decided to have it either Yes or No for the value.I am using Access database for your info. I also have a text box where user can just key in the serial code of the book to borrow from data grid generated. While I am using ASP.NET Web Matrix and I am quite new to the ASP.NET, I resorted to use the Update Wizard for performing the update data by the user from the text box. I have tried to grab user's value in the text box (which is the serial code) and update the Available field on the dB.However, after modify some code from the wizard, I couldnt get it workable.And there are many errors. Below are the code after generating the wizard for Update data :- Function Test(ByVal serialNumber As String, ByVal available='No' As String) As Integer Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _ "oot\db\equipment.mdb" Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString) Dim queryString As String = "UPDATE [portable] SET [Available] =@Available='No' WHERE ([portable].[SerialNumber"& _ "] = @SerialNumber)" Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand dbCommand.CommandText = queryString dbCommand.Connection = dbConnection Dim dbParam_serialNumber As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter dbParam_serialNumber.ParameterName = "@SerialNumber" dbParam_serialNumber.Value = serialNumber dbParam_serialNumber.DbType = System.Data.DbType.[String] dbCommand.Parameters.Add(dbParam_serialNumber) Dim dbParam_available='No' As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter dbParam_available='No'.ParameterName = "@Available='No'" dbParam_available='No'.Value = available='No' dbParam_available='No'.DbType = System.Data.DbType.[String] dbCommand.Parameters.Add(dbParam_available='No') Dim rowsAffected As Integer = 0 dbConnection.Open Try rowsAffected = dbCommand.ExecuteNonQuery Finally dbConnection.Close End Try Return rowsA