Erro Na Funcao Insert Into

[ODIR 0]

estou com um problema quando do o comando para criar um novo registro na tabela access, ele acusa um erro, mas ja descobri o problema esta linha abaixo ela estava muito grande tinha 2600 colunas, cortei quase que por um terco dai funcionou, o problema e que eu nao posso cortar ela pois senao ficará muitos dados fora do banco.

 

alguem sabe me ajudar como fazer esta linha ser aceita por inteiro, se for necessario eu passo ela inteira aqui no forum.

 

strQuery = "INSERT INTO cp (nome,telefone,email,grupo,comentario,fantasia,razao,cidade,est,bairro,cep,foe,celular,fax,cnpj,insc,site,endereco,codgrupo,data,cfop,nota,codfornecedor,prod,prod2,prod3,prod4,prod5,prod6,prod7,peso1,peso2,peso3,peso4,peso5,peso6,peso7,uidade1,unidade2,unidade3,unidade4,unidade5,unidade6,unidade7)VALUES('"&nome&"','"&telefone&"','"&email&"','"&grupo&"','"&comentario&"','"&fantasia&"','"&razao&"','"&cidade&"','"&est&"','"&bairro&"','"&cep&"','"&fone&"','"&celular&"','"&fax&"','"&cnpj&"','"&insc&"','"&site&"','"&endereco&"','"&codgrupo&"','"&data&"','"&cfop&"','"&nota&"','"&codfornecedor&"','"&prod1&"','"&prod2&"','"&prod3&"','"&prod4&"','"&prod5&"','"&prod6&"','"&prod7&"','"&peso1&"','"&peso2&"','"&peso3&"','"&peso4&"','"&peso5&"','"&peso6&"','"&peso7&"','"&unidade1&"','"&unidade2&"','"&unidade3&"','"&unidade4&"','"&unidade5&"','"&unidade6&"','"&unidade7&"')"

 

valeu

[hargon 64]

Tenta ai

strQuery = "INSERT INTO cp (nome, telefone, email, grupo, comentario, fantasia, razao, cidade, est, bairro, "&_
					   "cep, fone, celular, fax, cnpj, insc, site, endereco, codgrupo, data, cfop, nota, "&_
			   "codfornecedor, prod, prod2, prod3, prod4, prod5, prod6, prod7, peso1, peso2, peso3, "&_
			   "peso4, peso5, peso6, peso7, unidade1, unidade2, unidade3, unidade4, unidade5, "&_
			   "unidade6, unidade7) "&_
			   "VALUES('"&nome&"', '"&telefone&"', '"&email&"', '"&grupo&"', '"&comentario&"', '"&fantasia&"', "&_
			  "'"&razao&"','"&cidade&"','"&est&"','"&bairro&"','"&cep&"','"&fone&"','"&celular&"','"&fax&"',"&_
			  "'"&cnpj&"','"&insc&"','"&site&"','"&endereco&"','"&codgrupo&"','"&data&"','"&cfop&"',"&_
			  "'"&nota&"','"&codfornecedor&"','"&prod1&"','"&prod2&"','"&prod3&"','"&prod4&"','"&prod5&"',"&_
			  "'"&prod6&"','"&prod7&"','"&peso1&"','"&peso2&"','"&peso3&"','"&peso4&"','"&peso5&"',"&_
			  "'"&peso6&"','"&peso7&"','"&unidade1&"','"&unidade2&"','"&unidade3&"','"&unidade4&"',"&_
			  "'"&unidade5&"','"&unidade6&"','"&unidade7&"')"

[ODIR 0]

continua dando erro de sintaxe no insert to into

aqui estou enviando a minha insert_into.asp

