ممكن يصححلى الغلط فى البرنامج ده

اخى الفاضل

بدون ان انظر الى الكود فان مشكلة البطئ لديك لها احتمال واحد عندى وهوه انك تسجل الصورة فى نفس الجدول الرئيسى للبيانات

جرب ان تسجل الصورة فى جدول اخر (فرعى) وان تكررت مشكلة البطئ نتحدث من جديد

السلام عليكم

المثال يوجد به خطأ بسيط جدا

هو انا عند القيام بفتح قاعده البيانات يجب ان يتم كتابه الأمتداد الخاص بالقاعده أيضا

Set db = OpenDatabase("db1.MDB")

أرجو ان تكون قد تفهمت الموضوع

وفى المرفقات المثال بعد التصحيح

profile.rar

الغلط ماكانش فى امتداد قاعدة البيانات

الغلط فى فتح الجدول

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

الامر اللى بيدخل الصورة فى الجدول مش زى اللى بيدخل الكتابة

حد يعرف امر ادخال الصورة

الغلط انا موضحاه فى الصورة المرفقة

وشكرا

السلام عليكم

والله انا لما صححت الخطأ الموجود كان البرنامج مبيفتحش بسسبه

ومعتقدتش انه ممكن يفتح من غير ما نكتب اسم القاعده بالأمتداد

ثانيا بالنسبه لمشكله الصوره الأكسيس مينفعش نحفظ جواه ملفات ولكن ممكن نحفظ جواه مسار الملف المراد

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

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

ثم ان الاكسس انا قولت خزنت فيه صور

بس بالداتا كنترول

عايزة بس اعرف الطريقة بالداو

السلام عليك

هذا مثال بسيط على ربط الصوره بقاعده البيانات

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

Pic.rar

مرفق حل المشكلة بال Data Control

وإذا أردت حل للكود

Set rs = db.OpenRecordset("table_profile", 2)

فيجب أن يكون ال References شيئا مثل الصورة المرفقة..

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

فقط المشكلة الرئيسية الموجودة هي معرفتك لكيفية إضافة بيانات في صيغة Bytes لحقل من نوع Binary ...

حيث لا يجوز هذا التعبير:

rs("pic") = Image1.Picture

profile2.rar

انا متشكرة جدا لكن لسه فيه مشكلة

لما بجيب صورة من اى مكان تانى فى الكمبيوتر غير مكان البرنامج

البرنامج لما بيشتغل بعدها ما بيلاقيش الداتابيس

؟؟؟؟؟؟

لأ

لما عملت البرنامج من الاول المشكلة الاخيرة مكانتش موجودة

هو كان فى غلط عندى بس انا مش عارفاه

الامثلة مضبوطة 100%

شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا

السلام عليكم

لحل مشكله انه مش بيلاقى قاعده البيانات

عند ربط قاعده البيانات تستخدمى

Set DB = OpenDatabase(App.Path & "\DB.MDB")

حيث app.path

سوف يجعل مسار قاعده البيانات ثابت مع مسار البرنامج نفسه

الموضوع مش كده يا جينيس

ما انا عاملة الداتابيس كده

لكن لما بستخدم الكومون ديالوج فى ادخال صورة من مكان تانى فى الكمبيوتر

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

المشكلة دى بتحصل مع الداتا كنترول بس

وانا فى حاجات لازم استخدملها الداتا كنترول

الا لو حد يعرف طريقة لربط ال flexgrid بالداتا بيس بالداو

عشان اربطها لازم اعمل الداتاسورس بتاعها مثلا data1

لكن مش بعرف اعملها الا من عمود الخصائص

مش عارفه اربطها بالكود فبستخدم الداتا كنترول

السلام عليكم

انت ممكن تربطى الداتا كنترول برضو بنفس الطريقه

Data1.DatabaseName = App.Path & "\db.mdb"
  Data1.RecordSource = "table name"

وكده هتشتغل بإذن الله

وعلى فكره المشكله ديه واجهتنى وانا بشتغل بالصور

وحلها هو كده جريبه وردى عليا

انت مش واخد بالك من المشكلة

الطريقة اللى انت بتقولها مضبوطة وكل حاجة

لكن لما بجيب صورة من مكان تانى البرنامج بيفتكر ان مكانه بيتغير

المشكلة دى ما بتحصلش فى البرامج اللى فيها داتابيس واحدة بس

او كلهم بنفس الطريقة

لكن بتظهر لما يبقى فيه داتابيس داو وفيها كومون ديالوج

وفيه داتابيس تانية بداتا كنترول فيها app.path

الحل الوحيد اللى لقيته دلوقتى انى الغى الapp.path

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

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

مرسى قوى قوى يا جينيس انا عارفه انى تعبتك معايا

السلام عليكم

ممكن ترفقى المشروع تانى وبإذن الله هصلحه

المشروع كبير جدا واللى انا ارفقته كان مثال صغير

صعب انى ارفق مشروع فى حوالى ستين فورم واقوللك الغلط فين

انا خلاص مش هستخدم app.path

مرسى قوى