[حريف برمجة]

تم التعديل بنجاح ،،

كود التعديل كامل : 

كود :

If (PictureBox1.Image Is Nothing) Then
           MsgBox("قم بإدراج الصورة أولاً", 64, "Program Name")
           Exit Sub
       End If

       If TXTID.Text = "" Then
           MsgBox("قم بإدخال البيانات أولاً", 64, "Program Name")
           TXTID.Focus()
           Exit Sub
       End If
       If TextBox1.Text = "" Then
           MsgBox("قم بإدخال البيانات أولاً", 64, "Program Name")
           TextBox1.Focus()
           Exit Sub
       End If
       If TextBox2.Text = "" Then
           MsgBox("قم بإدخال البيانات أولاً", 64, "Program Name")
           TextBox2.Focus()
           Exit Sub
       End If
       If TextBox3.Text = "" Then
           MsgBox("قم بإدخال البيانات أولاً", 64, "Program Name")
           TextBox3.Focus()
           Exit Sub
       End If

       Dim ms As New System.IO.MemoryStream
       PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
       Dim picbyte() As Byte = ms.GetBuffer

       Using Cmd As New OleDbCommand("Update Table1 Set car_kind=@car_kind, car_color=@car_color, car_model=@car_model, car_image=@car_image where car_id=" & TXTID.Text & "", conn)

           Cmd.Parameters.AddWithValue("@car_kind", TextBox1.Text)
           Cmd.Parameters.AddWithValue("@car_color", TextBox2.Text)
           Cmd.Parameters.AddWithValue("@car_model", TextBox3.Text)
           Cmd.Parameters.AddWithValue("@car_image", picbyte)

           conn.Open()

           Cmd.ExecuteNonQuery()

           Cmd.Dispose()
           conn.Close()

           MsgBox("تم التعديل", 64, "Program Name")

           Deltxt()
       End Using