<%'Força a declaração de todas as variáveis'Não deixa informações no CacheResponse.Expires = 0'Declaração das variáveisDim objConn, objRs, strQuery, strConnection, codgrupo, D1, grupo, data, cfop, nota, codfornecedor, razao, fantasia, endereco, bairro, cep, cidade, est, nome, cnpj, telefone, celular, insc, fone, fax, email, site, prod, prod2, prod3, prod4, prod5, prod6, prod7, peso1, peso2, peso3, peso4, peso5, peso6, peso7, unidade1, unidade2, unidade3, unidade4, unidade5, unidade6, unidade7, quant1, quant2, quant3, quant4, quant5, quant6, quant7, valor1, valor2, valor3, valor4, valor5, valor6, valor7, total1, total2, total3, total4, total5, total6, total7, icms1, icms2, icms3, icms4, icms5, icms6, icms7, baseicms, valoricms, baseipi, valoripi, valorp, valorn, codmot, mot, valoru, totalfrete, codcomprador, comprador, percent, totalcomissao, codtrans, trans, frete, placa1, placa2, endtrans, cidtrans, esttrans, cnpjtrans, insctrans, data1, data2, data3, data4, data5, data6, data7, data8, data9, valorp1, valorp2, valorp3, valorp4, valorp5, valorp6, valorp7, valorp8, valorp9, diferenca, comentario, descricao1, descricao2, descricao3, descricao4, descricao5, descricao6, descricao7'Atrubuição dos valores as respectivas variáveisnome = Request.Form("nome")telefone = Request.Form("telefone")email = Request.Form("email")grupo = Request.Form("grupo")comentario = Request.Form("comentario")if comentario = "" then comentario = " " end if fantasia = Request.Form("fantasia")razao = Request.Form("razao")cidade = Request.Form("cidade")est = Request.Form("est")bairro = Request.Form("bairro")cep = Request.Form("cep")fone = Request.Form("fone")celular = Request.Form("celular")fax = Request.Form("fax")cnpj = Request.Form("cnpj")insc = Request.Form("insc")site = Request.Form("site")endereco = Request.Form("endereco")codgrupo = Request.Form("codgrupo")data = Request.Form("data")cfop = Request.Form("cfop")nota = Request.Form("nota")codfornecedor = Request.Form("codfornecedor")prod1 = Request.Form("prod")prod2 = Request.Form("prod2")prod3 = Request.Form("prod3")prod4 = Request.Form("prod4")prod5 = Request.Form("prod5")prod6 = Request.Form("prod6")prod7 = Request.Form("prod7")peso1 = Request.Form("peso1")peso2 = Request.Form("peso2")peso3 = Request.Form("peso3")peso4 = Request.Form("peso4")peso5 = Request.Form("peso5")peso6 = Request.Form("peso6")peso7 = Request.Form("peso7")unidade1 = Request.Form("unidade1")unidade2 = Request.Form("unidade2")unidade3 = Request.Form("unidade3")unidade4 = Request.Form("unidade4")unidade5 = Request.Form("unidade5")unidade6 = Request.Form("unidade6")unidade7 = Request.Form("unidade7")quant1 = Request.Form("quant1")quant2 = Request.Form("quant2")quant3 = Request.Form("quant3")quant4 = Request.Form("quant4")quant5 = Request.Form("quant5")quant6 = Request.Form("quant6")quant7 = Request.Form("quant7")valor1 = Request.Form("valor1")valor2 = Request.Form("valor2")valor3 = Request.Form("valor3")valor4 = Request.Form("valor4")valor5 = Request.Form("valor5")valor6 = Request.Form("valor6")valor7 = Request.Form("valor7")total1 = Request.Form("total1")total2 = Request.Form("total2")total3 = Request.Form("total3")total4 = Request.Form("total4")total5 = Request.Form("total5")total6 = Request.Form("total6")total7 = Request.Form("total7")icms1 = Request.Form("icms1")icms2 = Request.Form("icms2")icms3 = Request.Form("icms3")icms4 = Request.Form("icms4")icms5 = Request.Form("icms5")icms6 = Request.Form("icms6")icms7 = Request.Form("icms7")baseicms = Request.Form("baseicms")valoricms = Request.Form("valoricms")baseipi = Request.Form("baseipi")valoripi = Request.Form("valoripi")valorp = Request.Form("valorp")valorn = Request.Form("valorn")codmot = Request.Form("codmot")mot = Request.Form("mot")valoru = Request.Form("valoru")totalfrete = Request.Form("totalfrete")codcomprador = Request.Form("codcomprador")comprador = Request.Form("comprador")percent = Request.Form("percent")totalcomissao = Request.Form("totalcomissao")codtrans = Request.Form("codtrans")trans = Request.Form("trans")frete = Request.Form("frete")placa1 = Request.Form("placa1")placa2 = Request.Form("placa2")endtrans = Request.Form("endtrans")cidtrans = Request.Form("cidtrans")esttrans = Request.Form("esttrans")cnpjtrans = Request.Form("cnpjtrans")insctrans = Request.Form("insctrans")data1 = Request.Form("data1")data2 = Request.Form("data2")data3 = Request.Form("data3")data4 = Request.Form("data4")data5 = Request.Form("data5")data6 = Request.Form("data6")data7 = Request.Form("data7")data8 = Request.Form("data8")data9 = Request.Form("data9")valorp1 = Request.Form("valorp1")valorp2 = Request.Form("valorp2")valorp3 = Request.Form("valorp3")valorp4 = Request.Form("valorp4")valorp5 = Request.Form("valorp5")valorp6 = Request.Form("valorp6")valorp7 = Request.Form("valorp7")valorp8 = Request.Form("valorp8")valorp9 = Request.Form("valorp9")diferenca = Request.Form("diferenca")descricao1 = Request.Form("descricao1")descricao2 = Request.Form("descricao2")descricao3 = Request.Form("descricao3")descricao4 = Request.Form("descricao4")descricao5 = Request.Form("descricao5")descricao6 = Request.Form("descricao6")descricao7 = Request.Form("descricao7")D1 = Request.Form("D1")if D1 = "SALVAR" then 'Cria o objeto RecordSet e atribui a variável Set objConn =  Server.CreateObject("ADODB.Connection")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)'(*.mdb) indica que o arquivo utiliza extensão mdbobjConn.Open "DBQ=" & "d:\web\localuser\arrozvivamaria\banco\contato.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"'Insere os dados na tabela abertastrQuery = "INSERT INTO cp (nome,telefone,email,grupo,comentario,fantasia,razao,cidade,est,bairro,cep,foe,celular,fax,cnpj,insc,site,"&_"endereco,codgrupo,data,cfop,nota,codfornecedor,prod1,prod2,prod3,prod4,prod5prod6,prod7,peso1,peso2,peso3,peso4,peso5,peso6,peso7,"&_"unidade1,unidade2,unidade3,unidade4,unidade5,unidade6,unidade7,quant1,quant2quant3,quant4,quant5,quant6,quant7,valor1,valor2,valor3,"&_"valor4,valor5,valor6,valor7,total1,total2,total3,total4,total5,total6,total7icms1,icms2,icms3,icms4,icms5,icms6,icms7,baseicms,"&_"valoricms,baseipi,valoripi,valorp,valorn,codmot,mot,valoru,totalfrete,codcomrador,comprador,percent,totalcomissao,codtrans,trans,"&_"frete,placa1,placa2,endtrans,cidtrans,esttrans,cnpjtrans,insctrans,data1,dat2,data3,data4,data5,data6,data7,data8,data9,valorp1,"&_"valorp2,valorp3,valorp4,valorp5,valorp6,valorp7,valorp8,valorp9,diferenca,decricao1,descricao2,descricao3,descricao4,descricao5,"&_"descricao6,descricao7)"&_"VALUES('"&nome&"','"&telefone&"','"&email&"','"&grupo&"','"&comentario&"','"&fantasia&"','"&razao&"',"&_"'"&cidade&"','"&est&"','"&bairro&"','"&cep&"','"&fone&"','"&celular&"','"&fax&"','"&cnpj&"','"&insc&"','"&site&"','"&endereco&"',"&_"'"&codgrupo&"','"&data&"','"&cfop&"','"&nota&"','"&codfornecedor&"','"&prod1&"','"&prod2&"','"&prod3&"','"&prod4&"','"&prod5&"',"&_"'"&prod6&"','"&prod7&"','"&peso1&"','"&peso2&"','"&peso3&"','"&peso4&"','"&peso5&"','"&peso6&"','"&peso7&"','"&unidade1&"',"&_"'"&unidade2&"','"&unidade3&"','"&unidade4&"','"&unidade5&"','"&unidade6&"','"&unidade7&"','"&quant1&"','"&quant2&"','"&quant3&"',"&_"'"&quant4&"','"&quant5&"','"&quant6&"','"&quant7&"','"&valor1&"','"&valor2&"','"&valor3&"','"&valor4&"','"&valor5&"','"&valor6&"',"&_"'"&valor7&"','"&total1&"','"&total2&"','"&total3&"','"&total4&"','"&total5&"','"&total6&"','"&total7&"','"&icms1&"','"&icms2&"',"&_"'"&icms3&"','"&icms4&"','"&icms5&"','"&icms6&"','"&icms7&"','"&baseicms&"','"&valoricms&"','"&baseipi&"','"&valoripi&"','"&valorp&"',"&_"'"&valorn&"','"&codmot&"','"&mot&"','"&valoru&"','"&totalfrete&"','"&codcomprador&"','"&comprador&"','"&percent&"','"&totalcomissao&"',"&_"'"&codtrans&"','"&trans&"','"&frete&"','"&placa1&"','"&placa2&"','"&endtrans&"','"&cidtrans&"','"&esttrans&"','"&cnpjtrans&"',"&_"'"&insctrans&"','"&data1&"','"&data2&"','"&data3&"','"&data4&"','"&data5&"','"&data6&"','"&data7&"','"&data8&"','"&data9&"',"&_"'"&valorp1&"','"&valorp2&"','"&valorp3&"','"&valorp4&"','"&valorp5&"','"&valorp6&"','"&valorp7&"','"&valorp8&"','"&valorp9&"',"&_"'"&diferenca&"','"&descricao1&"','"&descricao2&"','"&descricao3&"','"&descricao4&"','"&descricao5&"','"&descricao6&"','"&descricao7&"')"'Caso ocorra um erro esta função de erro será chamada'Executa a inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery)'Fecha o Objeto de ConexãoobjConn.close'"APAGA" qualquer instancia que possa ter no objeto objRs e objConnSet objRs = NothingSet objConn = Nothing'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0if err = 0 Then	'Redireciona o usuário caso não tenha ocorrido erro na transação	response.redirect "sucesso.asp"end ifelseresponse.redirect "form_inclusao.asp?codgrupo="&codgrupo&"&forn="&codfornecedor&"&prod1="&prod1&"&prod2="&prod2&"&prod3="&prod3&"&prod4="&prod4&"&prod5="&prod5&"&prod6="&prod6&"&prod7="&prod7&"&codmot="&codmot&"&comis="&codcomprador&"&trans="&codtrans&"&quant1="&quant1&"&quant2="&quant2&"&quant3="&quant3&"&quant4="&quant4&"&quant5="&quant5&"&quant6="&quant6&"&quant7="&quant7&"&valor1="&valor1&"&valor2="&valor2&"&valor3="&valor3&"&valor4="&valor4&"&valor5="&valor5&"&valor6="&valor6&"&valor7="&valor7&"&total1="&total1&"&total2="&total2&"&total3="&total3&"&total4="&total4&"&total5="&total5&"&total6="&total6&"&total7="&total7&"&icms1="&icms1&"&icms2="&icms2&"&icms3="&icms3&"&icms4="&icms4&"&icms5="&icms5&"&icms6="&icms6&"&icms7="&icms7&"&baseicms="&baseicms&"&valoricms="&valoricms&"&baseipi="&baseipi&"&valoripi="&valoripi&"&valorp="&valorp&"&valorn="&valorn&"&valoru="&valoru&"&totalfrete="&totalfrete&"&percent="&percent&"&totalcomissao="&totalcomissao&"&frete="&frete&"&data1="&data1&"&data2="&data2&"&data3="&data3&"&data4="&data4&"&data5="&data5&"&data6="&data6&"&data7="&data7&"&data8="&data8&"&data9="&data9&"&valorp1="&valorp1&"&valorp2="&valorp2&"&valorp3="&valorp3&"&valorp4="&valorp4&"&valorp5="&valorp5&"&valorp6="&valorp6&"&valorp7="&valorp7&"&valorp8="&valorp8&"&valorp9="&valorp9&"&diferenca="&diferenca&"&comentario="&comentario&"&peso1="&peso1&"&peso2="&peso2&"&peso3="&peso3&"&peso4="&peso4&"&peso5="&peso5&"&peso6="&peso6&"&peso7="&peso7&"&cfop="&cfop&"&data="&data&"&nota="&nota&""end if %>

tambem gostaria de saber tambem por exemplo o codigo vai no campo autonum, mas ate ai eu nao sei pq ele esta sendo criado neste momento mas eu gostaria de fazer outra inserção em uma outra tabela.

 

 

ex inseri na tabela "cp" como da pergunta acima ai eu gostaria de criar um registro com este codigo no caso o "autonum" na tabela "fr". deixa eu recapitular eu quero pegar o numero do "autonum" na tabela "cp" e criar um registro na tabela "fr" com um "autonum" novo e o "autonum" do "cp" entraria no campo "ref".

 

 

valeu