MaximoAccess

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

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
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3391
    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!
    avatar
    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 153
    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: Seg 25 Set 2017, 03:25