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

    Compartilhe
    avatar
    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 Qui 19 Maio 2016, 02: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
    avatar
    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 Qui 19 Maio 2016, 02: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: Dom 22 Out 2017, 13:05