چگونگي پسوورد گذاري بر روي Access

[MohammadGh2011]

سلام دوستان عزيز
دوستان چگونه ميشه كه رو يك بانك اطلاعاتي Access رمز گذاشت كه به vb وصل هستش؟
يعني وقتي پسوورد گذاشته ميشه vb هم خطا نگيره.
يعني چگونه ميشه كه ديگران كه ميخوان از برناممون استفاده كنند موقع نصب برناممون به بانك اطلاعاتي دسترسي نداشته باشند كه از اون كپي بگيرند يا براي برنامه هاي خودشون از اون استفاده كنند؟:چشمک:
ممنونم

[sepehr2009]

دوست من وقتی رو دیتابیس پسورد میزاری باید تو vb هم موقع بارگزاری دیتابیس پسورد هم ست کنی این نمونه کد رو نگاه کن :


Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\accesfile.mdb;Jet OLEDB:Database Password=15412;"

[MohammadGh2011]

دوست عزيز من نفهميدم كه از اين كد چه جوري استفاده كنم!
چه جوري ميتونم رو Access و رو vb هم رمز بزارم.
ميشه يه توضيح مختصر در مورد رمز پايگاه داده بنويسيد؟ويك سورس ساده براي يادگيري بزاري؟؟؟!
ممنون

[SlowCode]

آقا محمد این دوستمون از کنترل ADO استفاده کردن، توی قسمت پایگاه داده سورس های آماده موجود است.

[sehm67]

Dim db As DAO.Database
Private Sub Form_Load()
Set db = DBEngine.OpenDatabase(App.Path & "\bank.mdb", True, False, ";pwd=123")
db.NewPassword "123", "123"
db.Close
End Sub

[meli66]

سلام دوستان.چه کدی لازم است که دریک رپورت وقتی شماره موجود دریک فیلد به یک اندازه معین رسید رنگ پس زمینه ان فیلد مثلا قرمز شود . مثلا موجودی کالائی 100 است وقتی این موجودی به مثلا 40 رسید پس زمینه ان فیلد قرمز شود.باتشکر