بازکردن بانک رمز دار توسط کنترل data

[click.1387]

باسلام
یه کنترل data دارم میخوام باهاش یه بانک پسورد دار رو باز کنم اگر کسی در این زمینه تجربه ای داره لطفا کمک کنه .

[Tasiyan]

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Bank.mdb;Persist Security Info=False;Jet OLEDB:Database Password=***"


:لبخند:

[click.1387]

سلام
دوستان توجه داشته باشید که این پست هم مانند پست های دیگه بی نتیجه موند .
خب من مشکلی به عنوان این موضوع دارم وقتی می بینم کسی جوابی نمی ده مجبورم از اول پست رو ایجاد کنم و بعد از ایجاد مشکلات خاص خودش پیش میاد .
ببینید من سوالم رو مجددا تکرار می کنم و از همه دوستانی که در این زمینه تجربه دارند تقاضا می کنم که کمک کنند تا هم مشکل من حل بشه و مشکل تمام کاربران دیگه .
همانطور که شما دوستان در جریان کار هستید در وی بی نمیشه کنترل Adodc رو با کنترل Dbgrid ارتباط داد در اصل ما فقط می تونیم کنترل Adodc رو به Datagrid متصل کنیم و کنترل Data رو به Dbgrid خب تا اینجا همه متوجه شدید
حالا من می خوام توسط کنترل Data بانکم رو در مسیری که برنامه نصب شده و بانکم هم دارای یک پسورد هست باز کنم
نکته : من این کار رو بلدم با استفاده از کنترل Adodc انجام بدم و حتی وصل DataGrid هم می کنم پس نیاز نیست دوستان این روش رو به من بگن چون بلدم
حالا من یک نمونه برنامه می خوام که بتونم با کنترل data به بانک وصل بشم و اطلاعات رو در Dbgrid نشون بدم .
علت تاکید زیاد بر استفاده کنترل Data اینه که کنترل Dbgrid قابلیت این داره که هدرها رو وسط ستون قرار بدیم و اینکه Dbgrid جلوه قشنگتری در برنامه نسبت به DataGrid داره .
پیشاپیش دست شما دوستان رو می بوسم و خواهشمندم که با به نتیجه رسوندن این پست کمکی به دوستان برنامه نویس بکنید

[sohrab o]

فکر نکنم data همچین قابلیتی داشته باشه

[click.1387]

سلام
می دونم که میشه
شما لطف کنید ببینید می تونید کد زیر رو راه بندازید ؟
در قسمت General تعریف های زیر را ایجاد می کنیم :

Dim db As DAO.Database

Dim rs As DAO.Recordset

با توجه به این تعریفات از db برای ایجاد ارتباط و از rs به عنوان رکوردست استفاده خواهیم کرد . کد های زیر را در Form_Load برای برقراری ارتباط بنویسید :

()Private Sub Form_Load
("Set db = OpenDatabase(App.Path & "\db.mdb", False, False, ";pwd=Media

("Set rs = db.OpenRecordset("SELECT * FROM Sample

End Sub

[click.1387]

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

[click.1387]

سلام
واقعا کسی نیست که این روش رو بلد باشه ؟
من فکر می کردم فقط خودم هستم که بلد نیستم پس این مشکل همه دوستان بود .
اگر کسی بلده کمک کنه

[click.1387]

سلام
خواهشمند است کمک کنید
:ناراحت:

[vbhamed]

سلام

راهش خيلي ساده تر از اين حرفاست
تو خاصيت Connect كنترل ديتا عبارت زير رو اضافه كنيد


pwd=...

مثلا


Data1.Connect=Access;pwd=12345
يا
Data1.Connect=Access2000;pwd=123456

[click.1387]

سلام

راهش خيلي ساده تر از اين حرفاست
تو خاصيت Connect كنترل ديتا عبارت زير رو اضافه كنيد


pwd=...

مثلا


Data1.Connect=Access;pwd=12345
يا
Data1.Connect=Access2000;pwd=123456

سلام دوستان
روشی که حامد جان گفتند برای رمز بانک می باشد من یه نمونه برنامه کوچیک می خوام که برنامم رو توسط کنترل Data به بانک وصل کنم در ضمن بانکم هم پسورد دارد .
خواهش می کنم یکی کمک کنه
کارم گیرهههههههههههههههه

[vbhamed]

سلام


Data1.DatabaseName = Replace(App.Path & "\test.mdb", "\\", "\")
Data1.RecordSource = "Select * From Table1"

Data1.Connect = "Access 2000;pwd=123"
'or Data1.Connect = "ms access;pwd=123"

Data1.Refresh

[click.1387]

سلام میشه یه نمونه برنامه بذارید که بانک پسورد را از طریق کنترل دیتا هر جا که هست پیدا کنه و اطلاعات یکی جدولشو در دیتا گرید نشون بده ؟
خواهش می کنم کمک کنید این همه برنامه نویس و یکی نیست کمک کنه

[vbhamed]

سلام

اينك يك نمونه :

[click.1387]

سلام
ممنونم بابت کمکتون ولی برنامه خطا میده

[vbhamed]

سلام
در قسمت Connect به جاي Access 2000 از Ms Access استفاده كنيد، البته با نصب سرويس پك 6 ويژوال استوديو مشكل به شكل بهتري حل ميشه

[vbhamed]

سلام

click.1387 (http://www.barnamenevis.org/forum/member.php?u=70796) عزيز

جواب سؤالي كه تو پيام خصوصي نوشتيد رو اينجا گذاشتم چون نمي دونم چرا جواب پيام خصوصي براتون ارسال نميشه و اين پيام خطا رو ميده، از طريق مديريت (Mbt925) پيگيري كنيد


click.1387 has chosen not to receive private messages or may not be allowed to receive private messages. Therefore you may not send your message to him/her.

If you are trying to send this message to multiple recipients, remove click.1387 from the recipient list and send the message again.

اينم جواب سؤال شما



DBGrid1.Columns(0).Caption = "Test"
DBGrid1.Columns(0).Alignment = vbCenter