ارتباط با اکسس رمزدار

[ali162]

سلام خدمت همه دوستان
من روی بانک اکسسم رمز گذاشتم و می خوام این بانک رو به برنامه ام ارتباط بدم ولی نمیدونم چه جوری کد نویسیش کنم لطفا راهنماییم کنید؟
برای ارتباط از adodc استفاده کرده ام

[samiasoft]

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;JET OLEDB:Database Password=12345;" _
& "Persist Security Info =True;Data Source=" & App.Path & "\sami.mdb"

[M-M-Mojtaba]

با سلام. من با adodb برنامه ام را نوشته ام. كد بالا را به صورت زير امتحان كردم ولي خطا مي دهد. لطفاً راهنمايي ام كنيد.
Dim cnn As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset
cnn.Open "provider=microsoft.jet.oledb.4.0 ;jet.oledb:database password=99999;persist security info=true; data source=d:\sandogh\data01\sandogh.mdb"
rst1.Open "list_aza", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
rst2.Open "daftar_kol", cnn, adOpenKeyset, adLockOptimistic, adCmdTable

راستي پيغام خطايش به صورت زير است.
could not find installable ISAM
با تشكر

[Is Null]

با سلام.

سلام، شما یه مقدار جستجو میکردی راه حل رو پیدا میکردی !


Private Sub Form_Load()
path_ = App.Path & "\Database\DB.mdb"
ramz = "123"
Provide = "MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=MS Access Database;DBQ=" + path_ + ";DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;;PWD=" + ramz + ";UID=admin;"
cn.Provider = Provide
cn.Open

Rs.Close
With Rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.ActiveConnection = cn
End With
End Sub



Rs.Close
Rs.Open "select * from table1 "
Rs.Requery
Rs.MoveFirst
Rs.MoveLast
Rs.MoveFirst

[M-M-Mojtaba]

با سلام. دوست عزيز كدي كه در بالا نوشته اي را وارد كردم ولي خطا مي دهد.
بانك اطلاعاتي من اكسس است.
شكل كلي دستور connection را هم پيدا كردم.
connection.open connectionstring,userid,password,options
من تا اينجاي دستور را نوشته ام و خطايي نمي دهد.
connection.open "provider=microsoft.jet.oledb.3.51;data source=c:\test.mdb"
حالا طبق دستور كلي بالا وقتي مي نويسم برنامه خطا مي دهد.
connection.open "provider=microsoft.jet.oledb.3.51;data source=c:\test.mdb",,"9999"
لطفاً راهنمايي ام كنيد.
در ضمن من به روش زير در فايل اكسس براي بانك اطلاعاتي ام رمز گذاشته ام. ابتدا فايل را به طريق Exclusive باز كردم و در قسمت database tools براي آن رمز گذاشته ام.
با تشكر

[M-M-Mojtaba]

خواهش مي كنم يكي جوابم را بدهد.

[m.4.r.m]

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

[M-M-Mojtaba]

سلام. واقعا دستت درد نكند. خيلي كمكم كردي. ممنوتم.

[M-M-Mojtaba]

سلام. از كد بالا استفاده كردم و مشكلم در رابطه با ارتباط با فايل اكسس تا حدود خيلي زيادي برطرف شد. اما اينبار به يك مشكل ديگر برخورد كردم. وقتي مي خواهم از كنترل Adodc جهت ارتباط با بانك اطلاعاتي استفاده كنم بعد از مشخص كردن Provider و بانك اطلاعاتي و وارد كردن پسورد وقتي كليد Test connection را مي زنم پيغام زير مي آيد.
Test connection failed because of an error in initializing provider. Cannot start your application. The workgroup information file is missing or opened exclusively by another user.
لطفاً كمكم كنيد.
متشكرم.

[M-M-Mojtaba]

سلام به همه اعضاي سايت.
بابا يكي جوابم را بدهد.
قبلا تشكر مي كنم.

[arash ka]

از این کد استفاده کن
دیگه لازم نیست مسیر کانکشن رو دستی تنطیم کنی


On Error Resume Next
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & App.Path & "\db.mdb;jet oledb:database password=1234;"
Adodc1.RecordSource = "SELECT * FROM Tabel"
Adodc1.Refresh


با این کد بانک اطلاعاتی با نام db که در کنار برنامه باشه اجرا میشه
بجای db نام بانک خودتو بذار
بجای پسوردی که من گذاشتم پسورد خودتو بذار
بجای tabel هم نام تیبل خودتو بذار
یادت نره که بانک باید کنار برنامت باشه
و object Adodc1 رو فرم قرار داده شده باشه