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

يمكن من خلال هذه الفكره التعامل مع اي ملف وليست الصور فقط

ياريت يا جماعه تقولو رأيكم في المثال ده ولو حد عنده فكرة تعديل يقولها وان شاء الله اعملها :hmm: :hmm:

45 تحميل ولا يوجد اي تعليق :excl:

بدون تعليقات لن تكون هناك فائده او تشجيع لاي عضو ان يرفع اي مشروع

السلام عليكم

أخي الكريم مثالك رائع ولكن لا يوجد ردود لأنك معقد المثال شوي

يعني المبتدئ يحمل المثال ولا يستطيع فهم جميع الكودات :wacko:

أنت نفسك قد تواجه صعوبة في قراءة هذا الكود إذا قرأته بعد فترة زمنية

إذا أردت أن يكون مثالك واضح عليك توضح كل ضغيرة وكبيرة في المثال

أنت أنشأت الإجراء RRefresh ولم تشرحه فالمبرمج المبتدئ يكتب في سطور برنامجه RRefresh وإذ تنفجر في وجه رسالة الخطأ :blink:

لماذا :ohmy: لأن الإجراء RRefresh ليس موجود في برنامجه . بهذه الطريقة يظن أن المثال خاطئ وهكذا تكون قد أضعت جهدك سداً

ونحن بالتأكيد لا نيرد أن يضيع جهد أياً منا :happy:

هل أدركت الآن لماذا يتم التحميل ولا يتم الرد

أرجو منك إعادة النظر في هذا المثال ونحن بإنظار المزيد من إبداعاتك :)

وعلى كل حال أشكرك على هذا المثال :clapping:

شكرا يا عبد الله علي توضيحك

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

وان شاء الله سوف اقوم بشرح فكرة المثال

للعلم انا كمان لسه مبتدئ يا اخ عبدالله ولم اري ان المثال معقد عندما حصلت عليه

وعموما كل عام وانت بخير

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

1 _ اختيار الصوره باستخدام CommonDialog1

والكود الخاص بها في زر استعراض

2 _ تحويل صيغة الصوره الي بينري الملف وحفظها في قاعدة البيانات وده الكود

Private Sub Cmd_Save_Click()
        With datars
            .AddNew
                                         Dim Sor As String
                Open OpenFile For Binary As 1
                Sor = String(LOF(1), vbNullChar)
                Get 1, , Sor
                ![Fld_Picture] = Sor
                Close 1
                        .Update
                 End With
End Sub

3_ نيجي للجزء بتاع RRefresh وتم وضع الكود في الاجراء ده لعدم تكرار كتابة الكود

برضو اللي يهمنا من هذا الجزء ازاي نستدعي الصوره من قاعدة البيانات

وتحولها الي ديجتال حتي نستطيع التعامل معها وده الكود

Public Sub RRefresh()
With datars

If ![Fld_Picture] <> "" Then
Dim Sor As String
Open App.Path & "\Test.jpg" For Binary As 1
Sor = ![Fld_Picture]
Put 1, , Sor
Close 1


End Sub

انا عارف ان الشرح مش احترافي بس يارب يوضح الفكره

لا تنسونا بالدعاء