السلام عليكم ورحمة الله وبركاتة
الاتصال بقاعدة بيانات اكسس 2003 عليها كلمة مرور
يكون من خلال جملة الاتصال التالية
طبعا حتغير اسم قاعدة البيانات وكلمة المرور ليتوافق مع الاعدادات لديك
لاحظ كيف يتم تمرير كلمة المرور
بالتوفيق ان شاء الله
| |
تهتم المدونة بكل المواضيع الخاصة بالبرمجة وصناعة البرمجيات
لاحظ كيف يتم تمرير كلمة المرور
بالتوفيق ان شاء الله
| |
could not be added please make sure that the file is accessible, and that it is a valid assembly or Com component
|
'هذا متغير علي مستوي المشروع ويتمرير الية اسم قاعدة البيانات وسنستخدمة فيما بعد في امور اخري منها اخذ نسخة احتياطية من تلك قاعدة البيانات
dbname = "dblaw.mdb"
'لانشاء المجلد الذي سنضع بة النسخ الاحتياطية داخل مجلد المشروع ان لم يكن منشئ من قبل
If Dir(App.Path & "\backup", vbDirectory) = "" Then
MkDir (App.Path & "\backup")
End If
Dim x As String
MousePointer = 11
'للتاكد من وجود قاعدة البيانات التي سناخذ منها نسخة احتياطية قبل البداء في عمل ذلك
If Dir(App.Path & "\" & dbname) = "" Then
MousePointer = 1
Exit Sub
End If
'المتغير اكس يتم تمرير لة التاريخ الحالي للجهاز ولكن بصيغة معينة تم تحديدها لو ستاخذ نسخة في اقل من دقيقة او يوم يمكنك اضافة الي المتغير اكس الثانية التي تم اخذ النسخة بها او الدقيقة الخ
x = Format(Date, "dd-mm-yyyy")
'اخذ نسخة احتياطية من قاعدة البيانات
je.CompactDatabase "data source=" & App.Path & "\" & dbname & ";", _
"data source=" & App.Path & "\backup\backup" & x & ".mos;"
MousePointer = 1
windows\System32
|
Windows\SysWOW64
|