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


2 participantes

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

    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Eloirp 6/6/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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 7/6/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.

    http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/8037078873

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Eloirp
    Eloirp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Eloirp 7/6/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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 06:20