[عمور2016]

• إقتباس :

   Try

  
  

              If IO.Directory.Exists("C:\النسخة الإحتياطية لمشروع الدوام\ABDELAZIZ.dll") = False Then

                  IO.Directory.CreateDirectory("C:\النسخة الإحتياطية لمشروع الدوام")

              End If

              If IO.File.Exists("C:\النسخة الإحتياطية لمشروع الدوام\ABDELAZIZ.dll") Then

                  If MsgBox("الملف الحالي" & vbCrLf & Application.StartupPath & "\ABDELAZIZ.dll" & vbCrLf & "الملف الجديد" & vbCrLf & "C:\النسخة الإحتياطية لمشروع الإمتحانات الفصليّة\ABDELAZIZ.dll" & vbCrLf & "هل تريد استبدال الملف الحالي بالجديد ؟", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, " نسخ ملف") = MsgBoxResult.Cancel Then Exit Sub

              End If

              If IO.File.Exists(Application.StartupPath & "\Compact_ABDELAZIZ.mdb") Then

                  IO.File.Delete(Application.StartupPath & "\Compact_ABDELAZIZ.mdb")

              End If

              Dim Engine

              Engine = CreateObject("JRO.JetEngine") 

              Engine.CompactDatabase("provider=microsoft.Jet.oledb.4.0;data source=" & Application.StartupPath & "\ABDELAZIZ.dll",

                                     "provider=microsoft.Jet.oledb.4.0;data source=" & Application.StartupPath & "\Compact_ABDELAZIZ.dll")

              Dim DBFilename, NewFileName As String

              DBFilename = Application.StartupPath & "\Compact_ABDELAZIZ.dll"

              'NewFileName = "C:\النسخة الإحتياطية \DOUSSA.mdb"

  
  

  
  
  عند ضغط وعمل نسخه احتياطية تظهر رسالة كلمة السر غير صحيحة رغم ان قاعدة البيانات لا يوجد لها كلمة السر 
  
  
  
  بس تعديل dll في النهاية 
  
  
  ارجو الافادة وكل عام وانتم بخير     E