MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    avatar
    avaz
    Novato
    Novato

    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1278
    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 em 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 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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1278
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2453
    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. em 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.

      Data/hora atual: 29/11/2020, 19:21