MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

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

    Tela de Login Access para Back-End MySQL

    avatar
    miguel.serra
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 20/01/2011

    Tela de Login Access para Back-End MySQL Empty Tela de Login Access para Back-End MySQL

    Mensagem  miguel.serra 27/3/2016, 23:22

    Olá! Passei por uma experiência desagradável recentemente. Ex-funcionários, considerados como de confiança, copiaram o FE e o BE, e foram trabalhar pra minha concorrente. Simples assim.
    Pior: Acreditam piamente que não fizeram nada de errado... Isto é crime!!! Se o sistema ou os dados nele contidos forem utilizados, o Artigo 153 do Código Penal prevê cadeia.

    Bom, pra evitar que este tipo de situação se repita, resolvi colocar o BE em MySql e protegê-lo com senha. Desta forma, os usuários não poderão mais contar com o Windows Explorer para copiar deliberadamente arquivos de propriedade alheia. Só terão acesso ao ambiente mysql, utilizando apenas as tabelas permitidas a eles.

    Ok, migrei tudo pro MySQL, vinculei todas as tabelas no FE via ODBC e criei usuários no MySQL.

    Funciona que é uma beleza! Mas... Apenas se a senha do ODBC estiver salva... Isto equivale a escrever a senha no cartão de crédito...

    Quando deixo o ODBC sem senha, não consigo me livrar daquela tela de login do MySQL Connector/ODBC
    Com isto, em um formulário baseado em dezenas de consultas, a tela de login aparece para cada consulta! Fica inviável assim

    Gostaria de uma tela inicial de login do próprio Access, que liberasse o ODBC. Melhor ainda se a seção permanecesse aberta por tempo determinado, ex.: (1) Por tempo de inatividade; (2) junto com o logon do windows; (3) quando o Access for encerrado

    Pesquisei e os exemplos que vi só se referem a consultas por código VBA. Ou seja, por esta forma as tabelas vinculadas e as consultas existentes não serviriam para nada. E eu ainda teria de refazer todos os formulários para carregar via código. Cada consulta levaria uma década, pois tenho tabelas gigantescas com mais de 100.000 registros em Rich Text... Não dá...

    Alguém saberia uma forma de fazer o login do ODBC direto pelo Access?

    Obrigado!

    Miguel Serra
    pcnet
    pcnet
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 303
    Registrado : 16/12/2015

    Tela de Login Access para Back-End MySQL Empty Re: Tela de Login Access para Back-End MySQL

    Mensagem  pcnet 27/3/2016, 23:30

    Olá boa noite,

    Já conhece o sistema de segurança do mestre Avelino?
    Pode ser uma alternativa para resolver o seu problema.

    Segurança máxima usando o OPEN

    Cumprimentos
    avatar
    miguel.serra
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 20/01/2011

    Tela de Login Access para Back-End MySQL Empty Re: Tela de Login Access para Back-End MySQL

    Mensagem  miguel.serra 28/3/2016, 04:52

    PCNET, confesso que estava com receio de que algum funcionário, que já possui a senha de acesso, levasse todo o conjunto FE, BE e o Open pra casa e continuasse acessando o sistema
    No entanto, pelo video percebi que há uma ferramenta para que o Open funcione apenas no micro em que foi instalado!
    Excelente este sistema de defesa!! Realmente surpreendente!

    Muito obrigado pela dica!

    Todavia, o uso com o MySQL pra mim é uma tendência que está virando necessidade, pois alguns aplicativos de GIS que utilizo necessitam de um BD mais estruturado que o Access.
    Um dia ou outro eu teria que mudar pra MySQL ou PostgreSQL

    Desta forma, ainda preciso atravessar este desafio do ODBC...
    Alguém tem alguma pista?!

    Obrigado!
    avatar
    raffaao
    Novato
    Novato

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 31/03/2016

    Tela de Login Access para Back-End MySQL Empty Tela de login na aplicação access

    Mensagem  raffaao 19/4/2016, 23:29

    Olá Very Happy
    Bem, to a um tempo tentando dar um UP em algumas aplicações aqui do trabalho e resolvi que pra melhorar o desempenho de um sistema de documentos em mala direta eu preciso de uma tela de login que acesse um banco de dados que está na rede, também feito em access. Só que o que eu consegui fazer só foi no visual Studio e eu realmente preciso fazer em VBA no access até concluir algumas fases de mudanças aqui no trabalho.
    Agora fica minha dúvida, como eu posso passar, essa tela de login do visual Studio para o VBA ?:

    Código:
     Public Class LoginForm1
        Dim provider As String
        Dim dataFile As String
        Dim connString As String
        Dim myConnection As OleDbConnection = New OleDbConnection

        Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

            provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
            dataFile = "\\10.72.206.37\grupos\BD\customers.accdb"
            connString = provider & dataFile
            myConnection.ConnectionString = connString

            'the query:
            myConnection.Open()
            Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [users] WHERE [username] = '" & UsernameTextBox.Text & "' AND [password] = '" & PasswordTextBox.Text & "'", myConnection)
            Dim dr As OleDbDataReader = cmd.ExecuteReader

            ' the following variable is hold true if user is found, and false if user is not found
            Dim userFound As Boolean = False
            ' the following variables will hold the user first and last name if found.
            Dim FirstName As String = ""
            Dim LastName As String = ""

            'if found:
            While dr.Read
                userFound = True
                FirstName = dr("FirstName").ToString
                LastName = dr("LastName").ToString
            End While

            'checking the result
            If userFound = True Then
                Form1.Show()
                Form1.TextBox1.Text = "" & FirstName & " " & LastName
                Me.Hide()
            Else
                MsgBox("Sorry, us�rio ou senha insv�lido", MsgBoxStyle.OkOnly, "Invalid Login")
            End If
            myConnection.Close()
        End Sub

    Quem puder me ajudar, e talvez seja a dúvida de alguns.
    Dsde já muitooo obrigado pessoal Very Happy

      Data/hora atual: 9/3/2021, 06:26