وارد نمودن پسورد بانک

[HAMRAHSOFT.IR]

دستان من جستجو خیلی کردم ولی جیزی پیدا نکردم

مشه یک نمونه بزارید که بشه پسورد بانک اکسس را از داخل بر نامه وارد کرد البته با کد نویسی

از راهنمای شما سپاس گذازم

[ali_habibi1384]

فکر نکنم با کد نویسی بشه ولی اگه از propertis کامپوننت ADodc بری میشه.

[lahiji]

فکر نکنم با کد نویسی بشه ولی اگه از propertis کامپوننت ADodc بری میشه.

چرا شدنی هستش


Dim db As DAO.Database

Set db = DBEngine.OpenDatabase(App.Path + "\Product.mdb", _
False, False, ";pwd=pro_anbar")

[ali_habibi1384]

حق با شماست من اینو می دونستم اما مطلب دوستمون رو خوب نخونده بودم. عذر می خوام.

[lahiji]

حق با شماست من اینو می دونستم اما مطلب دوستمون رو خوب نخونده بودم. عذر می خوام.

سلامت باشید . فقط جهت اطلاع عرض کردم

[HAMRAHSOFT.IR]

چرا شدنی هستش


Dim db As DAO.Database

Set db = DBEngine.OpenDatabase(App.Path + "\Product.mdb", _
False, False, ";pwd=pro_anbar")

سلام مشه یک نمونه بزارید

ایااین روش در خود اکسس هم جواب میده

[ali_habibi1384]

آره چرا نمیشه؟ اینم نمونه کد:


Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\[نام بانک داده شما]"",False, False, ;pwd=[کلمه رمز شما])"
Adodc1.RecordSource = "select * from [نام جدول مورد نظر شما]"
Adodc1.Refresh
End Sub

[HAMRAHSOFT.IR]

باتشکر امکان داره این نمونه را اصلاح کنید

با تشکر

پسورد: a