[Dexterwess]

Hello , i have this code in my project that i would want it to insert into my database , but when that stage comes , it tells me syntax error in insert into statement:

   
Dim objCon As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OleDb.4.0; Data Source=D:\newProj\Pipes.mdb;")
        Dim objcommand As New OleDb.OleDbCommand


        'defining the parameters
        objcommand.Connection = objCon
        objcommand.CommandType = CommandType.Text
        objcommand.CommandText = "INSERT INTO tblPressurePipe" & _
        "(Type,Size,Quantity,Unit_Cost,Total_Cost,Transaction_Date,Available)" & _
        "VALUES(@type,@size,@quantity,@Cost,@Total,@TDate,@remain)"

        'defining the inputs



        With objcommand
            .Parameters.AddWithValue("@type", cboType.Text)
            .Parameters.AddWithValue("@size", cboSize.Text)
            .Parameters.AddWithValue("@quantity", txtQuantity.Text)
            .Parameters.AddWithValue("@Cost", txtCost.Text)
            .Parameters.AddWithValue("Total", txtTotalCost.Text)
            .Parameters.AddWithValue("@TDate", Form3.TDate.Text)
            .Parameters.AddWithValue("@remain", txtAvailable.Text)

        End With

        objCon.Open()

        objcommand.ExecuteNonQuery()

        objCon.Close()

This post has been edited by smohd: 09 August 2012 - 10:51 AM
Reason for edit:: Code tags fixed

[torind_2000]

your last code tag should be [/code] sir

[torind_2000]

I did some searching and found this.

Maybe this will shed some light on the problem with your insert command.
Good luck! Please post the answer if you get it working, thanks!

Dexterwess, on 09 August 2012 - 10:47 AM, said:

   

        objcommand.CommandText = "INSERT INTO tblPressurePipe" & _
        "(Type,Size,Quantity,Unit_Cost,Total_Cost,Transaction_Date,Available)" & _
        "VALUES(@type,@size,@quantity,@Cost,@Total,@TDate,@remain)"

[Dexterwess]

Dexterwess, on 09 August 2012 - 10:47 AM, said:

Hello , i have this code in my project that i would want it to insert into my database , but when that stage comes , it tells me syntax error in insert into statement:

Thanks Dude, but you code ain't working , this one works:

'defining the parameters
        objcommand.Connection = objCon
        objcommand.CommandType = CommandType.Text
        objcommand.CommandText = "INSERT INTO tblPressurePipe" & _
        "([Type],[Size],[Quantity],Unit_Cost,Total_Cost,Transaction_Date,[Available])" & _
        "VALUES(@type,@size,@quantity,@Cost,@Total,@TDate,@remain)"

   
Dim objCon As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OleDb.4.0; Data Source=D:\newProj\Pipes.mdb;")
        Dim objcommand As New OleDb.OleDbCommand


        'defining the parameters
        objcommand.Connection = objCon
        objcommand.CommandType = CommandType.Text
        objcommand.CommandText = "INSERT INTO tblPressurePipe" & _
        "(Type,Size,Quantity,Unit_Cost,Total_Cost,Transaction_Date,Available)" & _
        "VALUES(@type,@size,@quantity,@Cost,@Total,@TDate,@remain)"

        'defining the inputs



        With objcommand
            .Parameters.AddWithValue("@type", cboType.Text)
            .Parameters.AddWithValue("@size", cboSize.Text)
            .Parameters.AddWithValue("@quantity", txtQuantity.Text)
            .Parameters.AddWithValue("@Cost", txtCost.Text)
            .Parameters.AddWithValue("Total", txtTotalCost.Text)
            .Parameters.AddWithValue("@TDate", Form3.TDate.Text)
            .Parameters.AddWithValue("@remain", txtAvailable.Text)

        End With

        objCon.Open()

        objcommand.ExecuteNonQuery()

        objCon.Close()

[torind_2000]

Thanks for posting your solution!