پسورد برای دیتا بیس

[arp220]

من چطوری می تونم روی بانک اطلاعاتی که با استفاده از خود ویژوال و با ورژن 7 اونو ساختم پسورد بذارم و فقط از طریق خود کد برنامه باز بشه و اجازه دست رسی را به کار بر بده

[m_vb6]

هنوز هم جواب میخواهید ؟

[lord_viper]

بستگی به بانکتون داره معمولا اکسس یا sqlserver یا paradox قابلیت تعریف پسورد دارن که البته در مورد دوم وسوم نمیشه به پسوردشون اعتماد کرد که در این حالت میتونی بانکتو با یه الگوریتم انکریپت کنی و برای باز کردنش و خوندن دیتاها از کاربردرخواست پسورد کنی

[samyar_esm]

سلام عزيزم
اگه از DAO Control استقاده ميكني در قسمت 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=SAMYAR
("Set rs = db.OpenRecordset("SELECT * FROM Sample
End Sub
همانطور که می بینید من کلمه عبور پایگاه داده را به طور پیش فرض SAMYAR قرار داده ام . ولی شما باید کلمه عبور پایگاه داده خود را به جای آن قرار دهید .
همانگونه که ما در هنگام استفاده از کنترل Data از رکوردست آن برای انجام کارهایی از قبیل جستجو و یا حرکت در بین رکوردها استفاده می کردیم ، حال باید این کارها را با rs انجام دهیم . نکته مهمی که در اینجا باید به آن توجه داشته باشید این است که شما اگر بخواهید اطلاعات درون یک فیلد را در یک TextBox نمایش دهید باید به طور دستی داده ها را از فیلد مورد نظر به جعبه متن مورد نظر انتقال دهید .
در این حال شما نباید خاصیت های DataSource و DataField جعبه متن خود را تنظیم کند :
()Private Sub CmdNext_Click
rs.MoveNext
("Text1= rs("Name
End Sub
در این مثال کد مربوط به دکمه ای که به رکورد بعدی حرکت می کند را می بینید که محتویات فیلد نام را در Text1 نمایش می دهد .
----------------------------------------------------------------------------------------
ولي اگه از ADO استفاده مي كني (MicroSoft ADO Data Control 6.0 درلیست Componnent ها قرار دارد به جعبه ابزار خودتون اضافه کنید )در Form_Load بنویسید :
()Private Sub Form_Load
_& ";Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0
" Data Source=" & App.Path & "\db.mdb;Jet OLEDBatabase Password=Media;"
"Adodc1.RecordSource = "SELECT * FROM Sample
Adodc1.Refresh
End Sub
اميدوارم تونسته باشم كمكتون كرده باشم

[vahidazad]

سلام دوست عزيز
بوسيله ADO چطور ميتونيم پسورد تغيير بديم؟

[parviin]

من بانک اطلاعاتی برنامم رو با خود ویژوال ساختم. چطوری روش پسورد بذارم تا کسی نتونه بانک اکسس رو باز کنه ولی برنامه بتونه. از کنترل دیتا هم استفاده کردم.