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

السّلام عليكم و رحمة الله و بركاته

حسب فهمي البسيط أخي الكريم ..

البيانات موجودة مسبقا .. و أحيانا تريد إضافة صورة لاحقًا بعد حفظ السجل بدون صورة

بهذه الحالة .. الأمر سيكون كود لتعديل البيانات و ليس لحفظها

استعمل كمثال لتقريب الفكرة ..

كود :

   Dim Cmd As New OleDbCommand
       With Cmd
           Cmd.Connection = Conne_2020
           Cmd.CommandType = CommandType.Text
           Cmd.CommandText = "UPDATE TBL_STUDENT SET STUDENT_Name=@STUDENT_Name , STUDENT_Picture=@STUDENT_Picture Where STUDENT_Id=@STUDENT_Id"
           Cmd.Parameters.Clear()
       
           Cmd.Parameters.AddWithValue("@STUDENT_Name", OleDbType.VarChar).Value = StudentName
         

   '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 OleDbParameter("@STUDENT_Picture", OleDbType.Binary)
           PhotoPersonnelle.Value = Data_Photo
           Cmd.Parameters.Add(PhotoPersonnelle)

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

       End With
       Try
           If Conne_2020.State = 1 Then Conne_2020.Close()
           Conne_2020.Open()
Cmd.ExecuteNonQuery()
           Conne_2020.Close()
           CmdUpdate = Nothing
       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

تحياتي