INSERT Command Problems

[Meindert]

Hi,

I can't figure out why I get the error "datatype mismatch in criteria expression"

This is my script:

 Using meldingcmd As OleDbCommand = New OleDbCommand
            Make_con()
            With meldingcmd
                .Parameters.Clear()
                .Connection = con
                .CommandText = "INSERT INTO Meldingen (Weg_ID,Onderdeel,Dringendheid,Beginlat,Beginlong,Eindlat,Eindlong,Afstand,Opmerkingen,Datum) VALUES (?,?,?,?,?,?,?,?,?,?);"
                .Parameters.AddWithValue("@p1", Convert.ToInt32(current_weg_Id))
                .Parameters.AddWithValue("@p2", Onderdeel_CBX.Text)
                .Parameters.AddWithValue("@p3", Dringendheid_CBX.Text)
                .Parameters.AddWithValue("@p4", Convert.ToDecimal(BeginLAT_T.Text))
                .Parameters.AddWithValue("@p5", Convert.ToDecimal(BeginLONG_T.Text))
                .Parameters.AddWithValue("@p6", Convert.ToDecimal(EindLAT_T.Text))
                .Parameters.AddWithValue("@p7", Convert.ToDecimal(EindLONG_T.Text))
                .Parameters.AddWithValue("@p8", Convert.ToDecimal(Afstand_T.Text))
                .Parameters.AddWithValue("@p9", Melding_opmerking_T.Text)
                .Parameters.AddWithValue("@p10", Date.Now())
                .ExecuteNonQuery()
            End With
            con.Close()
        End Using

And my fields have been defined in Access as
current_weg_ID = Number, Long Integer
Onderdeel = Text
Dringendheid = Text
Beginlat,Beginlong,Eindlat,Eindlong,Afstand = Number, Decimal
Opmerkingen = Memo
Datum = Date/Time, Standard notation.

Can anybody help me...it's driving me nuts at this moment :-)

Grtz and thanks

[Toph]

Try this.

Using meldingcmd As OleDbCommand = New OleDbCommand
            Make_con()
            With meldingcmd
                .Parameters.Clear()
                .Connection = con
                .CommandText = "INSERT INTO Meldingen (Weg_ID,Onderdeel,Dringendheid,Beginlat,Beginlong,Eindlat,Eindlong,Afstand,Opmerkingen,Datum) VALUES (@p1,p2,p3,p4,p5,p6,p7,p8,p9,p10);"

                .Parameters.AddWithValue("@p1", Convert.ToInt32(current_weg_Id))
                .Parameters.AddWithValue("@p2", Onderdeel_CBX.Text)
                .Parameters.AddWithValue("@p3", Dringendheid_CBX.Text)
                .Parameters.AddWithValue("@p4", Convert.ToDecimal(BeginLAT_T.Text))
                .Parameters.AddWithValue("@p5", Convert.ToDecimal(BeginLONG_T.Text))
                .Parameters.AddWithValue("@p6", Convert.ToDecimal(EindLAT_T.Text))
                .Parameters.AddWithValue("@p7", Convert.ToDecimal(EindLONG_T.Text))
                .Parameters.AddWithValue("@p8", Convert.ToDecimal(Afstand_T.Text))
                .Parameters.AddWithValue("@p9", Melding_opmerking_T.Text)
                .Parameters.AddWithValue("@p10", Date.Now())
                .ExecuteNonQuery()
            End With
            con.Close()
        End Using

[Toph]

Also, you might not need to use Convert.ToDecimal, because when you paramterize your queries, they get converted to the right data type automatically.

[Meindert]

Toph,
It keeps giving the same Error

[Meindert]

It's something with the Date input that is wrong...the rest he saves good...

[Meindert]

Found the problem...I should have put

.Parameters.AddWithValue("@p10", DateTime.Parse(Date.Now()))

This works.
Anyway thanks :-)

[Meindert]

Ok, I'll try that

[Toph]

VALUES (@p1,@p2,@p3,@p4,@p5,@p6,@p7,@p8,@p9,@p10);"

[Toph]

Oops, add @p1, @p2, @p3 and so on. I forgot to include the @ sign in the Insert Statement

[Toph]

No problem , I knew you'd work something out