[العيدروس]

امسية سعيدة للجميع.اخواني لو ممكن تساعدوني بتصحيح الخطأ في هذا الملف
نقلت واتبعت وغيرت حرفيا ماوجدته باحد الدروس لكن لم يشتغل المثال.لو ممكن تنويري بمكان الخطاأ.و بارك الله في الجميع.

[سعود]

وجدت انك استخدمت imports داخل كلاس الفورم و هذا خطا.
الـimports يكون اعلى الكلاس.

---

كود :

       Dim str As New MemoryStream
       pic.Image.Save(str, Imaging.ImageFormat.Jpeg)
       Dim con As New OleDbConnection(conString)
       Dim cmd As New OleDbCommand("INSERT INTO Pictures (ThePicture) VALUES (@ThePicture)", con)
       cmd.Parameters.AddWithValue("@ThePicture", str.ToArray)
       con.Open()
       cmd.ExecuteNonQuery()

كود حفظ الصورة

---

مثال بسيط اسهل من الذي عملته اتمنى يلبي المطلوب.

[العيدروس]

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

[طـلال]

(28-10-17, 05:21 AM)سعود كتب : وجدت انك استخدمت imports داخل كلاس الفورم و هذا خطا.
الـimports يكون اعلى الكلاس.

---

كود :

       Dim str As New MemoryStream
       pic.Image.Save(str, Imaging.ImageFormat.Jpeg)
       Dim con As New OleDbConnection(conString)
       Dim cmd As New OleDbCommand("INSERT INTO Pictures (ThePicture) VALUES (@ThePicture)", con)
       cmd.Parameters.AddWithValue("@ThePicture", str.ToArray)
       con.Open()
       cmd.ExecuteNonQuery()

كود حفظ الصورة

---

مثال بسيط اسهل من الذي عملته اتمنى يلبي المطلوب.

سعود أنا أستخدم سكيول سيرفر وهي تعمل على سيرفر مساحه 4 تيرا 
هل تسبب بطأ في البرنامج حفظها بالقاعده مع العلم أني أٍتخدم sql server

[سعود]

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

هل تسبب بطأ في البرنامج حفظها بالقاعده مع العلم أني أٍتخدم sql server

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