مشکل پسورد در دیتابیس

[Navid Asadi]

اول از همه اگه جاش اینجا نیست انتقالش بدین حذفش نکنین!

من برنامه ای رو نوشتم و الآن میخوام براش پسورد بزارم اما تو Cn.open ارور زیر رو میگیرم دلیلش چیه؟



کد : cn = New OleDbConnection("Provider=microsoft.Jet.Oledb.4.0;Data Source ='" & Main.DatabaseAd & "';Jet OLEDB:Database Password=66C4CB506EE1CD0355;")
cn.Open()


ارور :

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

[Dr.Bronx]

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;

موفق باشید ./

[Navid Asadi]

آقا دستت درست
اما حالا یک مشکل دیگه دارم اونم اینه که من برای پسورد گذاری مجبور شدم دیتابیس رو exclusive باز کنم!
حالا چطوری از این حالت درش بیارم؟
اینم ارورش :

Cannot start your application. The workgroup information file is missing or opened exclusively by another user.

[Dr.Bronx]

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

اگر نشد . ابتدا برنامه اکسس رو باز کنید و بعد فایل رو open exclusive کنید و مجددا ببندید .

موفق باشید ./

[Navid Asadi]

آقا هر کاری کردم نشد!
اون فایل هم که اصلا در هنگام اجرا قابل حذف نیست....
کمک!

[Hossis]

من هم يک بار همين کار رو کردم
شما به اين طريق عمل کنيد
اول با پسورد، ديتابيس رو با اکسس باز کنيد
بعد
برنامه اکسس رو باز کنید و بعد فایل رو open exclusive کنید و مجددا ببندید .

[Navid Asadi]

آقا نشد که بازم!
من اول دیتابیس رو باز کردم (با پسورد بعد) بدون این که ببندمش EXCLUSIVE تو یه صفحه دیگه بازش کردم...
هین کار رو به چند روش دیگه هم کردم اما نشد!
تو MSDN هم مطرح کردم جواب زیر رو بهم دادن که نتونیتم باهاش کار کنم :

You need to add the System.mdw file that the db uses to retrieve the user log ons from in your connection string.

here is a MSDN example


Sub ADOOpenSecuredDatabase()

Dim cnn As New ADODB.Connection

cnn.Provider = "Microsoft.Jet.OLEDB.4.0;"
cnn.Properties("Jet OLEDB:System database") = _
"C:\Program Files\Microsoft Office\Office\SYSTEM.MDW"

cnn.Open "Data Source=.\NorthWind.mdb;User Id=Admin;Password=;"
cnn.Close

End Sub

اصلا این دستور رو نمیشناسه (درواقع این رو : ADODB.Connection):
Dim cnn As New ADODB.Connection

[Dr.Bronx]

شما باید کتابخانه Microsoft activex data object library یا به اصطلاح ADODB رو به refrence ها اضافه کنید.

البته این کاری که اینجا توضیح داده شده . همون کاری هست که بنده عرض کردم خدمتتون

یک بار بانک رو باز می کنه


cnn.Open "Data Source=.\NorthWind.mdb;User Id=Admin;Password=;"

و بعدش هم میبنده


cnn.Close

موفق باشید ./

[Navid Asadi]

اون رو انجام دادم ولی مشکل دیگه این جاست :

cnn.Properties("Jet OLEDB:System database") = _
"C:\Program Files\Microsoft Office\Office\SYSTEM.MDW"
این خط رو کلا ارور میگیره !

[Navid Asadi]

آقا
یعنی هیچکس نمیتونه مشکل ما رو حل کنه ؟