[عبد العزيز البسكري]

سيكون الشكل بهذه الطريقة .. راجع أسماء كود الإتصال لو سمحت ..

كود :

Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
   Public Constr As String = "Server=YourServerName;Database=YourDatabaseName;Integrated Security=False;User Id=YourNameLogin;Password=YourPasswordSqlServer"
   Public Conne_2020 As New SqlClient.SqlConnection(Constr)
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Cmd As New SqlCommand
       With Cmd
           Cmd.Connection = Conne_2020
           Cmd.CommandType = CommandType.Text
           Cmd.CommandText = "UPDATE TBL_STUDENT SET STUDENT_Picture=@STUDENT_Picture Where STUDENT_Id=@STUDENT_Id"
           Cmd.Parameters.Clear()

           'Update PictureBox
           Dim Ms_Photo As New MemoryStream()
           Dim bmpImage As New Bitmap(PictureBox1.Image)
           bmpImage.Save(Ms_Photo, System.Drawing.Imaging.ImageFormat.Jpeg)
           Dim Data_Photo As Byte() = Ms_Photo.GetBuffer()
           Dim PhotoPersonnelle As New SqlParameter("@STUDENT_Picture", SqlDbType.Image)
           PhotoPersonnelle.Value = Data_Photo
           Cmd.Parameters.Add(PhotoPersonnelle)

           Cmd.Parameters.AddWithValue("@STUDENT_Id", SqlDbType.Int).Value = TextBox1.Text

       End With
       Try
           If Conne_2020.State = 1 Then Conne_2020.Close()
           Conne_2020.Open()
           Cmd.ExecuteNonQuery()
           Conne_2020.Close()
           Cmd = Nothing
           MessageBox.Show("تمت بنجاح عملية حفظ الصورة و تعديل البيانات", "تعديل البيانات", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       Catch ex As Exception
           Conne_2020.Close()
           MsgBox(Err.Description, MsgBoxStyle.Information)
       Finally
           If Conne_2020.State = ConnectionState.Open Then Conne_2020.Close()
       End Try
   End Sub
   Private Sub Choose_Picture_From_Computer(Pbox As PictureBox)
       Try
           Dim Ofn As New OpenFileDialog
           With Ofn
               Ofn.AddExtension = True
               Ofn.CheckPathExists = True
               Ofn.CheckFileExists = True
               Ofn.Title = "إختيار الصورة الرمزية"
               Ofn.Filter = "Choose Image (*.PNG; *.JPG; *.GIF; *.JPEG)| *.PNG; *.JPG; *.GIF; *.JPEG | All Files (*.*)|*.*"
               Ofn.FilterIndex = 4
               Ofn.Multiselect = False
               If .ShowDialog = DialogResult.OK Then
                   Pbox.Image = Image.FromFile(.FileName)
               End If
           End With
       Catch ex As Exception
           MessageBox.Show(ex.Message, "خطأ غير متوقّع أثناء تحميل الصّورة", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Choose_Picture_From_Computer(PictureBox1)
   End Sub
End Class