17-06-13, 03:26 AM
السلام عليكم ورحمة الله وبركاته
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String = " INSERT INTO [Table3] ( [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
#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
السلام عليكم ورحمة الله وبركاته
