SENHA NO BANCO DE DADOS ACCESS
como insiro usuario e senha nessa conexão?
na hora de acessá-lo precisa mudar algo?
Sei que isso é bem simples mas não achei nada que se encaixasse na minha maneira de
conectar ao bd.
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public path As String
Public Sub ConnectDB()
path = App.path & [Ô]\BDA.mdb[Ô]
db.Open [Ô]Provider=microsoft.jet.oledb.4.0;data source=[Ô] & path
End Sub
na hora de acessá-lo precisa mudar algo?
ConnectDB
rs.Open [Ô]Select * from tblCad[ô]order by DataBD[Ô], db, 3, 3
Sei que isso é bem simples mas não achei nada que se encaixasse na minha maneira de
conectar ao bd.
Public db As New ADODB.Connection [ô]Se for declarado no Módulo
Public rs As New ADODB.Recordset [ô] Se for declarado no Módulo
Public path As String [ô] Sem necessidade nenhuma.
ConnectDB
rs.Open [Ô]Select * from tblCad[ô]order by DataBD[Ô], db,[txt-color=#e80000] 3, 3[/txt-color]
Sabe o que é isto.Se sabe beleza,caso não procure.
Cria o DesconnectDB.
Conecta ao banco, eu particularmente não gosto deste modo.
Public rs As New ADODB.Recordset [ô] Se for declarado no Módulo
Public path As String [ô] Sem necessidade nenhuma.
ConnectDB
rs.Open [Ô]Select * from tblCad[ô]order by DataBD[Ô], db,[txt-color=#e80000] 3, 3[/txt-color]
Sabe o que é isto.Se sabe beleza,caso não procure.
Cria o DesconnectDB.
Conecta ao banco, eu particularmente não gosto deste modo.
Citação::
Public db As New ADODB.Connection [ô]Se for declarado no Módulo
Public rs As New ADODB.Recordset [ô] Se for declarado no Módulo
Public path As String [ô] Sem necessidade nenhuma.
ConnectDB
rs.Open [Ô]Select * from tblCad[ô]order by DataBD[Ô], db,[txt-color=#e80000] 3, 3[/txt-color]
Sabe o que é isto.Se sabe beleza,caso não procure.
Cria o DesconnectDB.
Conecta ao banco, eu particularmente não gosto deste modo.
OMAR, valeu por comentar, eu já tenho um desconectaBD e eu sei o que é o rs.open, só preciso colocar uma
senha no meu bd que é em Access e acessa-lo
Set rs = Nothing
db.Close: Set db = Nothing
No access não vai Usuário, só Senha.
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & BancoIMG & [Ô];Jet OLEDB:Database Password=290901;[Ô]
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & BancoIMG & [Ô];Jet OLEDB:Database Password=290901;[Ô]
O bem da verdade não é rs.open e sim,
rs.Open [Ô]Select * from tblCad[ô]order by DataBD[Ô], db, [txt-color=#e80000]3, 3.[/txt-color]
O que está de vermelho.
Igual ao Nilsontres comentou.Cria tabela de acesso.
Acho melhor procurar um banco de dados.
rs.Open [Ô]Select * from tblCad[ô]order by DataBD[Ô], db, [txt-color=#e80000]3, 3.[/txt-color]
O que está de vermelho.
Igual ao Nilsontres comentou.Cria tabela de acesso.
Acho melhor procurar um banco de dados.
é rapaz pelo jeito você não soube procurar, pegue aqui os diversos exemplos http://www.connectionstrings.com/
Abraços
Abraços
[Ô]PROVIDER=Microsoft.Jet.Oledb.4.0;Data Source=[Ô] & App.Path & [Ô]\dados.mdb;Jet oledb:Database Password=[Ô] & SenhaDB & [Ô];[Ô]
Tópico encerrado , respostas não são mais permitidas