الاستعلام عن بيانات موجودة في قاعدة بيانات خارجية

[osamaabdultawab@gmail.com]

السلام عليكم.. أحبتي الكرام... لم أشارك بموضوع منذ اشتراكي في موسوعة الاكسس اوفسينا.. 

ولكني استفدت من هذا المنتدى ما أم القاه في الكتب والجامعات. 

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

حاليا اعمل على قاعدة بيانات أرشفة بيانات جمركية وواجهتني مشكلة بأن قاعدة البيانات وصل حجمها إلى ٢جيجا ولم تعد تقبل إضافة بيانات جديدة. 

ولهذا قمت بالفراغ البيانات الأولى إلى قاعدة مستقلة والاستمرار بإدخال البيانات الجديدة في القاعدة القديمة. 

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

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

[jjafferr]

وعليكم السلام 🙂

 

46 دقائق مضت, osamaabdultawab@gmail.com said:

بأن قاعدة البيانات وصل حجمها إلى ٢جيجا

 

1. انا لم اشاهد قاعدة بيانات اكسس يصل حجمها الى 2 جيجا ، إلا اذا فيها مرفقات !!

فإذا فيها مرفقات ، فيجب عليك اخراج هذه المرفقات من قاعدة البيانات ، وحفظها في احد مجلدات الوندوز :

.

 

2. اذا بالفعل برنامجك مافيه مرفقات ، واستعملت المرفق لتصغير حجمه :

 

.

ولا يزال في حدود 2 جيجا ، فيجب عليك نقل قاعدة بياناتك الى SQL Server ، فبياناتك خارج نطاق الاكسس ، وسيكون الاكسس بطيء في العمل.

 

جعفر

[osamaabdultawab@gmail.com]

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

ومازال يعطيني رسالة بأنه لا يمكن الاتصال بقاعدة البيانات او ان القاعدة تالفا.. 

ولذلك قمت بالفراغ القاعدة والبدء من جديد. 

فهل بالإمكان حل هذه المشكلة بحب لفضل

[osamaabdultawab@gmail.com]

اشكرك اخي جعفر.. سأقوم بطبيق حلك المقترح.واعتقد بانه الحل الاسهل والأفضل كذلك. ويكفيني تجاوبك السريع 

ارجو منك إرسال الملف المرفق فلا استطيع ايجاده وتحمله. 

اخوك أسامة الشرجبي

تحياتي 

[osamaabdultawab@gmail.com]

هناك ملاحظة نسيت اذكرها.. 

برنامجي معتمد كليا على أداة تسمى DbPix للتعامل مع الصور (أرشفة الصور) ولا تظهر المرفقات في اي مجلد وتحفظ في نفس الاداة

فهل هذا الحل سيتعامل مع المرفقات 

[محمد سلامة]

35 دقائق مضت, osamaabdultawab@gmail.com said:

هناك ملاحظة نسيت اذكرها.. 

برنامجي معتمد كليا على أداة تسمى DbPix للتعامل مع الصور (أرشفة الصور) ولا تظهر المرفقات في اي مجلد وتحفظ في نفس الاداة

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

تحياتي

[osamaabdultawab@gmail.com]

صحيح كلامك اخي محمد سلامة

بهذة الاداة لا يوجد مجلد خاص لحفظ الصور وتحفظ في نفس الاداة

إليك نسخة فارغة من البرنامج

كلمة السر 

    User name :Admin

Password : 1595

 

FREE ZOON CUSTOMES.zip

تم تعديل أبريل 15, 2020 بواسطه jjafferr
تم حذف المرفق الاصل بسبب احتوائه كامل البرنامج، وارفاق الجزء المفيد

[محمد سلامة]

استاذ جعفر @jjafferr

لماذا تم حذف المرفق .. هل به شئ مخالف

[jjafferr]

تم ارفاق الملف مرة اخرى ، بعد التعديل 🙂

 

الاخ اسامة ارفق البرنامج كاملا ، بينما نحن بحاجة الى جداول ونماذج معينة ، علشان نعرف سبب حجم البرنامج 🙂

 

