08-08-13, 01:38 AM
السلام عليكم و رحمة الله و بركاته
إخوتي الأعزاء في هذا المنتدى الغالي علينا أشرح لكم بإختصار الموضوع :
لدي جدول واحد في قاعدة البيانات يحتوي على الحقول التالية : id - name - age - photo
عمليات الإضافة و الحذف و الحفظ تتم بدون مشاكل و لكن المشكل هو عند التعديل حيث جملة SQL صحيحة و قد استعملت المعاملات (parameters) حيث يطلب مني visual basic 2010 أن ملف الصورة غير موجود مع أني لم أعدل على الصورة بل عدلت مثلاً على الإسم و السن و تركت الصورة كما هي بدون تعديل فما الحل أرجوكم ساعدوني جزاكم الله خير الجزاء و هذا هذا كود التعديل :
أولاً كود تحميل الصورة :
ثانياً كود التعديل :
إخوتي الأعزاء في هذا المنتدى الغالي علينا أشرح لكم بإختصار الموضوع :
لدي جدول واحد في قاعدة البيانات يحتوي على الحقول التالية : id - name - age - photo
عمليات الإضافة و الحذف و الحفظ تتم بدون مشاكل و لكن المشكل هو عند التعديل حيث جملة SQL صحيحة و قد استعملت المعاملات (parameters) حيث يطلب مني visual basic 2010 أن ملف الصورة غير موجود مع أني لم أعدل على الصورة بل عدلت مثلاً على الإسم و السن و تركت الصورة كما هي بدون تعديل فما الحل أرجوكم ساعدوني جزاكم الله خير الجزاء و هذا هذا كود التعديل :
أولاً كود تحميل الصورة :
كود :
Private Sub btnLoad_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
With OpenFileDialog1
.CheckFileExists = True
.ShowReadOnly = False
.Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
.FilterIndex = 2
If .ShowDialog = DialogResult.OK Then
' Load the specified file into a PictureBox control.
pictProfPhoto.Image = Image.FromFile(.FileName)
End If
End With
ثانياً كود التعديل :
كود :
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
Dim cmdUpdate As New SqlCommand
cmdUpdate.Connection = cn
cmdUpdate.CommandText = "update profs set name=@name,age=@age,photoprof=@photop where idprof=@idp"
cmdUpdate.Parameters.Clear()
Dim pr_id As New SqlParameter("@idp", SqlDbType.Int, 4)
pr_id.Value = CType(txtIDP.Text, Integer)
cmdUpdate.Parameters.Add(pr_id)
Dim pr_name As New SqlParameter("@name", SqlDbType.NVarChar, 50)
pr_name.Value = txtname.Text
cmdUpdate.Parameters.Add(pr_nomprof)
Dim pr_age As New SqlParameter("@age", SqlDbType.NVarChar, 50)
pr_age.Value = txtage.Text
cmdUpdate.Parameters.Add(pr_prenprof)
Dim pr_photoprof As New SqlParameter("@photop", SqlDbType.Image)
pr_photoprof.Value = GetImageByte(OpenFileDialog1.FileName)
'pr_photoprof.Value = picProf.Image
cmdUpdate.Parameters.Add(pr_photoprof)
If cn.State Then cn.Close()
cn.Open()
cmdUpdate.ExecuteNonQuery()
cn.Close()
cmdUpdate.Dispose()
MsgBox("تمت عملية التعديل و الحفظ بنجاح")
End Sub