تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] شباب طريقة لعمل check على اسم ملف فى فولدر على الكمبيوتر
#1
بسم الله الرحمن الرحيم
السلام عليكم شباب

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

كل الفكره محتاج طريقة لعمل check او فحص على اسم الملف هذا اذا كان موجود بتاريخ اليوم لا يقوم وم بالامر يقوم بعمل رسالة ان الاسم موجود
وشكرا ارجو قد اكون اضحت الفكرة
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:
#2
هذا هو كود قاعدو البيانات
فى حدث عند الاغلاق

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

PHP كود :
Dim oCnn As OleDbConnection

        oCnn 
= New OleDbConnection
        oCnn
.ConnectionString "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LibraryData\LibraryData.accdb;"
        
oCnn.Close()

        
SourceFile "D:\LibraryData\LibraryData.accdb"
        
DestinationFile "D:\DataCopy\" & Format(Date.Now, "yyyy-MM-dd ") & ".accdb"
        FileCopy(SourceFile, DestinationFile)

        oCnn.Open() 
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:
#3
السلام عليكم 
ما قام به الأخ Khodor1985 لن ينتظر شخصا مثلي لانتقاده لأنه و ببساطة أستاذ الجميع 
لكن لدي اقتراح لك أخي الكريم بإضافة خاصية السؤال عما إذا كان المستخدم يريد الحفظ مرة أخرى أم لا 
لأنه قد يقوم بحفظ نسخة احتياطية عن قاعدة بياناته لكن يضطر فيما بعد للتعديل عليها و حسب ما طلبت أنت لا يمكنه أخذ نسخة إحتياطية ثانية و هذا خطأ
لذلك أقترح عليك استخدام طريقة التأكد مع السؤال و إليك الكود المعدل 


PHP كود :
       Dim SourceFile As String
        Dim DestinationFile 
As String

        SourceFile 
"D:\LibraryData\LibraryData.accdb"
 
       DestinationFile "D:\DataCopy" "-" Format(Date.Now"yyyy-MM-dd ") & ".accdb"

 
       If File.Exists(DestinationFileThen
            If MsgBox
("الملف موجود هل تريد حفظه مرة أخرى"vbYesNo) = vbYes Then
                FileCopy
(SourceFileDestinationFile)
 
               MsgBox("تم الحفظ بنجاح")
 
           Else
                Return
            End 
If
 
       Else
            FileCopy
(SourceFileDestinationFile)
 
           MsgBox("تم الحفظ بنجاح")
 
       End If

 
    

تقبل مروري
الرد
تم الشكر بواسطة: khodor1985


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة تعامل هاتف مع حاسب عبر من USB عبد الناصر موسى 3 130 07-08-20, 01:13 AM
آخر رد: عبد الناصر موسى
  [سؤال] طريقة تقسيم مابدخل اليسة بوكس Ali Edal 2022 2 125 06-08-20, 04:33 PM
آخر رد: Ali Edal 2022
  [سؤال] ما هي أسرع طريقة وأضمنها لحذف كل شيء من النص باستثناء الحروف العربية؟ السندبااد 3 135 02-08-20, 05:07 PM
آخر رد: Anas Mahmoud
  [VB.NET] أريد طريقة البحث بين تاريخيين sql server / vb.net 20410 RADOS 4 188 25-07-20, 04:06 AM
آخر رد: RADOS
  طريقة خفيفة لاخفاء كل ملفات مشروعك المهنا 2 205 24-07-20, 09:35 PM
آخر رد: المهنا
Heart [سؤال] ارجوكم اريد طريقة عمل ملف تنفيذي بالفيجول بيسك 2010 soon 4 4,315 19-07-20, 12:07 AM
آخر رد: rochdi191
  [VB.NET] طريقة تثبيت البرنامج في حاسوب واحد rochdi191 9 429 16-07-20, 10:45 PM
آخر رد: rochdi191
  طريقة جمع الوقت لأكثر من 24 ساعة جيولوجي مبتدئ 4 276 16-07-20, 04:35 PM
آخر رد: محمد كريّم
Exclamation [سؤال] يا شباب الي بيقدر يساعد ما يقصر YazanGhassan 1 152 07-07-20, 10:40 PM
آخر رد: ابراهيم ايبو
  [مثال] ممكن طريقة نحويل exe الى apk وجزاكم الله خيرا rochdi191 11 667 07-07-20, 08:40 PM
آخر رد: rochdi191

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم