أنا استخدم مكتبة ADO 2.5
واستخدمت الكود التالي لتخزين الصور في قاعدة البيانات
Dim OpenFile As String Rs.AddNew Dim Sor As String Open OpenFile For Binary As 1 Sor = String(LOF(1), vbNullChar) Get 1, , Sor Rs.Fields(1) = Sor Close 1 Rs.Update
كما قرأت عنه في هذا المنتدةى ولكن واجهتني مشكلة في هذا السطر ولا أدري لماذا
مع أني طبقت مثال عندي بنفس الخطوات ... :(
السلام عليكم ورحمة الله وبركاته
تحية طيبة.......
الخطأ فى الكود السابق هو عدم تحديد قيمة للمتغير OpenFile قم بتحديد مسار الصورة فى هذا المتغير وان شاء الله سيعمل الكود وان لم يعمل فأخبرنى لانى بصراحة لم اجرب الكود وبالتوفيق :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
الحمدالله حلت المشكلة .. فعلا لم احدد المسار
ما شالله عليك ياأستاذي الكبير
اقتباسما شالله عليك ياأستاذي الكبير
شكراً على هذه الثقة الغالية لكن انا لست بالدرجة الكافية من الكفاءة لاصبح استاذاً :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
هذا الموضوع مغلق.