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]Converter linhas em colunas

    avatar
    morthales
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/10/2012

    [Resolvido]Converter linhas em colunas Empty Converter linhas em colunas

    Mensagem  morthales em 18/10/2012, 15:35

    Estou com dificuldades de converter uma tabela, onde as linhas deveriam ser colunas

    Tabela original:
    SB MB CB RB AB
    15 25 33 44 55

    resultado desejado:
    Embalagem QTD
    SB 15
    MB 25
    CB 33
    RB 44
    AB 55

    Como eu posso fazer isso pelo Access?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10530
    Registrado : 04/11/2009

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  JPaulo em 18/10/2012, 16:42

    Ola seja bem vindo ao fórum;

    Veja este exemplo que montei para si, (Tem de ter uma tabela de destino);

    Anexos
    [Resolvido]Converter linhas em colunas AttachmentConverteLinhasEmColunas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 347 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Converter linhas em colunas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Converter linhas em colunas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Converter linhas em colunas Folder_announce_new Instruções SQL como utilizar...
    avatar
    morthales
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/10/2012

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  morthales em 19/10/2012, 19:35

    Perfeito!

    Obrigado!!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7238
    Registrado : 05/11/2009

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  Alexandre Neves em 19/10/2012, 21:27

    Boa noite, morthales, e bem-vindo ao fórum
    [Resolvido]Converter linhas em colunas MaximoAccess%20ResolvidoMarcado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    morthales
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 18/10/2012

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  morthales em 20/10/2012, 14:28

    É possível que no começo do código eu deleta a tabela destino e crie ela novamente em branco?
    Minha intenção é que os dados se sobreponham cada vez que eu rode esta rotina, como está eles estão sendo agregados
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10530
    Registrado : 04/11/2009

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  JPaulo em 20/10/2012, 17:12

    Sim é possivel;

    Aproveite e estude um pouco sobre SQL, tem aqui salas proprias para enriquecer os seus conhecimentos;


    Public Sub Converte(ByVal TabOrigem As String, ByVal TabDestino As String)
    Dim i As Integer
    Dim sql As String, sql1 As String
    Dim rst As DAO.Recordset

    'abre a tabela de origem
    sql = "SELECT * FROM tblExemplo_Origem"
    'sql para deletar a tabela destino
    sql1 = "DELETE * FROM tblExemplo_Destino"
    Set rst = CurrentDb.OpenRecordset(sql)
    'corre o sql para deletar a tabela destino
    CurrentDb.Execute (sql1)

    With rst
    Do While Not .EOF
    With .Fields
    'percorre os registros da tabela de origem e faz um insert na tabela de destino
    For i = 0 To .Count - 1 Step 1
    sql = "INSERT INTO tblExemplo_Destino (Embalagem, QTD) VALUES ('" & .Item(i).Name & "'," & .Item(i).Value & ");"
    CurrentDb.Execute (sql)
    Next i
    End With
    .MoveNext
    Loop
    End With

    Set rst = Nothing
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Converter linhas em colunas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Converter linhas em colunas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Converter linhas em colunas Folder_announce_new Instruções SQL como utilizar...
    avatar
    milan007
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1
    Registrado : 24/09/2015

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  milan007 em 22/12/2015, 16:39

    Gostaria saber se é possível aplicar o mesmo raciocínio, mas no sentido contrario?
    Por exemplo>>

    Tabela original:
    Embalagem QTD
    SB 15 20
    MB 25 3
    CB 33 50
    RB 44 90
    AB 55 100
    (tenho 50 tipos de embalagens)

    resultado desejado:
    SB MB CB RB AB
    15 25 33 44 55
    20  3 50  90 100
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10530
    Registrado : 04/11/2009

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  JPaulo em 22/12/2015, 16:53



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Converter linhas em colunas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Converter linhas em colunas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Converter linhas em colunas Folder_announce_new Instruções SQL como utilizar...
    avatar
    jasalima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 7
    Registrado : 18/06/2018

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  jasalima em 8/2/2019, 13:15

    Oi pessoal,

    estou fazendo uma consulta que está me retornando por colunas e eu queria agregar os dados por linha, para fazer um gráfico de rosca, vi o problema já apresentado aqui antes mas eu queria passar pra vcs para receber uma possível solução.
    a consulta está retornando assim:

    Aluno   |  Professor | Técnico | Total
    28,38%|   41,89% |  29,73%| 100%

    Gostaria que ficasse assim:

    Aluno| 28,38%
    Professor| 41,89%
    Técnico |   29,73%

    De já, Agradeço!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10530
    Registrado : 04/11/2009

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  JPaulo em 8/2/2019, 13:35

    Amigão, o exemplo da mensagem Nº2 faz mesmo isso que pretende.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Converter linhas em colunas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Converter linhas em colunas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Converter linhas em colunas Folder_announce_new Instruções SQL como utilizar...
    avatar
    jasalima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 7
    Registrado : 18/06/2018

    [Resolvido]Converter linhas em colunas Empty Re: [Resolvido]Converter linhas em colunas

    Mensagem  jasalima em 9/2/2019, 00:12

    Mas estou trabalhando com consulta João Paulo, então precisaria da rotina de forma automática sem precisar apertar botão. Meo de é mysql e ao atualizar os lançamentos os valores tb alteram. De toda sorte agradeço a atenção dispensada! Gráfico de rosca no access é bem complexo! Precisaria dos dados da consulta da forma que exemplifiquei. Abs

      Data/hora atual: 25/4/2019, 15:27