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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 295 14-12-23, 03:19 PM
آخر رد: Kamil
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 347 10-12-23, 04:03 AM
آخر رد: Adel27213
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 353 25-11-23, 11:51 PM
آخر رد: Adel27213
  طريقة تحويل الأرقام إلى حروف Adel27213 2 495 18-11-23, 01:40 AM
آخر رد: sniper2030
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 507 08-11-23, 01:27 AM
آخر رد: الحزين اليماني
  طريقة جلب صف من قاعدة البيانات بشرط العمود ٤ لا يساوي فارغ Adel27213 2 423 07-11-23, 05:02 AM
آخر رد: Adel27213
  طريقة نقل بيانات عمود من جدول إلى جدول اخر Adel27213 4 447 06-11-23, 07:35 AM
آخر رد: justforit

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


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