دسترسی به پایگاه داده ی پسورد دار...؟

[saruneh]

سلام دوستان
من برنامه ای نوشتم که با استفاده از رابط Adodc به یک پایگاه داده اکسس دسترسی داره. برای امنیت پایگاه داده ؛ در قسمت tools/security/set password (در نرم افزار اکسس) واسه ی اون پسورد گذاشتم. سوالم اینه که چطوری میتونم در vb این پسورد رو باز کنم و به Database دسترسی پیدا کنم؟
ممنون...

[sjj]

به این لینک یه نگاهی بنداز
http://mediavb.persiangig.com/Data%20Base/Lesson/Lesson%209.htm

[محسن بابائی]

سلام
شما در تنظیمات مربوط به Adodc در تب All پسوورد را در قسمت databasePassword وارد کنید.

[saruneh]

سلام
شما در تنظیمات مربوط به Adodc در تب All پسوورد را در قسمت databasePassword وارد کنید.
مرسی ولی مشگلم حل نشد!
usernmae هم داره ولی من که فقط پسورد دارم!

[sjj]

اینم یه برنامه نمونه که اگه به اون لینکی بالا گفتم می رفتید هم این برنامه رو می تونستید دانلود کنید و هم آموزش کامل اون رو می تونستید ببینید.
5429

[sjj]

اولا میشه بگین چه اروری میده ؟

ثانیا وقتی می خواین نوشته تون رو پست کنید متن تون رو انتخاب کنید و بعد از ToolBar بالا گزینه اول یعنی همون "پاک کردن قالب بندی نوشته" رو بزنید تا برای خوندن پست تون ملت دچار عذاب نشن!

[saruneh]

ببخشید به خاطر ناخوانا بودن...و ممنون
sjj عزیز در اون مثالی که زحمت کشیدید، من با ارور اشتباه بودن datasoucre مواجه میشم!
واقعآ عجیبه برام!!!
کد هاش این :


Private Sub Form_Load()
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=media;"
Adodc2.RecordSource = "SELECT * FROM sale"
Adodc2.Refresh

اگه بازم کمک کنید ممنون میشم.

[amirsadeghi]

توجه کن که app.path نباید داخل گیومه باشه

[sjj]

در مثال بالا App.Path داخل گیومه نیست و به رشته های کناریش الحاق شده.
شما به جای
" & App.Path & "\db1.mdb
داخل گیومه مسیر دیتابیس خودتون رو بدید شاید مشکلتون حل بشه.
یعنی اینطوری


"Data Source="مسیر دیتا بیس;Jet OLEDB:Database Password=رمز عبور شما;"

[amirsadeghi]

پس اول این کارو کن
x=app.path
app.path & "/bank name"
--------------------
پس اول این کارو کن
x=app.path
x & "/bank name"

[saruneh]

ممنون از لطف دوستان.
من مسیر دیتا بیس رو هم اصلاح کردم.بصورت data dource="db1.mdb"
ولی انگار فایده نداره...

[sjj]

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

[saruneh]

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

ارورش اینه:

Data source name not found or No defult driver specified

خودم فکر میکنم که از اون ارور های واقعآ الکی هست که آدم رو از vb زده میکنه....

[yavari]

ممنون از لطف دوستان.
من مسیر دیتا بیس رو هم اصلاح کردم.بصورت data dource="db1.mdb"
ولی انگار فایده نداره...

سلام

عزیزم ، این چیه شما نوشتی ؟؟؟:متفکر:

data dource="db1.mdb"

ارور میگه دیتا سورسو نمی تونه پیدا کنه ، کمکش کنین !:لبخند:

موفق باشید

[ashkan209]

دوست عزیز سلام
محیط ویرایش اینجا باعث شد که نتونم کد مورد نظرم را اینجا بگذارم (به هم ریختن کد )
لذا یک فایل Rar فرستادم که اگه باز کنی داخل فایل Txt 4خط کد هست
این کدها را در Form_load فرمی که ado روش موجوده Paste کن و هرگونه کد مرتبط دیگری را پاک کن .
ضمنا در Property مربوط به Ado فقط در authentication تب و در قسمت password رمز مورد نظرت را تایپ کن(حواست به کپس لاک باشه) و هرگونه تنظیم یا مسیری که ایجاد کردی پاک کن
. در هیچ قسمت دیگه ای نباز به ورود رمز نیست.
ضمنا در کد مذکور در خط اول بجای MyMdbFile.mdb نام کامل فایل access که دو بار تکرار شده و در خط سوم نام table مورد نظرت را بجای MyTable وارد کن

[saruneh]

آقای yavari عزیز!
اگه تو پست های قبلی من دقت کنید میبینید که این یه اشتباه سهوی و تایپی بوده.
اگه کمک نمیکنید(!) لا اقل مسخره هم نکنید...
هر کسی از ظن خود شد یار من...

ashkan ممنونم ولی باز هم با همون اروری که گفتم مواجه هستم! کد های مورد نظر شما این بود:


Ado1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & "DSN=MS Access Database;DBQ=" & App.Path & "\MyMdbFile.mdb;DefaultDir=" & App.Path & "\MyMdbFile.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
Ado1.CommandType = adCmdText
Ado1.RecordSource = "SELECT * FROM MyTable"
Ado1.Refresh

[yavari]

