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]Dificuldade com INSERT INTO longo demais

    Compartilhe

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 15/06/2013

    [Resolvido]Dificuldade com INSERT INTO longo demais

    Mensagem  Eloirp em Sab 10 Out 2015, 15:21

    Como meu BD é MySQl, portanto desvinculado, uso instruções SQL para inserir os dados no BD, porém em alguns casos a instrução está ficando longa demais e o Access não suporta! Já dividi em duas linhas, mas mesmo assim ainda está longa, alguém tem alguma dica ou solução?

    Eu até poderia inserir com menos dados e imediatamente fazer um UPDATE dos dados restantes, mas prefiro deixar tudo na instrução INSERT se eu conseguir achar uma solução...

    cnn.Execute "INSERT INTO tbl_Produto (Produto,Grupo,TipoProduto,Classe,Obs,EmbPRE,NCM,UndEmb,Peso,Comercial,Comercial2,Catalogo,EmbDiam,EmbEstrias,MAJDiam,InnerDiam,PCD,Dim1,Dim2,Dim3,Dim4,Pack1,Pack2,Conteudo,Volante,SldEstoque,CustoMedio,Comissao,ExTipi,Origem,PesoBruto,UndCom,DescricaoNF,clEnq,cEnq,vTotTrib,StatusCom,Status,Data,User) " & _
    "VALUES('" & StrConv(Me.Produto, 1) & "'," & Me.GrupoProd & "," & Me.TipoProduto & ",'" & StrConv(Me.Classe, 1) & "','" & StrConv(Me.Obs, 1) & "','" & Me.Pre & "','" & Me.NCM & "','" & Me.UndEmb & "','" & Replace(Me.Peso, ",", ".") & "','" & Me.Comercial & "','" & Me.Comercial2 & "','" & Me.Catalogo & "','" & Me.EmbDiam & "','" & Me.EmbEstrias & "','" & Me.MAJDiam & "','" & Me.InnerDiam & "','" & Me.PCD & "','" & Me.Dim1 & "','" & Me.Dim2 & "','" & Me.Dim3 & "','" & Me.Dim4 & "','" & Me.Pack1 & "','" & Me.Pack2 & "','" & StrConv(Nz(Me.Conteudo, ""), 1) & "','" & StrConv(Nz(Me.Volante, ""), 1) & "',0,0,'" & Replace(Me.Comissao, ",", ".") & "'," & Nz(Me.NCMExc, "") & "," & Me.Origem & ",'" & Replace(Nz(Me.PesoBruto, 0), ",", "."') & ",'" & Nz(Me.Und, "") & "','" & StrConv(Nz(Me.DescricaoNF, ""), 1) & "','" & Nz(Me.clEnq, "") & "','" & Nz(Me.cEnq, "") & "','" & Nz(Me.vTotTrib, "") & "','" & StrConv(Nz(Me.StatusCom, ""), 1) & "','ATIVO','" & Now() & "','" & getUsuarioAtual() & "')

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Dificuldade com INSERT INTO longo demais

    Mensagem  JPaulo em Seg 12 Out 2015, 13:49

    A sua instrução tinha um erro;

    Teste desta forma;

    Código:
    cnn.Execute "INSERT INTO tbl_Produto" _
    & " (Produto,Grupo,TipoProduto,Classe,Obs,EmbPRE,NCM,UndEmb,Peso,Comercial,Comercial2,Catalogo," _
    & " EmbDiam,EmbEstrias,MAJDiam,InnerDiam,PCD,Dim1,Dim2,Dim3,Dim4,Pack1,Pack2,Conteudo,Volante,SldEstoque," _
    & " CustoMedio,Comissao,ExTipi,Origem,PesoBruto,UndCom,DescricaoNF,clEnq,cEnq,vTotTrib,StatusCom,Status,Data,User) " _
    & " VALUES('" & StrConv(Me.Produto, 1) & "'," & Me.GrupoProd & "," & Me.TipoProduto & ",'" & StrConv(Me.Classe, 1) & "'," _
    & " '" & StrConv(Me.Obs, 1) & "','" & Me.Pre & "','" & Me.NCM & "','" & Me.UndEmb & "','" & Replace(Me.Peso, ",", ".") & "'," _
    & " '" & Me.Comercial & "','" & Me.Comercial2 & "','" & Me.Catalogo & "','" & Me.EmbDiam & "','" & Me.EmbEstrias & "','" & Me.MAJDiam & "'," _
    & " '" & Me.InnerDiam & "','" & Me.PCD & "','" & Me.Dim1 & "','" & Me.Dim2 & "','" & Me.Dim3 & "','" & Me.Dim4 & "','" & Me.Pack1 & "'," _
    & " '" & Me.Pack2 & "','" & StrConv(Nz(Me.Conteudo, ""), 1) & "','" & StrConv(Nz(Me.Volante, ""), 1) & "',0,0,'" & Replace(Me.Comissao, ",", ".") & "'," _
    & " " & Nz(Me.NCMExc, "") & "," & Me.Origem & ",'" & Replace(Nz(Me.PesoBruto, 0), ",", ".") & "','" & Nz(Me.Und, "") & "','" & StrConv(Nz(Me.DescricaoNF, ""), 1) & "'," _
    & " '" & Nz(Me.clEnq, "") & "','" & Nz(Me.cEnq, "") & "','" & Nz(Me.vTotTrib, "") & "','" & StrConv(Nz(Me.StatusCom, ""), 1) & "','ATIVO','" & Now() & "','" & getUsuarioAtual() & "')"


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Eloirp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 15/06/2013

    Re: [Resolvido]Dificuldade com INSERT INTO longo demais

    Mensagem  Eloirp em Qua 14 Out 2015, 04:05

    Valeu Mestre! Problema resolvido!

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Dificuldade com INSERT INTO longo demais

    Mensagem  JPaulo em Qui 15 Out 2015, 14:55

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Dom 04 Dez 2016, 06:00