كيف يمكنني فتح قاعدة البيانات بباسوورد؟

السلا عليكم

بالنسبة للباسوورد كل ما عليك فعله هو إضافة الباسوورد في سطر الConnectoion String الذي يعمل ربط مع قاعدة البيانات لديك ستجد الشكل سيكون كالتالي :

pwd=123456

طبعا سيكون ثابتا هنا لأنه في كل مرة ستفتح قاعدة البيانات عن طريق الConnection String من الفيجوال بيسك ستسألك قواعد البيانات عن الباسوورد الخص بها طبعا انت لن تكتب الباسوورد في كل عمليه Connection اّتيه من الفيجوال بيسك لذلك ستكون الباسوورد دايما متواجدة في الConnection String

لاحظ انت ان الباسوورد سيكون في الconnection String مع ال Data Base وليش في ربط الجداول لأنك لن تستطيع ربط الجداول إلا بعد الربط مع قاعدة البيانات كشئ أساسي في البداية.

رجائي إذا كان أي شئ مو واضح ان تعاود السؤال مرة أخرى والله اعلم.

***********إبدأ من حيث إنتهى الناس***********

اشكر تعاونك ياأخي

انت ياfree تتكلم حسب مافهمت عن dataenvironment وانا اسأل عن الصيغة العادية اللي يتم تعريف قاعدة البيانات والسجل مثل

dim DB as DAO.database

dim RS as DAO.recordset

ومن ثم فتح قاعدة اليانات بجملة SQL وهكذا

لكن سؤالي لو كانت قاعدة البيانات الكسس عليها باسوورد (1234) كيف اقدر اتعامل معها

وياليت مثال قصير للتوضيح :o

والله الموفق

السلام عليكم

أولا زي ما انت عارف إنه الربط مع قواعد البيانات ما يمون بالSQl إنما يمون بالConnection String .

داخل الConnection String يوجد Parameter إسمه PWD

هذا ال Parameter هو الذي سوف تضع فية ال Password الخاص بقاعدة البيانات وستصبح مثلا

pwd=1234 طبعا بين دبل كوت""

أما المثال الذي كتبته انت فهو يخص الDAO وليس الADO

لا تترد في السؤال إذا لم تحصل على الإجابة التي تريدها

السلام عليكم يا Alsu

هو دا الكود اللي حيخليك تفتح قاعدة ينات مقفولة بباسوورد

Public Function OpenMydb() As Boolean

Dim strConn As String

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "specialdata.mdb;Persist Security Info=False;pwd="1234" "

On Error Resume Next

mydb.ConnectionString = strConn

mydb.Open

If mydb.State <> adStatusOK Then

OpenMydb = False

Else

OpenMydb = True

End If

End Function

ويمكن إختصارها زي ما قلت لك في سطر واحد كالتالي: طبعا بدل كل اللي فات يعني لمن تحط السطر الجاي دا في دالة حتشتغل معاك عى طول إن شاء الله وسميها الدالة دي OpenMydb().

mydb.open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "specialdata.mdb;Persist Security Info=False;pwd="1234""

ولو في ي سؤال تاني إحنا في الخدمة إن شاء الله وشكرا

والله اشكرك بعنف:)

والصراحة انك ماقصرت واحرجتني معك كثير:o

راح اجرب الطريقة هذي لتعريف قاعدة البيانات بباسوورد وان صارت معي مشاكل راح اقولك

وجزلك الله الف خير وكثر الله من أمثالك

السلام عليكم يا عمي لا تعبتني ولا حاجة بس انت جربها وأديني خبر في أقرب فرصة ممكنه ولا تتردد و عندك أي سؤال في اي مكان او لو واجهتك مشكله معينة

وشكرا

والصراحة انك ماقصرت

ولكن اذا لم اكن اعرف كلمة السر فكيف يمكن فتح قاعدة البيانات

ولك الشكر والتقدير.............