السلام عليكم
أخواني الكرام أريد اضافة كلمة مرور لقاعدة بيانات من النوع أكسيس 2007 وهذا هو الكود الخاص بتعريفها If Con.State = 1 Then Con.Close
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\2013.accdb"
أرجو التعديل علي الكود ولكم جزيل الشكر
السلام عليكم ورحمة الله وبركاته
جرب هذا الكود
PHP كود :
If Con.State = 1 Then Con.Close
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\2013.accdb"
Con.Execute "ALTER Database Password " & newPassword & " " & oldPassword & ";"
السلام عليكم ورحمة الله وبركاته
أخي الكريم فيما أضع كلمة المرور الخاصة بي ولتكن مثلا Ahmed
السلام عليكم ورحمة الله وبركاته
تفضل للتوضيح
newPassword = كلمة المرور الجديدة
oldPassword = كلمة المرور القيدمة (إن وجدت)
PHP كود :
Dim newPassword As String
Dim oldPassword As String
newPassword = "Ahmed"
oldPassword = ""
If Con.State = 1 Then Con.Close
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\2013.accdb"
Con.Execute "ALTER Database Password " & newPassword & " " & oldPassword & ";"
السلام عليكم ورحمة الله وبركاته
أخي الكريم طبقت هذا الكود علي المثال ولكن يوجد خطأ عند تحميل الفورم أرجو التعديل علي المثال ولك مني جزيل الشكر
السلام عليكم ورحمة الله وبركاته
لا يعقل أن تضع كود تغيير كلمة المرور في تحميل الفورم
PHP كود :
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\2013.accdb; Jet OLEDB:Database Password = Ahmed "
''Con.Execute "ALTER Database Password " & newPassword & "" & oldPassword & ";"
السلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
[COLOR="#FF0000"]أعتذر منك أشد الاعتذار....
فقد كان الكود الأول لتغيير كلمة المرور، وعند مراجعتي للموضوع اتضح أنك فقط تريد تحديد كلمة مرور قاعدة البيانات المعمولة مسبقاً
[COLOR="#FF0000"]أعتذر منك أشد الاعتذار....
[/COLOR]
ما تريده فقط هذا الكود بدون الأكواد السابقة..... مع السماح منكم
PHP كود :
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\2013.accdb; Jet OLEDB:Database Password = Ahmed "
[/COLOR]
السلام عليكم ورحمة الله وبركاته
أخي الفاضل لا تعتذر وجزاك الله كل خير علي مجهودك معي