سلام saruneh جان

دوست عزیز ، من اصلا منظوری نداشتم که شما اینقدر بهتون برخورده ، فقط عنوان و پستای آخر رو خوندم و رو حساب اینکه ایراد شما در نهایت از ریزه کاری میلنگه اون موضوعو مطرح کردم وگرنه منظوری نداشتم و اگه باعث ناراحتی تون شدم صمیمانه ازتون معذرت میخوام ! :خجالت:

در ادامه صحبتای آقا اشکان روش کلی اتصال با بانکای پسورد دارو میگم البته اینو هم میگم که همین که کانکشن استرینگتون ساخته شد ADO رو بردارید البته این یه پیشنهاده !

روش کلی کار (اکسس و SQL ) :
امیدوارم هر گونه اشکالی همین جا حل و فصل بشه !

در مرتبه اول کامپوننت ADO رو اکتیو میکنیم سپس با راست کلیک روی اون و انتخاب Property
از کادر باز شده گزینه Build رو کلیک کرده و در تب Provider با توجه به بانک اطلاعاتیمون گزینه مناسب رو انتخاب میکنیم حالا اگه اکسسه Microsoft.Jet.OLEDB.4.0 و اگه SQl هست SQLOLEDB رو .
یعد Next رو میزنیم و در اونجا بانکمون رو انتخاب میکنیم و اگه در مسیر پروژه هست کافیه فقط اسم اونو وارد کنیم مثلا : db1.mdb
حالا اگه SQl بود اول سرور اونو وارد میکنیم
خب حالا که ما داریم رو لوکال کار میکنیم نام کامپیوترمونو وارد میکنیم به عنوان نام سرور ، برا گذاشتن بانک رو سرور هم کافیه اینجا رو با اسم سرورمون عوض کنیم .بعد نام دیتابیسمونو از لیست دیتابیسای سرور انتخاب میکنیم .
در مرحله بعد برا وارد کردن پسورد برا بانکای اکسس و یوز و پس برا SQl به تب All میریم
تو اون تب گزینه Password رو دابل کلیک کرده وپسوردو میذاریم . برا SQl باید یوزرآیدی رو هم وارد کنیم
خب حالا به تب برمیگردیم و گزینه Test Connection رو میزنیم اگه پیغام Success داد که حله !
یعنی طبیعتا نباید دیگه مشکل کانکشن با بانک اطلاعاتیو داشته باشم وگرنه اخطاری میده راجع به همون ایراد کانکشن که با توجه به متن ارور مبشه فهمید کجای کار میلنگه !
در پایان پس از Ok کل محتوبات تکست باکسه رو کپی میکنیم به عنوان کانکشن استرینگمون و

این یه نمونه اکسسه
Public cnn As New ADODB.Connection

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=ffffff"

و اینم یه نمونه SQL :

Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=TinaGroup;Data Source=CLINIC

البته از سیر تا پیاز قضیه رو گفتم تا اگه ایراد جزئی باعث کار نکردن کانکشن شده رفع بشه !

بازم سوالی بود در خدمتم !
موفق باشید

[saruneh]

با سلام و تشکر از همه ی دوستانی که در این تاپیک شرکت داشته اند؛
ازجمع بندی همه ی مطالب دوستان ، فقط یک راه حل عاید من شد و اون رو هم در مثالی در فایل ضمیمه آوردم. بقیه مسایلی رو که مطرح کردند (بنا به سنجش من) غیر عملی است.
دوستان اگه بازم مطلبی به نظرتون میرسه، برای استفاده سایرین منعکس کنید ...

[yavari]

سلام


بقیه مسایلی رو که مطرح کردند (بنا به سنجش من) غیر عملی است.
دوستان اگه بازم مطلبی به نظرتون میرسه، برای استفاده سایرین منعکس کنید

شما که الان مشکلتون حل شده ! دیگه دنبال چی هستین ؟

موفق باشید

[sjj]

این برنامه ای رو که گذاشتید بنده امتحان کردم هیچ مشکلی نداشت.اگر شما مشکلی داشته باشید دیگه فکر کنم برگرده به سیستمتون.
موفق و پیروز باشد.

[saruneh]

سلام



شما که الان مشکلتون حل شده ! دیگه دنبال چی هستین ؟

موفق باشید
دنبال چیزی نیستم, مشگل من هم با مساعدت دوستان حل شد. فقط خواستم با ذکر این مسالی که آوردم یک جمع بندی و نتیجه گیری کلی از این تاپیک صورت بگیره واسه دوستانی که ممکنه در آینده به دردشون بخوره...
ممنون

[o0_Amin_0o]

ممنون دوستان
تاپیک کاملی شد.

فقط یه سوال هم من دارم

من با استفاده از رفرنسهای
Microsoft Data Environment Instance 1.0
Microsoft DAO 3.51 Object Library

این شکلی با دیتابیس ارتباط برقرار میکنم


Dim db As Database
Dim rs As Recordset


Set db = OpenDatabase(App.Path & "\X.mdb")
Set rs = db.OpenRecordset("Table Name")

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

ممنون

[o0_Amin_0o]

قاعدتآ باید با این کد وصل بشه!
ولی نمیشه!!!!

("Set db = OpenDatabase(App.Path & "\db.mdb", False, False, ";pwd=pas


دوستان کمک کنن لطفآ!