تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مطلوب طريقة التعامل مع HP SCANNER osmana2005 1 79 03-12-19, 11:42 PM
آخر رد: محمد كريّم
  [VB.NET] طريقة اخرى للحفظ EMADSSS 2 132 18-11-19, 07:13 PM
آخر رد: EMADSSS
  [سؤال] ما هي طريقة وضع ملفات ال dll الخاصة بالبرنامج داخل مجلد princelovelorn 4 197 18-11-19, 08:45 AM
آخر رد: princelovelorn
  طريقة عمل KeyGen بالفيجوال بيسك دوت نت EHAB.NET 17 5,740 17-11-19, 04:32 PM
آخر رد: alsouf
  طريقة التفقيط لعملة دينار كويتى وقرائة 3 ارقام بعد العلامة ahmedramzyaish 4 197 15-11-19, 08:25 PM
آخر رد: 3booody
  ماهي طريقة نقل جميع محتويات كومبوبوكس على خلية واحدة معينة في الداتاقريد فيو جيولوجي مبتدئ 3 139 12-11-19, 10:49 AM
آخر رد: علي نوري
  ماهي طريقة تغيير لون خلية معينة في الكريستال ريبورت حسب قيمة معينة جيولوجي مبتدئ 3 164 10-11-19, 02:59 PM
آخر رد: baha
  طريقة تفكيك سفتوير fouadhdfouad 0 134 19-10-19, 09:01 PM
آخر رد: fouadhdfouad
  طريقة حفظ بإسم لجدول موجود في قاعدة البيانات مع بقاء الجدول الأساسي جيولوجي مبتدئ 11 513 15-10-19, 05:00 AM
آخر رد: elgokr
  سؤال حول أفضل طريقة لتصميم برنامج أختيار الأجابة الصحيحة aldery 3 274 14-10-19, 11:18 PM
آخر رد: elgokr

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


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