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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من طريقة لحساب الحروف بهذه الطريقة seif mohamed 1 95 21-01-20, 02:01 AM
آخر رد: seif mohamed
  ماهي طريقة الطباعة مباشرة من الكريستال ريبورت بدون فتحه جيولوجي مبتدئ 2 106 10-01-20, 01:47 AM
آخر رد: جيولوجي مبتدئ
  تعريف طابعة الكاشير على الكمبيوتر Rabeea Qbaha 1 3,647 08-01-20, 07:16 PM
آخر رد: علي العوجري
  طريقة عمل زر تراجع عن الامر undo احمد خطاب 1 452 13-12-19, 02:20 AM
آخر رد: alnasser
  [VB.NET] مطلوب طريقة التعامل مع HP SCANNER osmana2005 1 161 03-12-19, 11:42 PM
آخر رد: محمد كريّم
  [VB.NET] طريقة اخرى للحفظ EMADSSS 2 189 18-11-19, 07:13 PM
آخر رد: EMADSSS
  [سؤال] ما هي طريقة وضع ملفات ال dll الخاصة بالبرنامج داخل مجلد princelovelorn 4 264 18-11-19, 08:45 AM
آخر رد: princelovelorn
  طريقة عمل KeyGen بالفيجوال بيسك دوت نت EHAB.NET 17 5,994 17-11-19, 04:32 PM
آخر رد: alsouf
  طريقة التفقيط لعملة دينار كويتى وقرائة 3 ارقام بعد العلامة ahmedramzyaish 4 298 15-11-19, 08:25 PM
آخر رد: 3booody
  ماهي طريقة نقل جميع محتويات كومبوبوكس على خلية واحدة معينة في الداتاقريد فيو جيولوجي مبتدئ 3 211 12-11-19, 10:49 AM
آخر رد: علي نوري

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


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