BD COM DAO
trabalho com dao e gostaria de saber como abre bd access com senha...
e tb como faz backup do bd...
alguem pode me ensina?
agradesco desde já...
e tb como faz backup do bd...
alguem pode me ensina?
agradesco desde já...
Opa...
Faça isso:
Dim Banco as Database
Dim Tabela as recordSet
Set Banco = OpenDatabase("Caminho\Banco.mdb", False, False, ";PWD=senha")
Set Tabela = Banco.OpenRecordser ("Tabela")
Não esquecendo de Referenciar a biblioteca.
Microsoft DAO 2.5/3.1...
Agora qto ao Backup..faça simples cópia de arquivo
FileCopy CaminhoDoBancoOriginal\Banco.mdb, CaminhodoBackup\BancoBackup.mdb
Qq coisa posta novamente
Boa sorte
Alex,
O post do sinkertec esta correto porém é necessario fazer um ajuste, seu banco provavelmente deve ser em access então ficaria assim:
Set banco = OpenDatabase(caminho, False, False, "MS Access;PWD=senha")
o resto pode usar do post acima que funciona, só a definição da senha é normalmente dá erro.
O post do sinkertec esta correto porém é necessario fazer um ajuste, seu banco provavelmente deve ser em access então ficaria assim:
Set banco = OpenDatabase(caminho, False, False, "MS Access;PWD=senha")
o resto pode usar do post acima que funciona, só a definição da senha é normalmente dá erro.
referencia
DAO3.1
Dim Banco as Database
Dim Tabela as recordSet
Set banco = OpenDatabase(caminho, False, False, "MS Access;PWD=senha")
Set Tabela = Banco.OpenRecordser ("Tabela")
flw
DAO3.1
Dim Banco as Database
Dim Tabela as recordSet
Set banco = OpenDatabase(caminho, False, False, "MS Access;PWD=senha")
Set Tabela = Banco.OpenRecordser ("Tabela")
flw
Roberto, devido a referencia nÂÂ'é necessário essa parte > "MS Access <.
Esse erro acontecia pq muita gente n colocava o False, e deixavam assim
caminho,,,";PWD=senha")
mas o certo é
caminho,False,False,";PWD=senha")
Gustavo, pode mandar ver e boa
Boa sorte
Eu uso igual ao Sinkertec, só acrescento o Workspace:
Dim Banco as Database
Dim Tabela as recordSet
Public WK As Workspace
Dim dbnome As String
dbnome = "\Escola.mdb"
Set WK = DBEngine.Workspaces(0)
Set Banco = OpenDatabase("Caminho & dbnome", False, False, ";PWD=senha")
Set Tabela = Banco.OpenRecordser ("Tabela", dbOpenDynaset)
Claudiney
CAS Systems
Dim Banco as Database
Dim Tabela as recordSet
Public WK As Workspace
Dim dbnome As String
dbnome = "\Escola.mdb"
Set WK = DBEngine.Workspaces(0)
Set Banco = OpenDatabase("Caminho & dbnome", False, False, ";PWD=senha")
Set Tabela = Banco.OpenRecordser ("Tabela", dbOpenDynaset)
Claudiney
CAS Systems
Desculpe faltou o "Public"
Public Banco as Database
Public Tabela as RecordSet
Public WK As Workspace
Dim dbnome As String
dbnome = "\Escola.mdb"
Set WK = DBEngine.Workspaces(0)
Set Banco = OpenDatabase("Caminho & dbnome", False, False, ";PWD=senha")
Set Tabela = Banco.OpenRecordser ("Tabela", dbOpenDynaset)
Claudiney
CAS Systems
Public Banco as Database
Public Tabela as RecordSet
Public WK As Workspace
Dim dbnome As String
dbnome = "\Escola.mdb"
Set WK = DBEngine.Workspaces(0)
Set Banco = OpenDatabase("Caminho & dbnome", False, False, ";PWD=senha")
Set Tabela = Banco.OpenRecordser ("Tabela", dbOpenDynaset)
Claudiney
CAS Systems
O workspace eu usaria caso eu necessitasse que o vb compactase ou reparasse meu banco..
daàeu usaria o Workspace..
Se n for necessário, n uso e economiso memória
é isso aÃÂÂ!!
Tópico encerrado , respostas não são mais permitidas