[alimse]

السلام عليكم اخى عملت الكود بالطريقة دى

كود :

#Region " ImageToByte "
    Public Function ImageToByte(ByVal image As Image) As Object
        Dim imgByte As Byte() = Nothing
        Dim imgStream As New IO.MemoryStream()
        On Error Resume Next
        image.Save(imgStream, Imaging.ImageFormat.Png)
        Return imgStream.ToArray()
    End Function
#End Region

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim con As New SqlConnection("Data Source=elsenbisi.mssql.somee.com;User ID=sbisy;Password=0000000000")
        Dim sql As String = " INSERT INTO [Table4] ( [img] ) VALUES ( @img ) "

        Dim com As New SqlClient.SqlCommand(sql, con)
        com.Parameters.AddWithValue("@img", ImageToByte(Me.PictureBox1.Image))

        con.Open()
        com.ExecuteNonQuery()
        con.Close()

        MsgBox("تمت الإضافة بنجاح")
    End Sub

و ظهر عندى المشكلة دى
[ATTACH=CONFIG]3030[/ATTACH][ATTACH=CONFIG]3031[/ATTACH]