adding data in database

[manutd4life]

Hello i got trouble to add data
i got error saying:
OleDbException was unhandled

here's the code:

Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        Dim com As New OleDbCommand
        com.Connection = con
        com.CommandText = "insert into Watches values(" & txtWatchId.Text & ",'" & txtWatchBrand.Text & "','" & _
                            txtWatchModel.Text & "','" & txtManufacturer.Text & "'," & txtCountryOfOrigin.Text & "','" & _
                            cmbType.Text & "','" & txtDescription.Text & "'," & txtPrice.Text & "'," & txtPriceInclVat.Text & ")"

        com.ExecuteNonQuery()
        MsgBox("Record Inserted")
        Call fill_combo()
        Call populate()
        Call clear()
    End Sub

any help please

[thewebhostingdi]

I think your SQL string is not well formatted. This is correct, I think.

com.CommandText = "insert into Watches values(" & txtWatchId.Text & ",'" & txtWatchBrand.Text & "','" & _
txtWatchModel.Text & "','" & txtManufacturer.Text & "','" & txtCountryOfOrigin.Text & "','" & _
cmbType.Text & "','" & txtDescription.Text & "','" & txtPrice.Text & "'," & txtPriceInclVat.Text & ")"

Moreover, also use try-catch exception handling to know the exact source and exact error message.

[manutd4life]

here's the code:

Try
            Dim com As New OleDbCommand
            com.Connection = con
            com.CommandText = "insert into Details values(" & txtBoxNo.Text & ",'" & txtBoxName.Text & "','" & _
                                txtBoxGender.Text & "','" & txtBoxDepartment.Text & "'," & txtBoxTotalMark.Text & ")"

            com.ExecuteNonQuery()
            MsgBox("Record Inserted")
            Call Md_FillCombo()
            Call Md_Settings()
            Call Md_ClearAll()
        Catch exp As Exception
            MsgBox(exp.ToString())
        End Try

when trying to add i got this error:
No value given for one or more required parameter at Sys..

[kvprajapati]

>when trying to add i got this error: No value given for one or more required parameter at Sys..

Can you show us your table structure of Details table?

[manutd4life]

Please any help

[manutd4life]

here's the code:

Try
            Dim com As New OleDbCommand
            com.Connection = con
            com.CommandText = "insert into Details values(" & txtBoxNo.Text & ",'" & txtBoxName.Text & "','" & _
                                txtBoxGender.Text & "','" & txtBoxDepartment.Text & "'," & txtBoxTotalMark.Text & ")"

            com.ExecuteNonQuery()
            MsgBox("Record Inserted")
            Call Md_FillCombo()
            Call Md_Settings()
            Call Md_ClearAll()
        Catch exp As Exception
            MsgBox(exp.ToString())
        End Try

when trying to add i got this error:
No value given for one or more required parameter at Sys..

helps please Urgent i need to submit this on Frinday
please help

[sknake]

Your code:

Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        Dim com As New OleDbCommand
        com.Connection = con
        com.CommandText = "insert into Watches values(" & txtWatchId.Text & ",'" & txtWatchBrand.Text & "','" & _
                            txtWatchModel.Text & "','" & txtManufacturer.Text & "'," & txtCountryOfOrigin.Text & "','" & _
                            cmbType.Text & "','" & txtDescription.Text & "'," & txtPrice.Text & "'," & txtPriceInclVat.Text & ")"

        com.ExecuteNonQuery() <-- Break your debugger here
        MsgBox("Record Inserted")
        Call fill_combo()
        Call populate()
        Call clear()
    End Sub

Put a breakpoint where I marked in the code above and when you hit that breakpoint get the value of com.CommandText and post that here. Also post the FULL error message from the exception.

[c0deFr3aK]

I guess the INSERT syntax would look like this:

"INSERT INTO Table_Name(Field1, Field2, Field3) VALUES ('" & Text1.Text &"','"& Text2.Text &"','" & Text3.Text &"')"

[sknake]

I guess the INSERT syntax would look like this:

"INSERT INTO Table_Name(Field1, Field2, Field3) VALUES ('" & Text1.Text &"','"& Text2.Text &"','" & Text3.Text &"')"

No it should look like

INSERT INTO Table_Name(Field1, Field2, Field3) Values ('Val1', 'Val2', 'Val3')

The original post did not have the insert columns defined which could cause a problem if one of the columns is an identity column. It could also be a problem if one of the values that wasn't wrapped with a '' had a @ParameterName value, which sort of matches the partial exception he pasted

[manutd4life]

Here's the com.commandtext
"insert into Watches values(W005,'Rolex','Air-King','Rolex SA',Switzerland','Automatic','The Air-King could be considered the "entry level" model from Rolex. It is 34mm in diameter and comes with an Oyster bracelet by default. The Air-King does not have a Date.',4200',4830)"

hope a reply

[sknake]

That still does not help because you have not posted the structure for the table Watches . I don't know if your column names/values are aligned properly and if you have the right data type.

[manutd4life]

What structure, for example WatchID, WatchBrand??
Give me an example??

If u cant undersatand at all, can i email the program to U??

[sknake]

You can .zip the program and attach it to this thread. Hit the "Go Advanced" button next to "Post Quick Reply" and it will let you manage attachments.

[manutd4life]

Here's the program

[kvprajapati]

Your insert query has problem:

Here is correction. However, use the parameters suggested by Mr. sknake.

com.CommandText = "insert into Watches values('" & txtWatchId.Text & "','" & txtWatchBrand.Text & "','" & _
                            txtWatchModel.Text & "','" & txtManufacturer.Text & "','" & txtCountryOfOrigin.Text & "','" & _
                            cmbType.Text & "','" & txtDescription.Text & "'," & txtPrice.Text & "," & txtPriceInclVat.Text & ")"

[manutd4life]

Yes thanks adatapost everything's working

[kvprajapati]

Thanks.

Mark this thread as Solved if you get solution.