[احمد عبد الحكيم]

هذا هو كود قاعدو البيانات
فى حدث عند الاغلاق

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

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()