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]Mais de uma execução Sql separado por ponto e virgular

    Compartilhe

    ruggerib
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 14/01/2014

    [Resolvido]Mais de uma execução Sql separado por ponto e virgular

    Mensagem  ruggerib em 18/5/2016, 21:27

    Olá amigos,

    gostaria de saber se é possivel eu usar uma docmd.runsql ou currentdb.execute aonde eu consiga fazer dentro de uma mesma variável mais de um comando sql separado por ";". Exemplo:

    "INSERT INTO PRODUTOS(PRODUTO, PRECO,COR) VALUES ('MAÇA', 2,'VERMELHA'); INSERT INTO PRODUTOS(PRODUTO, PRECO,COR) VALUES ('BANANA', 5,'AMARELA')"


    Grato desde já pela atenção

    ruggerib
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 14/01/2014

    Re: [Resolvido]Mais de uma execução Sql separado por ponto e virgular

    Mensagem  ruggerib em 18/5/2016, 21:54

    Bati cabeça aqui e consegui resolver, criei uma execução para cada ponto e virgula

    Código:

    Dim comandosql
    qtdloop = 0
    qtcaracteres = Len(MEUCOMANDOSQL)
    Dim TEXTOCOMANDO As String

    TEXTOCOMANDO = ""

    For x = 1 To qtcaracteres
    charatual = Mid(MEUCOMANDOSQL, x, 1)
    TEXTOCOMANDO = TEXTOCOMANDO & charatual
    If charatual = ";" Then
    DoCmd.RunSQL (TEXTOCOMANDO)
    TEXTOCOMANDO = ""

    End If

    Next



      Data/hora atual: 3/12/2016, 14:42