طلب مثالين لحفظ الصور خارج قاعده البيانات

[عبدالعليم اسماعيل]

السلام عليكم 

لقد ساعدنى هذا المنتدى فى الكثير من التعلم الشكر للجميع

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

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

مع العلم اننى حاولت ولم اصل الى نتيده  

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

0123.rar يرجى التعديل.rar

[د.كاف يار]

اخي الكريم 

تفضل هذا المثال اخي الكريم

لقد شرحت فيه جميع الاجراءات في داخل الكود المثال سهل للغاية

 

MyImage.zip

[عبدالعليم اسماعيل]

اشكرك لاكن اريد التعديل على المثال الاجنبى ImageExpand على طريقه المثال 0123 هل هذا ممكن اى يتم تقسيم الصور حسب الفئه لانى مهما نقل المجلد بتفضل الصور موجوده بجوار قاعدة البيانات 

ده المسار كامل C:\Users\ostora\Desktop\يرجى التعديل\Test_Images\2_as.jpg

هل من الممكن اختصاره مثل هذا \Test_Images\2_as.jpg

[عبدالعليم اسماعيل]

هل يوجد مساعده ام انى لم اوصل مااريد

[ابو جودي]

يعنى ايه مجموعة حسب النوع ؟

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

ممكن تفهمنى انت عاوز ايه اصلا ..

[عبدالعليم اسماعيل]

اولا اشكرك

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

يعنى ايه مجموعة حسب النوع ؟ تقسيم المجلدات مثل المثال 123 هيكون بالشكل التالى pdf صور مستندات وهكذا

[ابو جودي]

طيب ممكن ترفق البرنامج علشان اعدلك زى ما انت عايز ان شاء الله

وياريت لو كامل بكون مشكور علشان اتعلم منه 

 

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

 

[عبدالعليم اسماعيل]

مافيش عندى مشكله فى مرفقين موجودين فى اول مشاركه عايز اعدل على النسخه الاجنبيه 

اما 

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

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

[ابو جودي]

مرفق النسخة الاجنبية اللى هو 123

[عبدالعليم اسماعيل]

يرجى التعديل.rar321.46 kB · 27 downloads

[عبدالعليم اسماعيل]

ابا جودى

ممكن وضع رابط الصوره فى هذا المثال مع امكانيه عرض الصوره

وضع مسار الصوره.rar

[د.كاف يار]

في ١‏/١١‏/٢٠٢٠ at 17:29, cckills2010 said:

السلام عليكم 

لقد ساعدنى هذا المنتدى فى الكثير من التعلم الشكر للجميع

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

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

مع العلم اننى حاولت ولم اصل الى نتيده  

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

0123.rar 50.11 kB · 23 downloads يرجى التعديل.rar 321.46 kB · 41 downloads

اخي الكريم ماهو المقصود بتقسيم الملفات الى مجلدات ؟؟

 

في حال تريد انشاء ملف بإسم محدد استخدم الكود التالي

Dim fso As Object
Dim fldrname As String
Dim fldrpath As String
Dim fldNewName As String

fldNewName ="اسم المجلد"

Set fso = CreateObject("scripting.filesystemobject")

          fldrpath = CurrentProject.Path & "\" & fldNewName 

          If Not fso.FolderExists(fldrpath) Then
             fso.createfolder (fldrpath)            
          End If

 

و لحفظ نسخة من ملف مجدد في مجلد محدد استخدم الكود التالي

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

================== انشاء مجلد ===========================
Dim fso As Object
Dim fldrname As String
Dim fldrpath As String
Dim fldNewName As String

fldNewName ="اسم المجلد"

Set fso = CreateObject("scripting.filesystemobject")
          fldrpath = CurrentProject.Path & "\" & fldNewName 

          ' هنا شرط في حال لم يجد المجلد في المسار اعلاه سيتم انشاء مجلد جديد
          If Not fso.FolderExists(fldrpath) Then
             fso.createfolder (fldrpath)            
          End If
================== تصفح الملفات  لاختيار الصورة ===========================
Dim Addfile As Object
Dim xFile As String
Set Addfile = Application.FileDialog(3)
With Addfile
  .AllowMultiSelect = False
  .InitialFileName = ""
  .Filters.Clear
  .Filters.Add "All Files", "*.*"
  If .Show = True Then      xFile = Trim(.SelectedItems(1)) 
 Else
      Exit Sub     
  End If
End With
================== حفظ الصورة المختارة ===========================

Dim MyFile, DstFile As String
Dim Syso As Object
Dim IDStudint As String

IDStudint =[هنا حقل رقم هوية الطالب في النموذج]

MyFile = xFile ' مسار الصورة المختارة من متصفح الملفات اعلاه
DstFile = CurrentProject.Path & "\" & fldNewName  & "\" & IDStudint  & ".jpg"      ' هنا مسار الصورة الجديد في المجلد الجديد

DBEngine.Idle
Set Syso = CreateObject("Scripting.FileSystemObject")
Syso.copyfile MyFile, DstFile
Set Syso = Nothing

 

 

[عبدالعليم اسماعيل]

هل ممكن تنفيذ الكود على هذا المثال

تحديث مسار الصور.rar

[عبدالعليم اسماعيل]

في ٢٣‏/١٠‏/٢٠٢٠ at 09:29, husamwahab said:

هل من حل

 

تم تعديل نوفمبر 7, 2020 بواسطه cckills2010