روش Password Protected کردن یک بانک و دسترسی به آن از طریق ADO

[j.behrouzi]

می خوام روی دیتابیس رمز بذارم و با ado به اون وصل بشم این کارو می کنم ولی خطا می ده یکی کمک کنه به من آموزششو بده
ممنون!

[sehm67]

می خوام روی دیتابیس رمز بذارم و با ado به اون وصل بشم این کارو می کنم ولی خطا می ده یکی کمک کنه به من آموزششو بده
ممنون!

این مثال با DAO کار شما رو راه میندازه ؟

[1101001]

با سلام
شما با این کد میتونید به هر بانکی متصل شوید، فقط کافیه نوع اون رو مشخص کنید

Public cn As New ADODB.Connection

Public Rs As New ADODB.Recordset

Public path, ramz, ramz_Net, Provide As String





   path = App.Path & "\Database\DB.mdb"

   ramz = "Password"

   ramz_Net = ";database=" + Left(path, Len(path) - 4) + ";pwd=" + ramz

   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

[sehm67]

می خوام روی دیتابیس رمز بذارم و با ado به اون وصل بشم این کارو می کنم ولی خطا می ده یکی کمک کنه به من آموزششو بده
ممنون!

ارتباط Adodc برای بانک اکسس 2000 و 2003 :

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;JET OLEDB:Database Password=;Data source =" & App.Path & "\Bank.mdb"

Adodc1.RecordSource = "Select * from table1"

Adodc1.Refresh

اکسس 2007 :

Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & App.Path & "\Bank.accdb ;Jet OLEDB:Database Password=;"

Adodc1.RecordSource = "SELECT * FROM Table1 "

Adodc1.Refresh

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