[asto]

اي اعمل كلمة سر للقاعدة كيف ?

ج: انشئها ثم قائمة ادوات ثم امان ثم تعيين كلمة المرور


استخدم ربط قاعدة البيانات بال ADO حيث عند الفتح تحتاج لكتابة كلمة السر في الكود

و هنا مثال حيث توضع كلمة السر في تكست1 و

كود :

StrFileNm = "db1.MDB"

لاحظ ان ما بين "" هو اسم ملف الاكسس

و نستبدل التكست 2 باسم الجدول

كود :

Dim Cn As New ADODB.Connection
StrFileNm = "db1.MDB"
StrPath = App.Path & "\" & StrFileNm
StrPr = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & StrPath & ";" & _
        "Jet OLEDB:Database Password=" & text1.Text
If Cn.State = 1 Then Cn.Close
Cn.Open StrPr
DBNm.Text = StrFileNm
Exit Sub
ErrHand:
MsgBox Err.Description
Resume Next
Rs11.Open "select * from [" & Text2.Text & "]", Cn, adOpenDynamic, adLockOptimistic