[Resolvido]Pular linha em comando INSERT

ernandofc 18/1/2019, 11:32

ernandofc: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 20
Registrado : 21/10/2015

Mensagem nº1

[Resolvido]Pular linha em comando INSERT

Mensagem ernandofc 18/1/2019, 11:32

Bom dia.

Uma dúvida relativamente simples, mas que ainda não achei a solução. Tenho um comando INSERT. Como são muitos campos na tabela, desejo pular linhas para continuar escrevendo o código, dentro do módulo. Como funciona essa sintaxe? Pode pular a partir de qualquer campo, somente para exemplificar.

dim strSql as string

strSql = "INSERT INTO TAB_GERADOR_COTAÇÕES (CódPai, Item, QTD, CódigoProd, PreçoLista, Tipo, SubClasse, NCM, Moeda, Origem, ExTarif, [FreteIntern%], FreteInternValor, Cotação, [II%], II, [IPI%], IPI, [PIS%], PIS, [COFINS%], COFINS, [ICMS%], ICMS, [RedICMS%], Armazen, CMA, CMV, [Simples%], SimplesValor, InstalaçãoMDO, FreteNAC, OutrosCustos, PUA, MGAlvoPUA, MGContribPUA, ICMSPUA, DIFALPUA, PISCOFPUA, IRPJCSLLPUA, PUU, MGUtilizadaPUU, MGContribPUU, SimplesPUU, Receita, DescontoOver, [PISCOF%], [IRPJCSLL%], [ICMSVenda%], [DifalVenda%], ICMSPUU, DIFALPUU, PISCOFPUU, IRPJCSLLPUU, [DIFAL%], DIFAL, [FCP%], FCP)" & _
"Values('" & CódPai & "','" & Item & "','" & Qtd & "','" & CódProd & "','" & PreçoLista & "','" & Tipo & "','a','" & NCM & "','" & Moeda & "','" & Origem & "','NÃO','" & FreteIntern & "','" & FreteInternValor & "','" & Cotação & "', '" & II & "', '" & IIvalor & "', '" & IPI & "', '" & IPIvalor & "', '" & PIS & "', '" & PISvalor & "', '" & COFINS & "','" & COFINSvalor & "', '" & ICMS & "', '" & ICMSValor & "', '" & RedICMS & "', '" & Armazen & "', '" & CMA & "', '" & CMV & "', '0', '0','0','0', '0', '" & PUA & "', '" & MGAlvoPUA & "', '" & MGContribPUA & "', '" & ICMSPUA & "','" & DIFALPUA & "','" & PISCOFPUA & "','" & IRPJCSLLPUA & "','" & PUU & "', '" & MGUtilizadaPUU & "', '" & MGContribPUU & "', '0', '" & Receita & "','" & DescontoOver & "','" & piscofins & "','" & irpjcsll & "','" & icmsvenda & "','" & difalvenda & "','" & ICMSPUU & "','" & DIFALPUU & "','" & PISCOFPUU & "','" & IRPJCSLLPUU & "','" & DIFAL & "', '" & DIFALvalor & "', '" & FCP & "', '" & FCPvalor & "')"
DoCmd.RunSQL strSql

Mais uma vez, muito obrigado.

**Alexandre Fim** 18/1/2019, 13:38

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016

Mensagem nº2

Re: [Resolvido]Pular linha em comando INSERT

Mensagem Alexandre Fim 18/1/2019, 13:38

Ola,

Pelo que eu entendi, vc quer "concatenar" as linhas.

Segue exemplo:

Código:: strSQL = "NSERT INTO TAB_GERADOR_COTAÇÕES" strSQL = strSQL & " (" strSQL = strSQL & " CódPai" strSQL = strSQL & " ,Item" strSQL = strSQL & " ,QTD" strSQL = strSQL & " ,CódigoProd" strSQL = strSQL & " ,PreçoLista" strSQL = strSQL & " ,Tipo" strSQL = strSQL & " ... <demais_campos>... " strSQL = strSQL & " )" strSQL = strSQL & " VALUES " strSQL = strSQL & " (" strSQL = strSQL & " '" & CódPai & "'" strSQL = strSQL & " ,'" & Item & "'" strSQL = strSQL & " ,'" & qtd & "'" strSQL = strSQL & " ,'" & CódProd & "'" strSQL = strSQL & " ,'" & PreçoLista & "'" strSQL = strSQL & " ,'" & Tipo & "'" strSQL = strSQL & " ... <demais_valore>... " strSQL = strSQL & " )"

OBS: Observei que existem campos na tabela que estão com acentuação e também utilizando caracter especiais, tais como "%" ([FreteIntern%]).
Não se deve utilizar caracteres especiais em nomenclaturas de objetos (TAbelas, campos, consultas e etc.).

Espero ter ajudado.

Boa sorte

[]'s