[alfaiz678]

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

[alfaiz678]

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

[حريف برمجة]

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

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

كود حفظ الصورة هذا :
على سبيل المثال ،، اسم الجدول 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

[alfaiz678]

(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

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

[حريف برمجة]

الحمدلله ،،

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

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