Syntax error in INSERT INTO statement. in VB.net 2005

Question

I have been this problem for a week and searching every existing forum for an answer maybe this time that i post my own problem.

My problem was in saving a data in a database. I want to save data into access database about picture and data of customer.

It appears that my problem was in INSERT INTO statement, because there was a msgbox appears that every time i try to save a data from textbox. and lastly, I'm new to vb.net. Please help me,please. my coding as below.

    Dim ms As New IO.MemoryStream
    Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)
    Dim arrayImage() As Byte = ms.GetBuffer
    ms.Close()
    fdCon.ConnectionString = strConnectionString

    sql = "INSERT INTO TBL_CUSTOMER([id_card],[cus_fname],[cus_lname],[age],[bd_date],[address],[phone],[e_mail],[date_reg],[MATE],[PIC])VALUES (@txtID,@txtFname,@txtLname,@txtAge,@bdDate,@txtAdd,@txtPhone,@txtEmail,@dmDateIN,@txtMate,@Picture"

    'Set SQL OBJECT 
    objSql = New OleDbCommand(sql, fdCon)
    Try
        fdCon.Open()
        With objSql
            .Parameters.Add(New OleDbParameter("@Picture", SqlDbType.Image)).Value = arrayImage

            .Parameters.AddWithValue("@txtID", txtID.Text)
            .Parameters.AddWithValue("@txtFname", txtFname.Text)
            .Parameters.AddWithValue("@txtLname", txtLname.Text)
            .Parameters.AddWithValue("@txtAge", txtAge.Text)
            .Parameters.AddWithValue("@bdDate", bdDate.Text)
            .Parameters.AddWithValue("@txtAdd", txtAdd.Text)
            .Parameters.AddWithValue("@txtPhone", txtPhone.Text)
            .Parameters.AddWithValue("@txtEmail", txtEmail.Text)
            .Parameters.AddWithValue("@dmDateIN", dmDateIN)
            .Parameters.AddWithValue("@txtMate", txtMate.Text)


        End With


        'Execute DataReader 
        MyDataReader = objSql.ExecuteNonQuery

        'Store Values in String Variables 

        'Close Connection 

    Catch ex As Exception
        'TODO HANDLE EX 
        MessageBox.Show(ex.Message)
    End Try
    'DataGridView1.DataSource = 
    fdCon.Close()

OneFineDay OneFineDay · Accepted Answer · 2014-03-14T01:36:29

You don't have the end ) for the values section.

Dim arrayImage() As Byte
Using ms As New IO.MemoryStream
  Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)
  arrayImage = ms.ToArray()
End Using

sql = "INSERT INTO TBL_CUSTOMER([id_card],[cus_fname],[cus_lname],[age],[bd_date],[address],[phone],[e_mail],[date_reg],[MATE],[PIC]) VALUES
      (@txtID,@txtFname,@txtLname,@txtAge,@bdDate,@txtAdd,@txtPhone,@txtEmail,@dmDateIN,@txtMate,@Picture)"

Check out this article.

Syntax error in INSERT INTO statement. in VB.net 2005

1 Answers