النسخ الاحتياطي عبر الانترنت ( جوجل درايف )

[qathi]

اخوني واساتذتي الافاضل حياكم الله وبعد
أسأل الله ان تكونو في أتم الصحة والعافية

هل توجد طريقة لعمل نسخة احتياطية لقاعدة البيانات الخلفية ( عبر الانترنت )
برفعها عبر جوجل درايف ( أو غير ذلك ) واستعادتها 

[د.كاف يار]

11 دقائق مضت, qathi said:

اخوني واساتذتي الافاضل حياكم الله وبعد
أسأل الله ان تكونو في أتم الصحة والعافية

هل توجد طريقة لعمل نسخة احتياطية لقاعدة البيانات الخلفية ( عبر الانترنت )
برفعها عبر جوجل درايف ( أو غير ذلك ) واستعادتها 

 

Google Drive

حتما يوجد طريقة لكني لا اعلمها

لكن يفضل بأن يكون لديك حساب في احد السيرفرات الخارجية و تحويل قاعدة البيانات الى sql server

و ربطها مع الأكسس و هذه ايسر الطرق و اسهلها و اسرعها و اكثر أماناً

[qathi]

شكرا اخي @د.كاف يار .. على ردك .. بارك الله فيك

حاليا لا افضل SQL server 

أتمنى وجود طريقة رفع النسخة للقاعدة الخلفية على هيئة مرفق واستعادتها  في الوقت الذي يريده العميل

 

 

[Barna]

تابع هذا ...

في ٢٥‏/١‏/٢٠٢٠ at 20:24, محمد أبوعبدالله said:

تفضل اخي الكريم

Private Sub Command0_Click()
If MsgBox("هل تريد اجراء نسخة احتياطية من البرنامج؟", _
    vbQuestion + vbYesNo, _
    "نسخة احتياطية") = vbYes Then

        On Error Resume Next
        
        Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB
        
           Dim fs, cf, strFolder
                   strFolder = CurrentProject.Path & "\Backup"
            Set fs = CreateObject("Scripting.FileSystemObject")
                If fs.FolderExists(strFolder) = False Then
            Set cf = fs.CreateFolder(strFolder)

      End If
     
        OldFile = CurrentDb.Name
        StrNew = CurrentProject.Path & "\Backup"
        
        DBwithEXT = Dir(OldFile)
        DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6)
        If [BKUP] = True Then
        NewFile = StrNew & "\" & DBwithoutEXT & "-" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM") & Right(DBwithEXT, 6)
        CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """"
        Shell CopyMyDB, 0
        Exit Sub
        End If

    End If

Backup_2.rar 17.53 kB · 27 downloads

تحياتي

 

[qathi]

شكرا أخي @Barna ..  على ردك ومرورك الطيب .. أطلعت على الموضوع لكن لم أصل للمطلوب

[qathi]

للرفع للاهمية ...