MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Carregar via VBA form contínuo desvinvulado - base on-line

    Compartilhe

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 15/06/2013

    [Resolvido]Carregar via VBA form contínuo desvinvulado - base on-line

    Mensagem  Eloirp em Sex 06 Jun 2014, 16:14

    Estou tentando alterar meu projeto para uma base de dados MySQL on-line e estou tendo algumas dificuldades, pois meu conhecimento é de iniciante e não consegui encontrar solução pesquisando no fórum...
    No projeto atual foi fácil porque mesmo separando em front-end e back-end as tabelas estavam vinculadas e aí o Access é intuitivo para iniciantes como eu...

    Só está listando uma linha no formulário contínuo...

    A tenho a conexão em um módulo:

    Global Cnn As New ADODB.Connection
    Global Rst As New ADODB.Recordset
    Global csql As String

    Public Sub Conexao_Open(csql)

       Cnn.Open "Driver={MySQL ODBC 5.1 Driver};Server=" & dbmy0000.whservidor.com & ";Database=" & minha_DataBase & ";User=" & meu_Usuario & "; Password=" & minha_Senha & ";Option=3;"
       Rst.CursorLocation = adUseClient
       Rst.Open csql, Cnn, adOpenDynamic, adLockOptimistic

    End Sub


    No Form:
    Private Sub Form_Load()
       Call Conexao_Open("SELECT * FROM tbl_Usuario WHERE Status<>'inativo' ORDER BY Nome;")
       Do While Not Rst.EOF
           Me.Nome = Rst("nome")
           Me.Login = Rst("login")
           Me.Grupo = Rst("grupo")
           Me.Nivel = Rst("nivel")
           Me.Codigo = Rst("codigo")
           Me.Mail = Rst("mail")
           Rst.MoveNext  
       Loop
       
       Rst.Close
       Cnn.Close

    End Sub

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]Carregar via VBA form contínuo desvinvulado - base on-line

    Mensagem  Avelino Sampaio em Sab 07 Jun 2014, 09:54

    Olá!

    Formulário continuo funciona somente com recordset acoplado. Não se pode preencher da forma como deseja. Veja neste tópico abaixo um exemplo do uso do recordset.

    [Você precisa estar registrado e conectado para ver este link.]

    Bom estudo!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 15/06/2013

    Re: [Resolvido]Carregar via VBA form contínuo desvinvulado - base on-line

    Mensagem  Eloirp em Sab 07 Jun 2014, 14:59

    Olá Avelino!
    Muito obrigado pela ajuda!
    Aproveitando sua ajuda gostaria de fazer duas perguntas:
    - neste caso vou utilizar um ListBox, porém sabe me dizer se tem como retirar as linhas divisórias das colunas e colorir o fundo de linha tipo zebra? Pois quando o volume de dados listados é grande a zebra ajuda na visualização de todos os dados da linha;
    - esta questão do RecordSet não gerar form contínuo se aplica também para relatórios? Pois como expliquei, estou tentando mudar o projeto para MySQL na UOL e não utilizarei nada de tabela vinculada!

    Abraços,

    Eloir

      Data/hora atual: Dom 04 Dez 2016, 20:16