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


3 participantes

    Inserir os dados de uma List Box numa Tabela

    avatar
    JohnnyRio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/05/2013

    Inserir os dados de uma List Box numa Tabela Empty Inserir os dados de uma List Box numa Tabela

    Mensagem  JohnnyRio 16/10/2013, 07:13

    Amigos, preciso de uma ajuda:

    Tenho uma List Box com apenas uma coluna (Cliente), que no evento Ao Abrir do Form recebe os dados do campo (Cliente) de uma tabela na web.
    Preciso que todos os registros da List Box sejam salvos em uma tabela temporária, de uma forma automática, de preferêcia no próprio evento Ao Abrir do Form.

    Se alguém puder ajudar, desde já agradeço.

    JohnnyRio
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    Inserir os dados de uma List Box numa Tabela Empty Re: Inserir os dados de uma List Box numa Tabela

    Mensagem  Leandro 16/10/2013, 13:16

    Você pode postar a string da SQL dessa listbox?

    avatar
    JohnnyRio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/05/2013

    Inserir os dados de uma List Box numa Tabela Empty Re: Inserir os dados de uma List Box numa Tabela

    Mensagem  JohnnyRio 16/10/2013, 15:17

    Leandro,

    A string é esta: select * from tblCadastros where TipoContato = 'ATI' order by Cliente

    Tudo funciona perfeitamente, a List Box recebe normalmente todos os registros com os nomes dos clientes, é uma List Box de apenas uma coluna com os nomes dos clientes.
    O que preciso é colocar estes registros em uma tabela temporária, que precisa ser criada (ou pode já existir vazia no Bd) após a List Box receber os dados, e que ao fechar o Bd será excluída (ou pode apenas ter todos os registros excluídos).

    A minha dificuldade é justamente como copiar toda a list box para esta tabela temporária.
    Meus conhecimentos não são profundos em Sql, Access ou Vba, mas gosto demais do assunto e estou há semanas buscando nos fóruns algum exemplo parecido.

    O que tenho encontrado é relativo a copiar ou acrescentar de tabela para tabela, não achei nada pegando toda a List Box e salvando na Tabela.

    Acredito que a lógica seria algo como ir selecionando linha por linha da List Box e copiando p/ Tabela, só não sei como fazer para isso ser automático.

    Se puder ajudar...

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    Inserir os dados de uma List Box numa Tabela Empty Re: Inserir os dados de uma List Box numa Tabela

    Mensagem  Leandro 16/10/2013, 15:29

    Ok, mas eu preciso saber os nomes dos campos da tabela tblCadastros e se na tabela temporária os nomes dos campos serão os mesmos.

    Até mais.

    avatar
    JohnnyRio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/05/2013

    Inserir os dados de uma List Box numa Tabela Empty Re: Inserir os dados de uma List Box numa Tabela

    Mensagem  JohnnyRio 16/10/2013, 16:00

    Leandro, vou lhe explicar melhor:

    No meu Bd tomei como exemplo o excelente artigo do Jefferson Braz e parceria do Avelino Sampaio: Acessando dados da Web - parte 2

    A tblCadastros (que está na web) tem diversos campos (Cliente, Endereco, Cidade, TipoContato...).
    A minha List Box recebe apenas o campo Cliente da tblCadastros.
    A minha Tabela Temporária terá apenas o campo Cliente.

    Se precisar de mais alguma informação por favor me fale, e já te agradeço pelo interesse em me ajudar.

    Abraço,
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Inserir os dados de uma List Box numa Tabela Empty Re: Inserir os dados de uma List Box numa Tabela

    Mensagem  Avelino Sampaio 16/10/2013, 16:59

    Olá!

    No evento "ao abrir" monte algo assim:

    dim strSql as string
    strSql = "select cliente from tblCadastros where TipoContato = 'ATI' order by Cliente"
    me!SuaListBox.rowsource = strSql
    '-------------------------------------------
    ' montagem para salvar tabela temporária
    '-------------------------------------------
    strsql = replace (strsql,"from","INTO tblNomeTabelaTemporaria FROM")
    currentdb.execute strsql


    Sucesso!





    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    JohnnyRio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/05/2013

    Inserir os dados de uma List Box numa Tabela Empty Re: Inserir os dados de uma List Box numa Tabela

    Mensagem  JohnnyRio 16/10/2013, 22:25

    Avelino,

    Estou tendo a seguinte mensagem de erro:
    ---
    Erro em tempo de execução '3078'
    O mecanismo do banco de dados do MS Access não pode localizar
    a tabela de entrada ou consulta 'CLIENTE1';'CLIENTE2';'CLIENTE3'... (Lista todos os nomes dos Clientes da List Box).
    Verifique se ela existe e se o nome foi digitado corretamente.
    ---

    O meu código está assim no evento "ao abrir" do Form:

    Call Cliente_Load("select * from tblCadastros where TipoContato = 'ATI' order by Cliente", Me.Form.Name)

    Dim strSql As String
    strSql = Me!MinhaListBox.RowSource

    strSql = Replace(strSql, "from", "INTO Clientes FROM")
    CurrentDb.Execute strSql

    Dei uma estudada na função Repalce e na Insert Into, mas não consegui fazer com que os dados da List Box sejam salvos na Tabela Clientes.
    Devo estar cometendo algum erro bem básico, pois os dados são preenchidos normalmente lá na List Box.
    Como estou iniciando, conto com a ajuda dos amigos experientes no assunto.

    Se puder me ajudar no código acima, te agradeço.

    Abraço,
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Inserir os dados de uma List Box numa Tabela Empty Re: Inserir os dados de uma List Box numa Tabela

    Mensagem  Avelino Sampaio 16/10/2013, 22:56

    Acrescente o Msgbox na seguinte posição:

    Dim strSql As String
    strSql = Me!MinhaListBox.RowSource
    Msgbox strSql

    Informe o que esta escrito na caixa de mesagem.

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    JohnnyRio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/05/2013

    Inserir os dados de uma List Box numa Tabela Empty Re: Inserir os dados de uma List Box numa Tabela

    Mensagem  JohnnyRio 16/10/2013, 23:05

    Avelino,

    Eu já havia feito isso para me certificar que a strSql estava recebendo os dados corretamente.

    A Msgbox retorna o seguinte:
    MeuCLIENTE1;MeuCLIENTE2;MeuCLIENTE3;MeuCLIENTE4;MeuCLIENTE5; ..... MeuCLIENTE30




    Conteúdo patrocinado


    Inserir os dados de uma List Box numa Tabela Empty Re: Inserir os dados de uma List Box numa Tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 16:39