روش رمز گزاری روی Access و دسترسی از طریق VB

[ali reza mansoori 2]

دوستان عزیز
لطفا مرا در رمز دار کردن Access و روش وارد شدن به اون از طریق VB را راهنمایی کنید
با تشکر ********ali reza mansoori*********

[roomezonline]

دوستان عزیز
لطفا مرا در رمز دار کردن Access و روش وارد شدن به اون از طریق VB را راهنمایی کنید
با تشکر ********ali reza mansoori*********


اگر از شی ADO استفاده ی کنید با این کد میتونید با بانک پسورد دار ارتباز برقرار کنید

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\ParsX.mdb" & _
";Jet OLEDB:Database Password=" & Password & ";"
:متفکر:

[اوبالیت به بو]

باز كردن بانك پسورد دار:

http://barnamenevis.org/forum/showpost.php?p=526509&postcount=26

http://barnamenevis.org/forum/showpost.php?p=557978&postcount=3

[ali_habibi1384]

قبل ورود هر نوع داده ای برای اون رمز بذارید .
tools>security>set database password
برای باز کردن رمز در ado و dataenvironment از برگنشان all گزینه database password رو بزنید و رمز رو اونجا وارد کنید.

[مهران رسا]

Database Protection

http://barnamenevis.org/forum/showpost.php?p=545275&postcount=1095

[y.saied]

سلام دوستان و استادان عزیز

من در رمز گزاری روی Access و دسترسی از طریق VB مشکل دارم و نتونستم مشکلم و حل کنم و همه مثالهای روی سایت رو دیدم ولی نتونستم .

نام بانک اطلاعاتی من Yaqub هستش و با Adodc کار میکنم اگه یه مثال کوچولو روی سایت بذارین ممنون میشم .

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

[HAMRAHSOFT.IR]

خطا اين فايل چي؟

[rouzbeh_ziafati]

اگر از شی ADO استفاده ی کنید با این کد میتونید با بانک پسورد دار ارتباز برقرار کنید

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\ParsX.mdb" & _
";Jet OLEDB:Database Password=" & Password & ";"
:متفکر:



من با data می خوام به بانک پسوورد دار وصل بشم چی کار باید بکنم ؟؟؟

[شاپرک]

خطا اين فايل چي؟

اولا رفرنس مورد نظر (Microsoft ActiveX Data Object Library) رو اضافه نکردی
دوما ado رو تعریف نکردی : Dim ado As New ADODB.Connection

[Mohya_z332]

دوست عزیز بزار نوشته های دوستان رو کامل تر کنم و پله پله بگم باید چی کار کنی :
1. باید از منوی Project -> References گزینه Microsoft DAO 3.6 Object Library رو به فرم اضافه کنی .
2. بعد کدهای زیر رو تو Form Load مینویسی :

Private Sub Form_Load()
Dim db As Database
Set db = OpenDatabase(App.Path & "\Data.mdb", False, False, ";pwd=1234")
Data1.DatabaseName = App.Path & "\Data.mdb"
Data1.RecordSource = "TSD"
Data1.Refresh

Data2.DatabaseName = App.Path & "\Data Golden.mdb"
Data2.RecordSource = "Dore"
Data2.Refresh
End Sub

همین ... امیدوارم به دردتون خورده باشه !

[manik77]

سلام
برای بچه های تنبل مثل خودم که می خواهند از حالتهای آمده ویژوال بیسیک استفاده کنند یک راحل ساده است . بعد از آوردن کنترل دیتا عملیات زیر را انجام دهید :
فرض می کنیم که فایل اکسس شما دارای رمز ورود به نام ALI باشد . برای اتصال به بانک اطلاعاتی در Properties قسمت Connect به جای Access باید PWD=ALI; را بنویسید . با این کار برای اتصال به بانک رمز ALI به صورت خودکار به بانک ارسال شده و مشکل اتصال با بانکهای رمز دار حل می شود .
موفق باشید

[DelphiFriend]

دوست عزیز بزار نوشته های دوستان رو کامل تر کنم و پله پله بگم باید چی کار کنی :
1. باید از منوی Project -> References گزینه Microsoft DAO 3.6 Object Library رو به فرم اضافه کنی .
2. بعد کدهای زیر رو تو Form Load مینویسی :

Private Sub Form_Load()
Dim db As Database
Set db = OpenDatabase(App.Path & "\Data.mdb", False, False, ";pwd=1234")
Data1.DatabaseName = App.Path & "\Data.mdb"
Data1.RecordSource = "TSD"
Data1.Refresh

Data2.DatabaseName = App.Path & "\Data Golden.mdb"
Data2.RecordSource = "Dore"
Data2.Refresh
End Sub

همین ... امیدوارم به دردتون خورده باشه !

البته باید بگم روش شما هم کاربرد نداره.