Insert problem

[Mitsuki]

Can someone please tell me why doesnt it insert

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 receivedDt As String = txtDate.Text
Dim model As String = ddlModel.SelectedIndex
Dim description 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 txtDate.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 txtDate.Text <>"" and ddlModel.SelectedIndex <> 0 and txtDesc.Text <> "" and txtQuant.Text <> "" and ddlStatus.SelectedIndex <> 0 Then
InsertItems(itemName , senderName , serialNo, aWB , receivedDt , model, description , 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 receivedDt As Date, ByVal model As String, ByVal description As String, ByVal quantity As String, ByVal status As String) As Integer

Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _
"oot\HASEM_sys\HASEM_sys.mdb"

Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)

Dim queryString As String = "INSERT INTO [tblItems] ([ItemName], [SenderName], [SerialNo], [AWB], [ReceivedDt]"& _
", [Model], [Description], [Quantity], [Status]) VALUES (@ItemName, @SenderName, "& _
"@SerialNo, @AWB, @ReceivedDt, @Model, @Description, @Quantity, @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_receivedDt As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_receivedDt.ParameterName = "@ReceivedDt"
dbParam_receivedDt.Value = receivedDt
dbParam_receivedDt.DbType = System.Data.DbType.Date
dbCommand.Parameters.Add(dbParam_receivedDt)

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_description As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_description.ParameterName = "@Description"
dbParam_description.Value = description
dbParam_description.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_description)

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.String
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
rowsAffected = dbCommand.ExecuteNonQuery
dbConnection.Close
Return rowsAffected

End Function

[NuneatonSam]

What error do you get?

[handshakeit]

I could not find any error in code
Run program in debug mode u will find it yourself.....

[Mitsuki]

The problem was that i forgot to add an onclick for the button
Silly me!

[Malith]

pl check the single corts and dpubl corts in a sql statement.


line " queryString As String "
when u are inserting string pl put double corts , when u are inserting int pl use single corts. (I think so)

cheers

Malith