جعفر

[osamaabdultawab@gmail.com]

صحيح كلامك اخي محمد سلامة

بهذة الاداة لا يوجد مجلد خاص لحفظ الصور وتحفظ في نفس الاداة

إليك نسخة فارغة من البرنامج

كلمة السر 

    User name :Admin

Password : 1595

اخي محمد.. 

المرفقات عبارة عن بيانات جمركية. 

صورة سكانر للبيانات الجمركية (أوراق)  والجهة حكومية أمنية 

 

البيان الواحد يحتوي على عشرة أوراق يتم نسخة بالاسكانر. ولذلك تأخذ حجم كبير

[osamaabdultawab@gmail.com]

بإمكانك عمل سجلات بواسطة الإسكانر وتجربة البرنامج. وبكل سهولة. 

هل هناك برنامج يقوم بنسخ الأوراق بالاسكانر لعدة أوراق بنفس الوقت وحفضها بملف pdf.. سيكون ذلك افضل وأصغر حجما

[osamaabdultawab@gmail.com]

البرنامج يمكنه استخدام الإسكانر او إرفاق الصور من المحفوظة مسبقا.. 

ولا تحفظ الصور في مجلد محدد وإنما في داخل الاداة نفسها. 

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

حاليا البرنامج حجمه مع البيانات ٢جيجا.. ولا يسمح لي بإدخال بيانات أخرى بعد هذا الحجم.. 

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

[osamaabdultawab@gmail.com]

اخي محمد سلامة 

مرفق لكم البرنامج مع جزء من البيانات وقد حاولت ضغط المرفق لاتمكن من إرساله وقد وصلت إلى هذا العدد من البيانات

تحياتي

FREE ZOON CUSTOMES.7z

[osamaabdultawab@gmail.com]

اخوتي محمد وجعفر.... 

ماهي الطريقة في جعل الإسكانر يقوم بسحب كافة  pdfالأوراق المتوفرة عليه وحفضها بصيغة

بهذه الطريقة يمكنني حفظ الأوراق المسحوبة بصيغة أصغر وتوفير المساحة المهدرة 

[jjafferr]

السلام عليكم 🙂

 

1. الاداة DbPix تحفظ المستندات في الجدولين التاليين:

.

بصيغة Blob في الحقول اعلاه في الجدولين ، والحقول من نوع OLE ، وهي احد انواع حقول المرفقات (واستخدمتها انا في برنامجي: هدية: إحمل برامجك داخل قاعدة بياناتك ) ،

 

2.

2 ساعات مضت, osamaabdultawab@gmail.com said:

البرنامج يمكنه استخدام الإسكانر او إرفاق الصور من المحفوظة مسبقا..

بالاخير.. اذا هناك نظام يقوم بارشفة الصور من الإسكانر مباشرة وتحويلها إلى ملف pdf سيفي بالغرض وممكن استبدله مكان هذه الاداة

 

من ضمن اعدادات اجهزة الاسكانر ، حفظ الملفات بمجموعة صيغ ، سواء الاوراق الفردية بصيغة jpg او bmp  او الاوراق الجماعية بصيغة pdf او tif  ،

لهذا السبب فيجب ان تضبط الاسكانر علشان يصور الاوراق بصيغة pdf ، واللي بيأخذ جميع الاوراق اللي في الجهاز ، سواء ورقة واحدة او عدة اوراق ،

وكذلك للأرشفة ، تأكد ان دقة التصوير 300dpi (على الاقل) ، ونقاوء الصورة 100% (بدون ضغط) ،

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

ومن ثم بزر من النموذج ، يتم حفظ الملف في مكانه الصحيح ، وحذفه من مجلد سكانر المشاركة ، بحيث يكون مجلد سكانر المشاركة دائما فارغ ، إلا لما تعمل سكان 🙂

 

 

جعفر

 

 

 

[osamaabdultawab@gmail.com]

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

وقد ارفقت ملحق اخر بالبيانات ولم أتمكن من ابقاء الجزء المفيد منه. 

