ربط ملف صور بقاعدة بيانات

[محسن سرحان]

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

ارجو سرعة حل المشكلة

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

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

ولو في صورة ناقصه اعرفها ازاى

ارجو عمل مثال على اوفيس 2003

وشكرا مقدما

 

[عمر ضاحى]

ممكن ترفع ملف

يكون فيه الفورم علشان نطبق عليه الكود

[د.كاف يار]

ارفق ملف مثال عشان تاخذ عليه التعديل

او استخدم الكود التالي

Dim fso As Object
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim x As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set oFolder = oFSO.GetFolder("مسار المجلد")
 
For Each oFile In oFolder.Files
 
    x = x & vbNewLine & oFile.Name
  
Next oFile

MsgBox x

سيتم عرض اسماء الصور التي في المجلد في صندوق الرسائل

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

تفضل هذا المثال

اختر المجلد

ثم تحميل 

سيتم تحميل كافة اسماء الملفات و اضافة رابط الموقع اليها

Report.accdb

[محسن سرحان]

اولا الف شكر

ثم ارجو وضع رابط 2003

[عمر ضاحى]

6 دقائق مضت, محسن سرحان said:

اولا الف شكر

ثم ارجو وضع رابط 2003

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

 

 

9 دقائق مضت, د.كاف يار said:

ارفق ملف مثال عشان تاخذ عليه التعديل

او استخدم الكود التالي

Dim fso As Object
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim x As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set oFolder = oFSO.GetFolder("مسار المجلد")
 
For Each oFile In oFolder.Files
 
    x = x & vbNewLine & oFile.Name
  
Next oFile

MsgBox x

سيتم عرض اسماء الصور التي في المجلد في صندوق الرسائل

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

تفضل هذا المثال

اختر المجلد

ثم تحميل 

سيتم تحميل كافة اسماء الملفات و اضافة رابط الموقع اليها

Report.accdb 1.09 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

بسم الله ما شاء الله 

ابداع

 

بس ممكن اطلب اضافه صغيره

لو فرضنا ان هناك مجلد اسمه img مع ملف قاعدة البيانات 

وان فى جدول الطلبه رقم جلوس 123456

و فى ملف الصور img هناك صورة اسمها 123456.jpg

كيف اربط بينهم تلقائي بدون ما كل مره اذهب لوضع مسار الصوره 

[محسن سرحان]

الله عليك

تمام هو المطلوب

مع اضافة بسيطة

لو مجلد الصور ناقص صورة او اكثر يبلغنى برسالة ان الطالب رقم كذا لا توجد له صورة

اسف على الاطالة لكن الامر ضروري

[د.كاف يار]

9 دقائق مضت, عمر ضاحى said:

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

 

 

بسم الله ما شاء الله 

ابداع

 

بس ممكن اطلب اضافه صغيره

لو فرضنا ان هناك مجلد اسمه img مع ملف قاعدة البيانات 

وان فى جدول الطلبه رقم جلوس 123456

و فى ملف الصور img هناك صورة اسمها 123456.jpg

كيف اربط بينهم تلقائي بدون ما كل مره اذهب لوضع مسار الصوره 

تم كذلك المرفق يناسبك

19 دقائق مضت, محسن سرحان said:

اولا الف شكر

ثم ارجو وضع رابط 2003

تم هذا اصدار 2003

 

Database2.mdb

[عمر ضاحى]

وهذا ملف للعمل عيه 

Report.rar

[د.كاف يار]

2 دقائق مضت, عمر ضاحى said:

وهذا ملف للعمل عيه 

Report.rar 108.02 kB · 0 downloads

طيب اربط مربع الصورة بالجدول مباشرة 

لأن رابط الصورة بالكامل راح يكون في الجدول

 

 

[محسن سرحان]

ارجو تحويل الرابط لاكسس 2003

وشكرا

[د.كاف يار]

1 دقيقه مضت, محسن سرحان said:

ارجو تحويل الرابط لاكسس 2003

وشكرا

تم التحويل في المشارركة في الأعلى لكن تفضل هذه مرة اخرى

 

Database2.mdb

[محسن سرحان]

الف شكر

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

[د.كاف يار]

اضف المكتبة التالية

 

[محسن سرحان]

الف شكر

الرجع لا يريد ان يضاف وتظهر هذه الرساله

[د.كاف يار]

اعطيني صورة من المكتبات

 

[محسن سرحان]

حاضر

 

[عمر ضاحى]

منذ ساعه, د.كاف يار said:

طيب اربط مربع الصورة بالجدول مباشرة 

لأن رابط الصورة بالكامل راح يكون في الجدول

 

 

الفكره ال انا كنت عاوزها تتلخص فى سطر زي كده

me.img= "\img\" & [No_D] & [.jpg]

بس مش عارف كيف انفذها

هنا بقول للبرنامج روح للفلدر اسم img

وابحث عن ملف الصوره يكون اسمه مطابق لاسم No_D

وبامتداد  .jpg

 

 

 

الفكره قريبه من الموضوع الاستاذ @محمد أبوعبدالله بارك الله فيه

 

تم تعديل يوليو 25, 2021 بواسطه عمر ضاحى

[د.كاف يار]

13 دقائق مضت, محسن سرحان said:

حاضر

 

ماهو اصدار الاوفيس لديك ؟؟

9 دقائق مضت, عمر ضاحى said:

الفكره ال انا كنت عاوزها تتلخص فى سطر زي كده

me.img= "\img\" & [No_D] & [.jpg]

بس مش عارف كيف انفذها

هنا بقول للبرنامج روح للفلدر اسم img

وابحث عن ملف الصوره يكون اسمه مطابق لاسم No_D

وبامتداد  .jpg

 

 

 

الفكره قريبه من الموضوع الاستاذ @محمد أبوعبدالله بارك الله فيه

 

[محسن سرحان]

2003

[د.كاف يار]

6 دقائق مضت, محسن سرحان said:

2003

 

جرب هذا

 

Database2.mdb

[محسن سرحان]

نفس المشكلة اخى العزيز

[د.كاف يار]

جرب المحدد باللون الأحمر

[محسن سرحان]

والله جربت

[د.كاف يار]

اعطيني نسخة فارغة من برنامجك

[د.كاف يار]

خلاص لغينا استخدام المكتبة جرب هذا التعديل

 

Database2.mdb