ارجو المساعدة في احضار صورة للفورم

السلام عليكم

شكرا اخوي الكود ممتاز بس ولو فيها ازعاج اريد ان اعرف الكود المناسب لعمل تعديل لحقل الصورة

وشكرا لتعاونك

ياهلا فيك لا شكر على واجب

واجب علي مساعدة اخواني الكرام وانساتي الجميلات (على قول الاستاذ تركي العسيري :D )

طبعاً لابد قبل حفظ اي صورة في قاعدة البيانات من تحويل الصورة الى نوع بايت ومن ثم نستطيع حفظها

كالتالي :

 Dim imgTemp As Image = imgLogo.Image
            Dim byteBLOBData() As Byte = Nothing
            If Not IsNothing(imgTemp) Then
                Dim ms As MemoryStream = New MemoryStream
                imgTemp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
                ReDim byteBLOBData(ms.Length - 1)
                ms.Position = 0
                ms.Read(byteBLOBData, 0, ms.Length)
         End If

الان نقوم بعملية الحفظ :

 Dim objcmd As New SqlCommand(@img, objCon)
            Dim pic As SqlParameter = New SqlParameter("@img", SqlDbType.Image)
            pic.Value = byteBLOBData
            objcmd.Parameters.Add(pic)
             objcmd.ExecuteNonQuery()

بقي الان انهاء كتابة الستورد بروسجر المناسب لهذه العملية

طبعاً تحديد العملية هل هي ادراج او تعديل تتم في الاستورد بروسجر

وبهذا نكون قد انتهينا من عملية التخزين الممله

والله الموفق

السلام عليكم

بصراحة ماقدرت افهم الذي كتبته على العموم انا عملت الكود الذي كتبته لي لاحضر الصورة للفورم

تم عملت هذا الكود لحفظ الصورة في حقل الصورة في قاعدة البيانات

Dim dt As DataTable

Dim dr As DataRow

dt = ds.Tables("a")

dr = ds.Tables("a").NewRow

Dim m As New System.IO.MemoryStream()

pic.Image.Save(m, pic.Image.RawFormat)

Dim f() As Byte

f = m.GetBuffer()

m.Close()

dr.Item(1) = f

ds.Tables("a").Rows.Add(dr)

Dim x As New SqlCommandBuilder(da)

da.Update(ds, "a")

ولكي احضر الصورة من قاعدة البيانات الى الفورم استعملت هذا الكود

Dim f() As Byte

f = r.Item(1)

f = ds.Tables("a").Rows(0).Item("picture")

Dim m As New System.IO.MemoryStream(f)

pic.Image = Image.FromStream(m)

وسؤالي هو اذا اريد ان اعدل الصورة التي احضرتها واحفظها مرة اخرى كيف ستكون جملة التعديل

ومرة اخرى سامحني على الازعاج بس لان التعامل مع الصور تاعبني

وشكرا لتعاونك