View Full Version : روش رمز گزاری روی Access و دسترسی از طریق VB
ali reza mansoori 2
پنج شنبه 03 مرداد 1387, 20:52 عصر
دوستان عزیز
لطفا مرا در رمز دار کردن Access و روش وارد شدن به اون از طریق VB را راهنمایی کنید
با تشکر ********ali reza mansoori*********
roomezonline
پنج شنبه 03 مرداد 1387, 21:59 عصر
دوستان عزیز
لطفا مرا در رمز دار کردن Access و روش وارد شدن به اون از طریق VB را راهنمایی کنید
با تشکر ********ali reza mansoori*********
اگر از شی ADO استفاده ی کنید با این کد میتونید با بانک پسورد دار ارتباز برقرار کنید
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\ParsX.mdb" & _
";Jet OLEDB:Database Password=" & Password & ";"
:متفکر:
اوبالیت به بو
جمعه 04 مرداد 1387, 17:38 عصر
باز كردن بانك پسورد دار:
http://barnamenevis.org/forum/showpost.php?p=526509&postcount=26
http://barnamenevis.org/forum/showpost.php?p=557978&postcount=3
ali_habibi1384
یک شنبه 06 مرداد 1387, 03:35 صبح
قبل ورود هر نوع داده ای برای اون رمز بذارید .
tools>security>set database password
برای باز کردن رمز در ado و dataenvironment از برگنشان all گزینه database password رو بزنید و رمز رو اونجا وارد کنید.
مهران رسا
یک شنبه 06 مرداد 1387, 09:50 صبح
Database Protection
http://barnamenevis.org/forum/showpost.php?p=545275&postcount=1095
y.saied
دوشنبه 07 مرداد 1387, 20:12 عصر
سلام دوستان و استادان عزیز
من در رمز گزاری روی Access و دسترسی از طریق VB مشکل دارم و نتونستم مشکلم و حل کنم و همه مثالهای روی سایت رو دیدم ولی نتونستم .
نام بانک اطلاعاتی من Yaqub هستش و با Adodc کار میکنم اگه یه مثال کوچولو روی سایت بذارین ممنون میشم .
اگه جواب بدین شرمنده میکنین
HAMRAHSOFT.IR
یک شنبه 24 آذر 1387, 10:12 صبح
خطا اين فايل چي؟
rouzbeh_ziafati
سه شنبه 10 دی 1387, 20:39 عصر
اگر از شی ADO استفاده ی کنید با این کد میتونید با بانک پسورد دار ارتباز برقرار کنید
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\ParsX.mdb" & _
";Jet OLEDB:Database Password=" & Password & ";"
:متفکر:
من با data می خوام به بانک پسوورد دار وصل بشم چی کار باید بکنم ؟؟؟
شاپرک
شنبه 14 دی 1387, 12:19 عصر
خطا اين فايل چي؟
اولا رفرنس مورد نظر (Microsoft ActiveX Data Object Library) رو اضافه نکردی
دوما ado رو تعریف نکردی : Dim ado As New ADODB.Connection
Mohya_z332
چهارشنبه 18 دی 1387, 05:47 صبح
دوست عزیز بزار نوشته های دوستان رو کامل تر کنم و پله پله بگم باید چی کار کنی :
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
چهارشنبه 18 دی 1387, 13:29 عصر
سلام
برای بچه های تنبل مثل خودم که می خواهند از حالتهای آمده ویژوال بیسیک استفاده کنند یک راحل ساده است . بعد از آوردن کنترل دیتا عملیات زیر را انجام دهید :
فرض می کنیم که فایل اکسس شما دارای رمز ورود به نام ALI باشد . برای اتصال به بانک اطلاعاتی در Properties قسمت Connect به جای Access باید PWD=ALI; را بنویسید . با این کار برای اتصال به بانک رمز ALI به صورت خودکار به بانک ارسال شده و مشکل اتصال با بانکهای رمز دار حل می شود .
موفق باشید
DelphiFriend
جمعه 11 بهمن 1387, 18:42 عصر
دوست عزیز بزار نوشته های دوستان رو کامل تر کنم و پله پله بگم باید چی کار کنی :
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
همین ... امیدوارم به دردتون خورده باشه !
البته باید بگم روش شما هم کاربرد نداره.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.