MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    Problema após colocar Password no backend - SEEK em tabelas vinculadas

    avatar
    avaz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 30
    Registrado : 14/08/2013

    Problema após colocar Password no backend - SEEK em tabelas vinculadas Empty Problema após colocar Password no backend - SEEK em tabelas vinculadas

    Mensagem  avaz 7/12/2016, 15:43

    Caros amigos

    Implementei este codigo na minha DB na qual funciona na perfeição

    O problema surgiu quando coloquei password no backend

    Pergunto? há alguma maneira de dar a volta a questão, pois gostaria de manter o BE protegido

    Obrigado desde já a todos

    '************ Início do Código ***************
    'Este código foi escrito originalmente por Michel Walsh.
    'Não deve ser alterado ou distribuído,
    'exceto como parte de um aplicativo.
    'Use-o livremente em qualquer aplicativo,
    'mas deixe este aviso de copyright inalterado.
    '
    'Código cortesia de
    'Michel Walsh

    Public Function OpenForSeek(TableName As String) As Recordset
    ' Assume uma tabela MS-ACCESS
      Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
                  (Mid(CurrentDb().TableDefs(TableName).Connect, _
                  11), False, False, "").OpenRecordset(TableName, _
                  dbOpenTable)
    End Function
    '************ Code End ***************
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1310
    Registrado : 21/01/2012

    Problema após colocar Password no backend - SEEK em tabelas vinculadas Empty Re: Problema após colocar Password no backend - SEEK em tabelas vinculadas

    Mensagem  Cláudio Más 8/12/2016, 13:41

    Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
    (Mid(CurrentDb().TableDefs(TableName).Connect, _
    11), False, False, ";pwd=password").OpenRecordset(TableName, _
    dbOpenTable)
    avatar
    avaz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 30
    Registrado : 14/08/2013

    Problema após colocar Password no backend - SEEK em tabelas vinculadas Empty Re: Problema após colocar Password no backend - SEEK em tabelas vinculadas

    Mensagem  avaz 15/12/2016, 08:11

    Obrigado Claudio desde já pela a ajuda

    mas não resultou continuo a receber o run-time erro 3055 not a valid file name


    Public Function AbrirParaSeek(Senhas As String) As DAO.Recordset
    Set AbrirParaSeek = DBEngine.Workspaces(0).OpenDatabase(Mid(CurrentDb().TableDefs(Senhas).Connect, 11), False, False, ";pwd=123").OpenRecordset(Senhas, dbOpenTable)
    End Function


    Testei a ligação com o comando, msgbox CurrentDb().TableDefs(Senhas).Connect
    Problema após colocar Password no backend - SEEK em tabelas vinculadas Nd0uw9
    e o resultado parece-me perfeito como se pode ver no attachement

    o que é que estou a fazer de errado?

    mais uma vez obrigado pela a ajuda
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1310
    Registrado : 21/01/2012

    Problema após colocar Password no backend - SEEK em tabelas vinculadas Empty Re: Problema após colocar Password no backend - SEEK em tabelas vinculadas

    Mensagem  Cláudio Más 15/12/2016, 11:53

    Olá,

    O comando OpenDatabase espera somente o caminho e nome do arquivo Access.
    Então seu teste deveria exibir o resultado "C:\Users\czvk\Desktop\Ponto\BD.accdb".

    Creio que a sua função deve usar 38 no lugar de 11.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3724
    Registrado : 22/11/2016

    Problema após colocar Password no backend - SEEK em tabelas vinculadas Empty Re: Problema após colocar Password no backend - SEEK em tabelas vinculadas

    Mensagem  DamascenoJr. 12/9/2020, 14:35

    avaz, algum avanço aqui? O retorno é sempre importante.

    Obs.: título ajustado para condizer com o real problema do tópico.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 280
    Registrado : 23/05/2011

    Problema após colocar Password no backend - SEEK em tabelas vinculadas Empty Re: Problema após colocar Password no backend - SEEK em tabelas vinculadas

    Mensagem  Ney Santos 2/3/2021, 14:22

    Bom dia sei que eswse tópico e antigo, mas passei por esse emsmo problema, deposi que coloquei senha no bd
    o codigo pasou a dar erro, ai segui a dica do amigo Claudio Más, "Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
    (Mid(CurrentDb().TableDefs(TableName).Connect, _
    11), False, False, ";pwd=password").OpenRecordset(TableName, _
    dbOpenTable)"
    Depois mudei de 11 para 38 .
    Ai o codigo passou a ser aceito , porem dava erro na busca, pis nao sei pq cargas dagua el insistia em em procurar o banco, na pasta "C:\Users\Ney\Downloads\Documents\Banco"
    Por mais que eu compactasse e reparesse o banco , refizesse a conexao comas tabelas, nao dava certo o erro peersistia e engraçado qu as tabelas vinculadas abriam normalmente quado ia nas aba tabelas.
    no meu caso o caminho correto seria:"C:\SCM\Banco", e nao teve jeito tive de mudar o Bd para a pasta ""C:\Users\Ney\Downloads\Documents\Banco"
    pois aj estava perdendo muito tempo com isso.
    Se alguem souber como fazer o bendito código recoinhecer o banco onde ele estava originalmente eu agradeço.
    e o estranho foi que isso aconteceu depois de por senha no bd, pis antes quando nao tinah senha ele abria normalmente..
    Att

    Ney Santos

      Data/hora atual: 26/1/2023, 21:48