هل من حل شاف واف لحفظ الصورة في قاعدة البيانات

بصراحة الف شكر انا حاولت ولم انجح شكل العملية صعبة وانا كلفتكم الجهد والوقت الف شكر

أخي المهنا

السلام عليكم

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

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

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

تحياتي لك ولجميع المشاركين .

والله الف شكر وجزاك الله الف خير بس انا حسيت ان العملية صعبة وما حبيت ازعجكم

الإخوة SAA و المهنا

أين المثال الذي تتحدثون عنه لم أجد أي رابط؟؟؟؟

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

Save Picture.rar

ياليت تحلون لنا المشكلة في الكود

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

ردا على سؤال الأخت دينا

اقتباس

خي SAA

هل يمكن إدراج الصور بتقرير داتا ريبورت دون داتا انفيرومينت؟؟؟؟

يمكنك وضع أى صورة فى أى مربع صور فى الداتا ريبورت لو راعيتى موقع مربع الصورة فى أى سيكشن واسم مربع الصوره وأيضا اسم ملف للصورة ومسارها

كما فى المثال التالى:

Set MyReport.Sections("Section2").Controls("imgEmp").Picture = LoadPicture(App.Path & "\Photos\EmpName.bmp")

هذا ردا على السؤال الذى طرحتيه

وربنا يوفقكم جميعا

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

أخى المهنا

شكلك بدأت تيأس - لا يأس مع الحياه يا أخى - تجلد

أعطيك فكرتين والتى تعجبك فيهما نسير خلفها والله من وراء القصد وهو يهدى السبيل

الأولى:

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

فقط ضعها فى مجلد مستقل واستدعها بـ LoadPicture بطريقة تناسب برنامج

مثلا فى برنامج أردت أن أدرج صورة للموظف ضمن صفحة بياناته

فجعلت اسم صورته مكون من حروف Emp ثم رقمه ثم .bmp ووضعته فى مجلد مستقل

وكنت أستدعيه لمربع الصور ببساطه بالسطر التالى

Set imgEmp.Picture = Nothing
  Dim PicName As String
  PicName = App.Path & "\Photos\Emp" & cmdEmpNum.Text & ".bmp"
  If Dir(PicName) <> "" Then
   imgEmp.Picture = LoadPicture(PicName)
  End If

هذا الحل أسرع وأرحم آلاف المرات من تخزين هذه الصور فى قاعدة بيانات - ستكتشف هذا مع التجربة

أما إن كنت مصرا على حفظها فى قاعدة البيانات - وأنا أأيدك فى هذا فقط إن كانت الضرورة ملحة لذلك - كأن تخزن مثلا توقيعا وتريد طباعته على نموذج أو تقرير ليكتسب الشكل الخطى للتوقيع ( لأننا مازلنا مقيدين بالورق والأسلوب الورقى فى التعامل)

فإليك الحل الثانى:

لسوء حظى معك أنى لم أجربه ولا أملك مثالا عليه الآن

ولكن فكرته ببساطه أن تربط مربع الصورة بقاعدة البيانات DataBinding وبذلك تغير البيانات (الصورة) فيها سيتم حفظه بحقل معد لتخزين الصور فى قاعدة البيانات OLE مع أكسس أو bit مع SQL Server

إن أعجبك أحد هذين الحلين نستطيع أن نتوغل وراءه

ولكن أعذرنى لعدم دخولى على المنتدى بكثره هذه الأيام لانشغالى

وربنا يوفق الجميع لما يحبه ويرضاه

الاخ العزيز abulyaman مع جزيل الشكر

انا ارى ما تراه انت مناسبا

الأولى:

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

فقط ضعها فى مجلد مستقل واستدعها بـ LoadPicture بطريقة تناسب برنامج

مثلا فى برنامج أردت أن أدرج صورة للموظف ضمن صفحة بياناته

فجعلت اسم صورته مكون من حروف Emp ثم رقمه ثم .bmp ووضعته فى مجلد مستقل

انا موافق على هذه الفكرة وياليت نتوغل مع الف مليون شكر

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

إذا فقد وصلتك الفكرة وعليك التطبيق

ولو وقفت معك خطوة تجدنى بجوارك بعون الله

والله من وراء القصد وهو يهدى السبيل

هل من الممكن مثال مبسط على الاقل

للرفع