باسلام
یه کنترل data دارم میخوام باهاش یه بانک پسورد دار رو باز کنم اگر کسی در این زمینه تجربه ای داره لطفا کمک کنه .
Printable View
باسلام
یه کنترل data دارم میخوام باهاش یه بانک پسورد دار رو باز کنم اگر کسی در این زمینه تجربه ای داره لطفا کمک کنه .
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Bank.mdb;Persist Security Info=False;Jet OLEDB:Database Password=***"
:لبخند:
سلام
دوستان توجه داشته باشید که این پست هم مانند پست های دیگه بی نتیجه موند .
خب من مشکلی به عنوان این موضوع دارم وقتی می بینم کسی جوابی نمی ده مجبورم از اول پست رو ایجاد کنم و بعد از ایجاد مشکلات خاص خودش پیش میاد .
ببینید من سوالم رو مجددا تکرار می کنم و از همه دوستانی که در این زمینه تجربه دارند تقاضا می کنم که کمک کنند تا هم مشکل من حل بشه و مشکل تمام کاربران دیگه .
همانطور که شما دوستان در جریان کار هستید در وی بی نمیشه کنترل Adodc رو با کنترل Dbgrid ارتباط داد در اصل ما فقط می تونیم کنترل Adodc رو به Datagrid متصل کنیم و کنترل Data رو به Dbgrid خب تا اینجا همه متوجه شدید
حالا من می خوام توسط کنترل Data بانکم رو در مسیری که برنامه نصب شده و بانکم هم دارای یک پسورد هست باز کنم
نکته : من این کار رو بلدم با استفاده از کنترل Adodc انجام بدم و حتی وصل DataGrid هم می کنم پس نیاز نیست دوستان این روش رو به من بگن چون بلدم
حالا من یک نمونه برنامه می خوام که بتونم با کنترل data به بانک وصل بشم و اطلاعات رو در Dbgrid نشون بدم .
علت تاکید زیاد بر استفاده کنترل Data اینه که کنترل Dbgrid قابلیت این داره که هدرها رو وسط ستون قرار بدیم و اینکه Dbgrid جلوه قشنگتری در برنامه نسبت به DataGrid داره .
پیشاپیش دست شما دوستان رو می بوسم و خواهشمندم که با به نتیجه رسوندن این پست کمکی به دوستان برنامه نویس بکنید
فکر نکنم data همچین قابلیتی داشته باشه
سلام
می دونم که میشه
شما لطف کنید ببینید می تونید کد زیر رو راه بندازید ؟
در قسمت General تعریف های زیر را ایجاد می کنیم :
Dimdb As DAO.Database
Dimrs 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
سلام
کسی نیست این روش رو بلد باشه ؟
سلام
واقعا کسی نیست که این روش رو بلد باشه ؟
من فکر می کردم فقط خودم هستم که بلد نیستم پس این مشکل همه دوستان بود .
اگر کسی بلده کمک کنه
سلام
خواهشمند است کمک کنید
:ناراحت:
سلام
راهش خيلي ساده تر از اين حرفاست
تو خاصيت Connect كنترل ديتا عبارت زير رو اضافه كنيد
pwd=...
مثلا
Data1.Connect=Access;pwd=12345
يا
Data1.Connect=Access2000;pwd=123456
سلام دوستاننقل قول:
نوشته شده توسط vbhamed
روشی که حامد جان گفتند برای رمز بانک می باشد من یه نمونه برنامه کوچیک می خوام که برنامم رو توسط کنترل Data به بانک وصل کنم در ضمن بانکم هم پسورد دارد .
خواهش می کنم یکی کمک کنه
کارم گیرهههههههههههههههه
سلام
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
سلام میشه یه نمونه برنامه بذارید که بانک پسورد را از طریق کنترل دیتا هر جا که هست پیدا کنه و اطلاعات یکی جدولشو در دیتا گرید نشون بده ؟
خواهش می کنم کمک کنید این همه برنامه نویس و یکی نیست کمک کنه
سلام
اينك يك نمونه :
سلام
ممنونم بابت کمکتون ولی برنامه خطا میده
سلام
در قسمت Connect به جاي Access 2000 از Ms Access استفاده كنيد، البته با نصب سرويس پك 6 ويژوال استوديو مشكل به شكل بهتري حل ميشه
سلام
click.1387 عزيز
جواب سؤالي كه تو پيام خصوصي نوشتيد رو اينجا گذاشتم چون نمي دونم چرا جواب پيام خصوصي براتون ارسال نميشه و اين پيام خطا رو ميده، از طريق مديريت (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