تحياتي

سأقوم بتجربة الحل وانا متأكد بأنه الحل المناسب والأفضل.. 

مرة ثانية اشكر كل من شارك في حل المشكلة والقائمين على بقاء هذا المنبر للفائدة العامة.. 

ودمتم بسلام.. 

اخوكم أسامة الشرجبي

[jjafferr]

هل جميع الملفات في برنامجك من نوع pdf ؟

اذا لا ، كيف لنا ان نعرف صيغة الملف ؟

[osamaabdultawab@gmail.com]

Pdf لا توجد ملفات 

ولكن ان امكن حفظ الصور من الملف مباشرة بصيغة بي دي اف تمام. 

ملاحظة لم أتمكن من تحميل مل blob

[jjafferr]

ما هي صيغة الملفات التي كنت تأخذها عن طريق DbPix ، هل كانت jpg او pdf ؟

وها اسم الملف كان بالانجليزي او العربي ؟

[osamaabdultawab@gmail.com]

21 hours ago, jjafferr said:

ما هي صيغة الملفات التي كنت تأخذها عن طريق DbPix ، هل كانت jpg او pdf ؟

 

اخي الكريم جعفر.. 

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

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

فهذا البرنامج سيحل مشكلتي السابقة كاملة

ارجو تحميل المرفق والاطلاع

تحياتي 

multimage-archive.rar

[jjafferr]

السلام عليكم 🙂

 

للعلم ، الاداة DBPix تحفظ فقط ملفات الصور ، بصيغة Blob في حقل OLE في جداولك.

 

لإخراج جميع الصور من برنامجك وحفظها في مجلد ، احفظ هذه الوحدة النمطية في برنامجك بإسم mod_Blob_to_File :

Option Compare Database
Option Explicit

'
'https://www.utteraccess.com/forum/index.php?s=bb0cc83dcb349316e03115efcd24acf4&showtopic=1688201&view=findpost&p=1688652
'
'modified by jjafferr
' 16-4-2020
'
Public Declare Function apiCreatePath Lib "Imagehlp.dll" _
                 Alias "MakeSureDirectoryPathExists" (ByVal strPath As String) As Long
'

Public Function ExtractFiles()
    
    Dim strPath As String, tbl_Name As String
    

    strPath = CurrentProject.Path & "\myFiles\"
    
    apiCreatePath strPath
    
  'tblItemsTracks
    tbl_Name = "tblItemsTracks"
    
    With CurrentDb.OpenRecordset(tbl_Name)
        Do Until .EOF
            
            If Len(![Picture] & "") <> 0 Then
                DownloadFieldToFile ![Picture], strPath & tbl_Name & "_" & ![TNo] & "_" & ![Id] & "_Picture.jpg"
                DownloadFieldToFile ![Thumbnail], strPath & tbl_Name & "_" & ![TNo] & "_" & ![Id] & "_Thumbnail.jpg"
            End If
            
            .MoveNext
        Loop
    End With
        
  'tblItemsTracks
    tbl_Name = "tblItemSubImagesT"
    
    With CurrentDb.OpenRecordset(tbl_Name)
        Do Until .EOF
            
            If Len(![imgMain] & "") <> 0 Then
                DownloadFieldToFile ![imgMain], strPath & tbl_Name & "_" & ![ItemId] & "_" & ![ImageId] & "_imgMain.jpg"
                DownloadFieldToFile ![imgThumb], strPath & tbl_Name & "_" & ![ItemId] & "_" & ![ImageId] & "_imgThumb.jpg"
            End If
            
            .MoveNext
        Loop
        
        .Close
    End With
    
    MsgBox "Done"
    
End Function


Private Sub DownloadFieldToFile(ByRef objFieldName As Object, _
                                ByVal strFileName As String)
    
    Dim intFileNum As Integer
    
    intFileNum = FreeFile
    
    Open strFileName For Binary As intFileNum
    Put intFileNum, , objFieldName.GetChunk(0, objFieldName.FieldSize)
    Close intFileNum
    
