COMO ABRIR UM DB COM SENHA?
olá amiguinhos...
estou usando DAO com DATAOBJECT e é assim que crio o recodset:
DtCC.DatabaseName = DriveTrabalho + "\Arquivos de programas\Down_Ups\dados\" + Viniciais + "\comercial.mdb"
DtCC.RecordSource = "Clientes"
a partir daqui, utilizo clausulas SQL que variam de acordo com a nescessidade...
Pergunta:
como façõ para utilizar senha no BD?
OBRIGADUUUUUUUU!!!!
estou usando DAO com DATAOBJECT e é assim que crio o recodset:
DtCC.DatabaseName = DriveTrabalho + "\Arquivos de programas\Down_Ups\dados\" + Viniciais + "\comercial.mdb"
DtCC.RecordSource = "Clientes"
a partir daqui, utilizo clausulas SQL que variam de acordo com a nescessidade...
Pergunta:
como façõ para utilizar senha no BD?
OBRIGADUUUUUUUU!!!!
Se for abrir via Objeto Data (denominado DtCC)
Se não me engano no próprio 'DtCC' vai ter uma propriedade chamada PASSWORD tipo
...
Abraços,
Se não me engano no próprio 'DtCC' vai ter uma propriedade chamada PASSWORD tipo
DtCC.Password = "1234"...
Abraços,
Abrir Banco de Dados com Senha - DAO
Caso você tenha definido uma senha para seu banco de dados, abra-o desta maneira:
DAO
Sub DAOAbrirBDProtegido()
Dim DB As DAO.Database
'O parà ¢metro pwd (q é a senha - 4o parà ¢metro) é case
'sensitive (diferencia A de a) e - ao contrário do que
'diz a documentação do VB - os parà ¢metros exclusive e
'read-only (2o e 3o parà ¢metros) devem ser falsos.
Set DB DBEngine.OpenDatabase(App.Path & "\SeuBD.MDB", _
False, False, ";pwd=senha")
DB.Close
End Sub
Onde "senha" é a sua senha. Quer dizer, subistitua "senha" pela senha do banco de dados.
Caso você tenha definido uma senha para seu banco de dados, abra-o desta maneira:
DAO
Sub DAOAbrirBDProtegido()
Dim DB As DAO.Database
'O parà ¢metro pwd (q é a senha - 4o parà ¢metro) é case
'sensitive (diferencia A de a) e - ao contrário do que
'diz a documentação do VB - os parà ¢metros exclusive e
'read-only (2o e 3o parà ¢metros) devem ser falsos.
Set DB DBEngine.OpenDatabase(App.Path & "\SeuBD.MDB", _
False, False, ";pwd=senha")
DB.Close
End Sub
Onde "senha" é a sua senha. Quer dizer, subistitua "senha" pela senha do banco de dados.
O objeto data não libera o uso de password entaum oq vc pode fazer
dagamos q vc tenha um objeto data chamado Data1
e vc queira preencher com os dados da tabela Clientes, do banco de dados Comercial, que tem a senha definida como 12
1º vc deve eliminar no objeto Data1, a propriedade DataBaseName como embranco
Dim Db as database - conexao com o banco
Dim Ts as recordset - tabela Clientes
'definindo a conexao e abertura do banco de dados
Set Db = OpenDatabase("C:\Comercial.mdb", False, False, ";pwd=12")
'abrindo a tabela Clientes
Set Ts = Db.OpenRecordset("SELECT * FROM Clientes", , ,3)
Set Data1.Recordset = Ts
2º Desta maneira o seu objeto Data ira receber os dados da tabela Clientes, e abrindo o banco de dados, as demais definições dos objetos como DataSource e DataField, vc mantem da mesma forma e os eventos tb como Addnew, Delete, ou seja vc usa da mesma maneira que vc estava usando so q com uma vantagem vc pode desconectar o banco deixando a memoria livre e o banco livres
espero ter ajudado
dagamos q vc tenha um objeto data chamado Data1
e vc queira preencher com os dados da tabela Clientes, do banco de dados Comercial, que tem a senha definida como 12
1º vc deve eliminar no objeto Data1, a propriedade DataBaseName como embranco
Dim Db as database - conexao com o banco
Dim Ts as recordset - tabela Clientes
'definindo a conexao e abertura do banco de dados
Set Db = OpenDatabase("C:\Comercial.mdb", False, False, ";pwd=12")
'abrindo a tabela Clientes
Set Ts = Db.OpenRecordset("SELECT * FROM Clientes", , ,3)
Set Data1.Recordset = Ts
2º Desta maneira o seu objeto Data ira receber os dados da tabela Clientes, e abrindo o banco de dados, as demais definições dos objetos como DataSource e DataField, vc mantem da mesma forma e os eventos tb como Addnew, Delete, ou seja vc usa da mesma maneira que vc estava usando so q com uma vantagem vc pode desconectar o banco deixando a memoria livre e o banco livres
espero ter ajudado
Tópico encerrado , respostas não são mais permitidas