[Resolvido]Senha no be atraves de codigo...

Bem amigos.. utilizando o Workspaces eu sei.. mas como fazer isto no código abaixo?


'******************************************************************
'FUNÇÕES DE CAREGAMENTO DAS COMBO REDE
'******************************************************************

'Carrega as ComBox's usadas na Rede
Private Sub CarregaCombo()
On Error GoTo TrataErro

Parametros_de_Inicializacao "SysPen.par"
Dim StrCboDetento As String
Dim NomeBD As String
Dim StrPath As String
Dim dbBanco As Database
Dim VarReg As String
Dim VarUnidade As String

VarReg = RegimeAtual
VarUnidade = UnidadeOrigem

NomeBD = "bio_be.accdb"

'String com path para conexão com a base de dados.
StrPath = DirBancoDados & NomeBD ' Conecta ao banco de dados comum
Set dbBanco = OpenDatabase(StrPath)

'ComBox CboDetento
StrCboDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] FROM Detentos IN '" & StrPath & "'" _
& "WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "'" _
& "Order By Nome, Sobrenome ASC;"

Me.CboDetento.RowSource = StrCboDetento
Me![CboDetento].ColumnCount = 2
Me![CboDetento].ColumnWidths = "0cm; 10cm"

'Encerra a conexão
dbBanco.Close
Set dbBanco = Nothing
Exit Sub
TrataErro:
DoCmd.SetWarnings True
DoCmd.Hourglass False
MsgBox Error, , "Erro nº" & err & " ao Carregar combo"
End Sub

Tentei assim, mas deu senha invalida.. porem a senha esta correta pois utilizo solução semelhante para recordset

Código:

'******************************************************************
'FUNÇÕES DE CAREGAMENTO DAS COMBO REDE
'******************************************************************

'Carrega as ComBox's usadas na Rede
Private Sub CarregaCombo()
On Error GoTo TrataErro

Parametros_de_Inicializacao "SysPen.par"
Dim StrCboDetento As String
Dim NomeBD As String
Dim StrPath As String
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim VarReg As String
Dim VarUnidade As String

    VarReg = RegimeAtual
    VarUnidade = UnidadeOrigem

NomeBD = "bio_be.accdb"
   
    'String com path para conexão com a base de dados.
    StrPath = DirBancoDados & NomeBD    ' Conecta ao banco de dados comum
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(DirBancoDados & "\bio_be.accdb", False, False, "MS Access;PWD=221422723476")
    'expressão.OpenDatabase(Name, Options, ReadOnly, Connect)


   
    'ComBox CboDetento
    StrCboDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] FROM Detentos IN '" & StrPath & "'" _
                    & "WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "'" _
                    & "Order By Nome, Sobrenome ASC;"

                Me.CboDetento.RowSource = StrCboDetento
                Me![CboDetento].ColumnCount = 2
                Me![CboDetento].ColumnWidths = "0cm; 10cm"
               
    'Encerra a conexão
    db.Close
    Set db = Nothing
Exit Sub
TrataErro:
    DoCmd.SetWarnings True
    DoCmd.Hourglass False
    MsgBox Error, , "Erro nº" & err & " ao Carregar combo"
End Sub

Novidades por aqui amigos?

Deveria funfar.

No entanto vejo que você não está a fechar o Workspace

'Encerra a conexão
db.Close
ws.Close
Set db = Nothing

Teste reduzindo a senha para 123.

A senha no workspace funciona amigão....

O que não esta a funcionar é aqui:

StrCboDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] FROM Detentos IN '" & StrPath & "'" _


Parece carregar a combo normalmente... mas quando eu clico na combo é que fala senha inválida e não no workspace...

Ele abre o form normal... Executa o Workspace...Não dá erro nenhum...

Mas quando clico na combo fala senha invalida.. sem numero de erro.. apenas senha invalida...

Parece-me que o caminho contido em StrPath deveria ter uma senha tambem...

Se houver outro modo de carregar essa SQL na Combo tambem serviria..

Tentei com o Recordset...

Mas na hora de aplicar o recordset na combo dá tipos invalidos...

Dá uma luz amigão...

Reduzi para 123 o resultado foi o mesmo...

será assim:
Parametros_de_Inicializacao "SysPen.par"
Dim StrCboDetento As String
Dim NomeBD As String
Dim StrPath As String
Dim VarReg As String
Dim VarUnidade As String

VarReg = RegimeAtual
VarUnidade = UnidadeOrigem

NomeBD = "bio_be.accdb"

'String com path para conexão com a base de dados.
StrPath = DirBancoDados & NomeBD ' Conecta ao banco de dados comum

'ComBox CboDetento
StrCboDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] FROM Detentos IN '" & StrPath & "'" _
& " WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "'" _
& " Order By Nome, Sobrenome ASC;"

Me.CboDetento.RowSource = StrCboDetento
Me![CboDetento].ColumnCount = 2
Me![CboDetento].ColumnWidths = "0cm; 10cm"

Exit Sub
TrataErro:
DoCmd.SetWarnings True
DoCmd.Hourglass False
MsgBox Error, , "Erro nº" & err & " ao Carregar combo"
End Sub

Amigão.. o problema é que preciso da Senha....

Assim ele era... o que preciso e colocar a senha...

Obrigado

Não percebi o que lhe faltava. tente
StrCboDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] FROM Detentos IN '" & StrPath & "' ;Pwd='Senha'" _
& " WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "'" _
& " Order By Nome, Sobrenome ASC;"

Caracteres encontrados apos a instruçào SQL.....Erro

carregue por workspace

Olá

Fiz um teste aqui e funcionou com a seguinte sintaxe:

strsql = "SELECT usuario FROM tblusuários IN '' [;Database=c:\maestro\maestro_v2_be.accdb;pwd=a1234]"

Obs. Depois do IN é usado dois apóstrofes e não Aspas.

Veja mais detalhes no link abaixo:

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/1121000932?r=1121000932#1121000932

Sucesso!

Valeu mesmo Avelino.. Ja estavas a ficar louco com isto...

Código:


    'ComBox CboDetento
    StrCboDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] FROM Detentos IN '" & StrPath & "'[Ms Access;PWD=senha;DATABASE='" & StrPath & "']" _
                    & "WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "'" _
                    & "Order By Nome, Sobrenome ASC;"
               
                Me.CboDetento.RowSource = StrCboDetento
                Me![CboDetento].ColumnCount = 2
                Me![CboDetento].ColumnWidths = "0cm; 10cm"

Obrigado a todos pela Ajuda...