Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click

        'to check if the records already exists...
        Dim sqlQRY As String = "SELECT COUNT(namee) AS namecount from staff WHERE namee='" & TextBox7.Text & "'"
        Dim queryResult As Integer

        Dim com As New OleDbCommand(sqlQRY, conn)
        queryResult = com.ExecuteScalar()

        If queryResult > 0 Then
            MessageBox.Show("Data Already Exists!", "REMINDER ", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else

            'if above if.. statement is false then else part is executed



            Dim arrImage() As Byte
            Dim strImage As String
            Dim myMs As New IO.MemoryStream
            '
            If Not IsNothing(Me.PictureBox1.Image) Then
                Me.PictureBox1.Image.Save(myMs, Me.PictureBox1.Image.RawFormat)
                arrImage = myMs.GetBuffer
                strImage = "?"
            Else
                arrImage = Nothing
                strImage = "NULL"
            End If

            Dim myCmd As New OleDb.OleDbCommand
            myCmd.Connection = conn

            myCmd.CommandText = "INSERT INTO staff(namee,address,contact,position,dob,entry_date,salary,picture) VALUES('" & Me.TextBox7.Text & "','" & Me.TextBox8.Text & "','" & Me.TextBox9.Text & "','" & Me.ComboBox5.Text & "','" & Me.DateTimePicker4.Text & "','" & Me.DateTimePicker3.Text & "','" & Me.TextBox10.Text & "'," & strImage & ")"
            If strImage = "?" Then
                myCmd.Parameters.Add(strImage, OleDb.OleDbType.Binary).Value = arrImage
            End If
            MessageBox.Show("Data sucessfully saved..", "Sucess!!!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            myCmd.ExecuteNonQuery()
        End If

    End Sub

hi sir.. i couldnt figure out the problem heres my code for inserting images to access database. it always throws error oledbexception was unhandeled in insert into query.. whats the actual problem.. plz help me...

Recommended Answers

All 4 Replies

thanx for reply.. yes access supports n i solved the problem..

No Worries - remember to mark as solved!

Hey sushilsth, I have a similar issue. Can you post your solution?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.