[سعود]

PHP كود :

  Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using cm As New OleDb.OleDbCommand("", con)
                Using ms As New System.IO.MemoryStream
                    Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)
                    cm.CommandText = "insert into tb(picname,picbyte) values(@picname,@picbyte)"
                    cm.Parameters.AddWithValue("@picname", "vb4arb")
                    cm.Parameters.AddWithValue("@picbyte", ms.ToArray)
                    If con.State = ConnectionState.Closed Then con.Open()
                    Try
                        cm.ExecuteNonQuery()
                        MsgBox("Saved....!", MsgBoxStyle.Information, "")
                    Catch ex As Exception
                        MsgBox(Err.Description, MsgBoxStyle.Critical, "")
                    End Try

                End Using
            End Using
        End Using