[كود] كلمة السر غير صحيحه - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [كود] كلمة السر غير صحيحه (/showthread.php?tid=35951)

كلمة السر غير صحيحه - عمور2016 - 31-07-20  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  عند ضغط وعمل نسخه احتياطية تظهر رسالة كلمة السر غير صحيحة رغم ان قاعدة البيانات لا يوجد لها كلمة السر بس تعديل dll في النهاية ارجو الافادة وكل عام وانتم بخير     E RE: كلمة السر غير صحيحه - عمور2016 - 31-07-20 تم حذف قاعدة البيانات واعادة لصق اخرى مشى الحال شكرا جزيلا