ABRIR BD COM SENHA

ERLANMG 05/07/2007 08:30:42
#224720
Caros amigos,

Gostaria de saber como faço para abrir meu banco de dados com senha.

Banco de Dados: ACCESS 97
VB: 6
Uso objeto data para ligar o bd.

Dentro do modulo coloquei:

Function define(f As Form, caminho)
'On Error Resume Next
Dim Ctl
For Each Ctl In f.Controls
    If TypeOf Ctl Is Data Then
        Ctl.DatabaseName = caminho
        Ctl.Refresh
    End If
Next
End Function


Public Function leini(arq As String)
     Open App.Path & "\" & arq For Input As #1
         Do Until EOF(1)
             Input #1, LcLin ''

             If UCase(LcLin) Like "DBPATH*" Then
                 LnIni = InStr(1, LcLin, "=") + 1
                leini = Trim(Mid$(LcLin, LnIni, Len(LcLin)))
             End If
         Loop
         Close #1 '
End Function


No diretório onde esta o sistema uso um arquivo .ini.

Dentro desse arquivo coloquei: dbpath= caminho onde esta o BD

E dentro do load do form coloco:

dbpath = leini("arquivo.ini")
gg = define(Me, dbpath)

Como faço para abrir O BD com senha.

Desde já agradeço a atenção dispensada.

Obrigado.
SILVIO.GARCIA 05/07/2007 08:53:25
#224727
Option Explicit

Public ConexaoGeral As New ADODB.Connection
Public fMainForm As FrmAbertura

Dim LocalBanco
Dim StrArquivo As String
Dim StrLocal As String
Dim ConectaAccess As String

Sub Main()

Set ConexaoGeral = CreateObject("ADODB.Connection")
    ConexaoGeral.Mode = adModeReadWrite 'Leitura e Escrita

StrArquivo = "Banco.mdb"
StrLocal = App.Path
ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & StrArquivo & ";" & _
"DefaultDir=" & StrLocal & ";" & _
"Uid=Admin;Pwd=suasenha;"

ConexaoGeral.Open ConectaAccess
Set fMainForm = New FrmAbertura
fMainForm.Show

End Sub




t+
USUARIO.EXCLUIDOS 05/07/2007 08:53:48
#224728


Tenta isso

Set BD = OpenDatabase(App.Path & "\Banco.mdb", False, False, ";PWD=123456")

e para o Data acessar banco com senha...vc tem q atualizar o vb com sp6..e colocar na propriedade Connect do data a opção Access2000

boa sorte
Tópico encerrado , respostas não são mais permitidas
Voltar