كيف نسخ قاعدة بيانات محمية

في انتظار

أريد التعديل على الكود السابق لكي يعمل أثناء حماية قاعدة البيانات بكلمة مرور

تجد طلبك من ضمن برنامج مصنع الطابوق الموجود بالتتوقيع أدناه

تحياتي

وجدت هذان الكودان في الأرشيف عندي ( للفتح )

Private Sub Command1_Click()
      Dim db As Database
      Dim MyRs As Recordset
      Set db = OpenDatabase("c:\test.mdb", False, False, ";pwd=test")
      Set MyRs = db.OpenRecordset("MyTable", dbOpenTable)
End Sub

و هذا الثاني

With Data1
.DatabaseName = App.Path & "\VB.mdb"
.RecordSource = "VB"
.Connect = ";Pwd=rahos@GD"
.Refresh
End With

و ان شاء الله تشتغل معك ... لأني ما جربتها

السلام عليكم ورحمة الله وبركاته

أخى الكريم اليك هذا الكود الذى هو بالفعل شغال معاى

cn.Close

cn.Close

DBEngine.CompactDatabase App.Path & "\db1.mdb", _

App.Path & "\backupdb1.mdb", dbLangGeneral, , ";pwd=" & "password"

مع خالص تحياتى

الحلم

تفضل :

'
    je.CompactDatabase "Data Source=" & App.Path & "\DATABASE.mdb;Jet OLEDB:Database Password=YOURPASSWORD;", _
                       "Data Source=" & App.Path & "\Backup\Backup.bak"