End Sub

.

لتشغيل هذه الوحدة النمطية ، اكتب التالي (رجاء الملاحظة الى ان علامة الاستفهام بالانجليزي وليست بالعربي) ، في النافذة اسفل نافذة الكود (لفتحها اضغط على Ctrl+G)  :

 

?ExtractFiles

 

هذه الوحدة النمطية ستعمل لك مجلد جديد اسمه myFiles داخل مجلدك ، وستحفظ الصور من الجدولين فيه ،

لهذا السبب ، رجاء استعمل نسخة من برنامجك للقيام بهذا العمل ، وتأكد بأنه لديك مساحة فارغة على الهارددسك اكثر من 2 جيجا ،

وقبل ان تستخدم برنامجك كاملا ، رجاء استعمل ملفات جزء من برنامجك لاصل ، حتى نتفق على اسماء الملفات ، فأنا حاليا حفظت الملفات هكذا :

.

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

 

 

اما بالنسبة لحفظ ملفات الاسكانر بصيغة pdf ، فهناك 3 طرق :

1. الطريقة الاسهل والتي اخبرتك عنها :

في ١٥‏/٤‏/٢٠٢٠ at 22:13, jjafferr said:

لهذا السبب فيجب ان تضبط الاسكانر علشان يصور الاوراق بصيغة pdf ، واللي بيأخذ جميع الاوراق اللي في الجهاز ، سواء ورقة واحدة او عدة اوراق ،

وكذلك للأرشفة ، تأكد ان دقة التصوير 300dpi (على الاقل) ، ونقاوء الصورة 100% (بدون ضغط)

 

2. ان تستعمل الكود في التحكم في الاسكانر (ومنها الطريقة التي طلبتها في تعديل كود المرفق) ، فلا تتعب نفسك ، فلا توجد طريقة سهلة ،

3. ان تجعل الاسكانر يعمل لك صور بصيغة jpg ، وبعدها نستخدم برنامج خارجي ليضم جميع هذه الصور الى ملف واحد بصيغة pdf وطبعا ممكن التحكم بهذا برمجيا ، ولكن العمل يطول والانسب هو الطريقة رقم1 اعلاه :

في ١٥‏/٤‏/٢٠٢٠ at 22:13, jjafferr said:

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

ومن ثم بزر من النموذج ، يتم حفظ الملف في مكانه الصحيح ، وحذفه من مجلد سكانر المشاركة ، بحيث يكون مجلد سكانر المشاركة دائما فارغ ، إلا لما تعمل سكان 🙂

.

 

 

طبعا بعد ان تخرج الصور من برنامجك ، يجب ان تحذف حقول OLE من جداولك (لا تنسى انك تستعمل نسخة من برنامجك) ، وبعدها اعمل للبرنامج ضغط واصلاح ، وسيرجع الى حجمه الصحيح 🙂

ويجب عليك ان تعيد العمل على برنامجك (ونصيحة ، لا تستعمل الاداة DBPix مرة اخرى في البرنامج ، فانت محتاج الى اظهار الصور فقط في مربع الصور في النموذج/التقرير) ،

او اظهر ملف pdf في النموذج/التقرير :

 

جعفر

 

[jjafferr]

كما أنه ممكن تخبرنا اي من الصور اللي ممكن ندمجها مع بعض لعمل ملف pdf جاهز للخطوة التالية😊

 

جعفر

[osamaabdultawab@gmail.com]

عملت نفس الخطوات السابقة وتمت العملية واعطاني رسالة Done. 

لكن الصور في المجلد الجديد لم استطيع فتحها واذا فتحتها لا تظهر اي صورة فيها. 

 

فما السبب في ذلك

[jjafferr]

أرفق هنا صورتين من الصور التي استخراجها البرنامج،

كذلك اعمل صورة لشاشة المجلد، و ارفقها هنا 😊

 

جعفر

[jjafferr]

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

 

 

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

لهذا السبب اردتك ان ترفق بضع منها حتى افحصها 🙂

 

جعفر