(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