منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

في الإنتظار جزاك الله خير

؟؟؟ عسى مانسيتني أخي

انته عملت برنامج وناقص فقط كود حفظ الصورة ؟

أو تريد عمل برنامج كامل ؟

كود حفظ الصورة هذا :
على سبيل المثال ،، اسم الجدول Table1
الحقول : FID, FName, FImage
حقل الصورة نوعه OLE Object

ثم اكمل خطواتك كماهي في التقرير سوف ترى الصورة بإذن الله .

وعلى حسب وقتي اذا كنت فاضي عملت لك مثال وارفقته لك هنا ..

بالتوفيق للجميع .





وهذا مثال انا عملته يحفظ الصورة وجاهز :

http://vb4arb.com/vb/showthread.php?tid=26842

وهذا رابط شرح للتقارير :

http://vb4arb.com/vb/showthread.php?tid=28016

(28-01-19, 10:11 PM)حريف برمجة كتب : [ -> ]انته عملت برنامج وناقص فقط كود حفظ الصورة ؟

أو تريد عمل برنامج كامل ؟

كود حفظ الصورة هذا :
على سبيل المثال ،، اسم الجدول Table1
الحقول : FID, FName, FImage
حقل الصورة نوعه OLE Object

ثم اكمل خطواتك كماهي في التقرير سوف ترى الصورة بإذن الله .

وعلى حسب وقتي اذا كنت فاضي عملت لك مثال وارفقته لك هنا ..

بالتوفيق للجميع .

كود :

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


Using Cmd As New SqlCommand("Insert Into Table1 (FID, Fname, FImage) Values (@FID, @FName, @FImage)", conn)
            conn.Open()
            Cmd.Parameters.AddWithValue("@FID", txta1.Text)
            Cmd.Parameters.AddWithValue("@FName", txta2.Text)
            Cmd.Parameters.AddWithValue("@FImage", picbyte)
           Cmd.ExecuteNonQuery
            Cmd.Dispose()
            conn.Close()
                MsgBox("تم الحفظ", 64, "Program Name")
        End Using

وهذا مثال انا عملته يحفظ الصورة وجاهز :

http://vb4arb.com/vb/showthread.php?tid=26842

وهذا رابط شرح للتقارير :

http://vb4arb.com/vb/showthread.php?tid=28016

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

الحمدلله ،،

طريقة الحفظ اليدوية يحفظه كملف صورة .

بالتوفيق للجميع