25-08-20, 08:03 AM
25-08-20, 09:22 AM
(25-08-20, 08:03 AM)منه كتب : [ -> ]السلام عليكم ورحمه الله وبركاته
ممكن كود اتصال بقاعدة بيانات اكسس محميه بكلمه سر
وعليكم السلام ورحمة الله وبركاته ،،
كود :
ACCESS 2003 وما قبل
Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123; Data Source=" & Application.StartupPath & "\db1.mdb")
ACCESS 2007 وما بعد
Dim cn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0;Jet OLEDB:Database Password=123; Data Source=" & Application.StartupPath & "\db1.accdb")25-08-20, 11:01 PM
(25-08-20, 09:22 AM)حريف برمجة كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته ،،
كود :
ACCESS 2003 وما قبل
Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123; Data Source=" & Application.StartupPath & "\db1.mdb")
ACCESS 2007 وما بعد
Dim cn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0;Jet OLEDB:Database Password=123; Data Source=" & Application.StartupPath & "\db1.accdb")
جزاك الله كل خير أخى...
الكود لا يهمنى ولا أستعمله أصلاً لكنى بشكرك وبشكر الجميع على محاولة مساعدة الغير...
ومن المفترض أن يكون هذا الشكر من صاحب السؤال لكنى أتعجب حقيقة من كرم الأخوة هنا
ومن بخل أغلب ألأعضاء " يأخذ إجابته على طبق من ذهب دون مجهود وفى الأخر يضربها طناش لا شكر ولا حتى يعرفك أهل الكود نفع معه أم لا " سبحان الله بالفعل والله أتعجب...