|
Postada em 06/02/2006 13:56 hs
Como faço para abrir uma base de dados com o ADO de modo seguro? Com o DAO isto funciona: DBEngine.SystemDB = App.Path & "Segurança.mdw" Set Wk = DBEngine.CreateWorkspace("", "Usuário", "Senha") Set db = Wk.OpenDatabase(App.Path & "ase.mdb") E com o ADO?
|
|
|
|
|
Postada em 06/02/2006 17:52 hs
|
|
|
|
Postada em 07/02/2006 06:40 hs
Vc usa o OleDB Provider ou ODBC pra conectar?
Elieser Carlos Topassi Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil _____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
Postada em 07/02/2006 06:42 hs
Pra conexao via ODBC a ConnectionString fica assim: Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:mydatabase.mdb; SystemDB=C:mydatabase.mdw; Uid=NomeUsuario; Pwd=SenhaUsuario;"
Elieser Carlos Topassi Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil _____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
Postada em 07/02/2006 06:44 hs
Pra conexao via OleDB (Jet Engine) fica assim: "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:mydb.mdb; Jet OLEDB:System Database=system.mdw; User Id=Usuario; Password=Senha;"
Elieser Carlos Topassi Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil _____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
Postada em 07/02/2006 13:20 hs
Estou usando o procedimento abaixo e ñ está dando certo: With db .Mode = adModeReadWrite .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "BaseBase.mdb" & "; Jet OLEDB:System Database=" & App.Path & "BaseSegurança.mdw" & "; User Id=USER; Password=SENHA;" .Open End With
|
|
|