[السندبااد]

السلام عليكم ورحمة الله وبركاته

جزاك الله ووالديك الفردوس الأعلى أخي الشاكي لله

هذا ما أريده بالضبط ماشاء الله عليك تستحق لقب ملك WPF

نسأل الله تعالى لك التوفيق في امتحاناتك وأن يعيدك إلينا بخير وسلامة

والشكر للأخ أبو إبراهيم على اهتمامه

قمت بتعديل المثال وهو بالمرفقات لكي تعم الفائدة

المثال يسمح بإضافة صورة لقاعدة البيانات بعد أن يقوم بتحجيمها حسب اختيارك كما سترى في الكود

وكذلك أضفت زراً لحذف الصورة من قاعدة البيانات

وأضفت زراً لتصدير الصورة من أداة Image إلى أي مكان يختاره المستخدم

حياكم الله ولا تنسونا من دعاءكم

---

وأخيراً من أراد أن يستدعي صورة من قاعدة البيانات فليضف زراً للمثال الأخير وليضع فيه هذا الكود :

كود :

       da = New OleDbDataAdapter("SELECT photo FROM info WHERE Name ='" & Tb2.Text.Trim & "'", conn)
       da.Fill(ds, "info")

       Dim ImgSource() As Byte = DirectCast(ds.Tables("info").Rows(0)("Photo"), Byte())

       Dim stream As MemoryStream = New MemoryStream()
       stream.Write(ImgSource, 0, ImgSource.Length - 1)
       stream.Seek(0, SeekOrigin.Begin)
       Dim bitmap As New BitmapImage
       bitmap.BeginInit()
       bitmap.StreamSource = stream
       bitmap.EndInit()
       ImgPic.Source = bitmap