31-07-20, 02:55 AM
إقتباس :
Try
If IO.Directory.Exists("C:\النسخة الإحتياطية لمشروع الدوام\ABDELAZIZ.dll") = False ThenIO.Directory.CreateDirectory("C:\النسخة الإحتياطية لمشروع الدوام")End IfIf IO.File.Exists("C:\النسخة الإحتياطية لمشروع الدوام\ABDELAZIZ.dll") ThenIf MsgBox("الملف الحالي" & vbCrLf & Application.StartupPath & "\ABDELAZIZ.dll" & vbCrLf & "الملف الجديد" & vbCrLf & "C:\النسخة الإحتياطية لمشروع الإمتحانات الفصليّة\ABDELAZIZ.dll" & vbCrLf & "هل تريد استبدال الملف الحالي بالجديد ؟", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, " نسخ ملف") = MsgBoxResult.Cancel Then Exit SubEnd IfIf IO.File.Exists(Application.StartupPath & "\Compact_ABDELAZIZ.mdb") ThenIO.File.Delete(Application.StartupPath & "\Compact_ABDELAZIZ.mdb")End IfDim EngineEngine = 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 StringDBFilename = Application.StartupPath & "\Compact_ABDELAZIZ.dll"'NewFileName = "C:\النسخة الإحتياطية \DOUSSA.mdb"
عند ضغط وعمل نسخه احتياطية تظهر رسالة كلمة السر غير صحيحة رغم ان قاعدة البيانات لا يوجد لها كلمة السر
بس تعديل dll في النهاية
ارجو الافادة وكل عام وانتم بخير E