قرار دادن پسورد روی دیتابیس اکسس

[park]

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

[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
اميدوارم تونسته باشم كمكتون كرده باشم