Hello
I have a form which I creates in asp.net I am trying to insert its inputs to the database but it doesnt ..
Can you please see if I am on the right track
html code
ASP.NET Code
And attached is my DB
thank you in advance
I have a form which I creates in asp.net I am trying to insert its inputs to the database but it doesnt ..
Can you please see if I am on the right track
html code
ASP.NET Code
Code:
Sub btnSubmit_Click(sender As Object, e As EventArgs)
Dim itemName As String = txtItemNm.Text
Dim senderName As String = txtSender.Text
Dim serialNo As String = txtSerial.Text
Dim aWB As String = txtAWB.Text
Dim model As String = ddlModel.SelectedIndex
Dim itemDescription As String = txtDesc.Text
Dim quantity As String = txtQuant.Text
Dim status As String = ddlStatus.SelectedIndex
If txtItemNm.Text = "" and txtSender.Text = "" and txtSerial.Text = "" and txtAWB.Text = "" and ddlModel.SelectedIndex = 0 and txtDesc.Text = "" and txtQuant.Text = "" and ddlStatus.SelectedIndex = 0 Then
lblMsg.Text = "All the fields are MANDATORY!"
else if txtItemNm.Text <> "" and txtSender.Text <> "" and txtSerial.Text <> "" and txtAWB.Text <> "" and ddlModel.SelectedIndex <> 0 and txtDesc.Text <> "" and txtQuant.Text <> "" and ddlStatus.SelectedIndex <> 0 Then
InsertItems(itemName,senderName , serialNo, aWB, model, itemDescription, quantity , status)
lblMsg.Text = "Successfully Entered!"
end if
End Sub
Function InsertItems(ByVal itemName As String, ByVal senderName As String, ByVal serialNo As String, ByVal aWB As String, ByVal model As String, ByVal itemDescription As String, ByVal quantity As Integer, ByVal status As String) As Integer
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\HASE"& _
"M\HASEM.mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim queryString As String = "INSERT INTO [tblNewItems] ([ItemName], [SenderName], [SerialNo], [AWB], [Model], [ItemD"& _
"escription], [Quantity], [Status]) VALUES (@ItemName, @SenderName, @SerialNo, @AWB, @Model, @ItemDescription, @Quanti"& _
"ty, @Status)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_itemName As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_itemName.ParameterName = "@ItemName"
dbParam_itemName.Value = itemName
dbParam_itemName.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_itemName)
Dim dbParam_senderName As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_senderName.ParameterName = "@SenderName"
dbParam_senderName.Value = senderName
dbParam_senderName.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_senderName)
Dim dbParam_serialNo As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_serialNo.ParameterName = "@SerialNo"
dbParam_serialNo.Value = serialNo
dbParam_serialNo.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_serialNo)
Dim dbParam_aWB As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_aWB.ParameterName = "@AWB"
dbParam_aWB.Value = aWB
dbParam_aWB.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_aWB)
Dim dbParam_model As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_model.ParameterName = "@Model"
dbParam_model.Value = model
dbParam_model.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_model)
Dim dbParam_itemDescription As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_itemDescription.ParameterName = "@ItemDescription"
dbParam_itemDescription.Value = itemDescription
dbParam_itemDescription.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_itemDescription)
Dim dbParam_quantity As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_quantity.ParameterName = "@Quantity"
dbParam_quantity.Value = quantity
dbParam_quantity.DbType = System.Data.DbType.Int32
dbCommand.Parameters.Add(dbParam_quantity)
Dim dbParam_status As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_status.ParameterName = "@Status"
dbParam_status.Value = status
dbParam_status.DbType = System.Data.DbType.[String]
dbCommand.Parameters.Add(dbParam_status)
Dim rowsAffected As Integer = 0
dbConnection.Open
Try
rowsAffected = dbCommand.ExecuteNonQuery
Finally
dbConnection.Close
End Try
Return rowsAffected
End Function
And attached is my DB
thank you in advance