Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

panox

Insert Into para varios items

Por , em ASP Clássico

Recommended Posts

panox    0

panox
Postado

Bom, aqui estou eu dinovo, mas dessa vez meu problema não é mais com o JS então acho que deve ficar um pouco mais facil para voces analisarem o codigo

 

Vamos la, eu estou gerando uma tabela dinamicamente em JS E, em cada InsertCell que eu crio, eu crio uma hidden com o mesmo valor que sera mostrado para o usuario, e farei o request form desta hidden...

 

 

 

 

var i = 1;


	function Insere(){


var x=document.getElementById('tabela').insertRow(1)
var qt=x.insertCell(0)
var uni=x.insertCell(0)
var desc=x.insertCell(0)
var bar=x.insertCell(0)
var ape=x.insertCell(0)

qt.innerHTML='<input type="hidden" name="qtd('+i+')" value="'+document.getElementById("qtd2").value+'"> <input type="hidden" name="cod_proj('+i+')" value="'+document.getElementById("cod_gestor33").value+'"> ' + document.getElementById("qtd2").value;

uni.innerHTML='<input type="hidden" name="ccum('+i+')" value="'+document.getElementById("cum").value+'"> <input type="hidden" name="cdescri('+i+')" value="'+document.getElementById("cdesc").value+'">' + document.getElementById("cum").value;

desc.innerHTML='<input type="hidden" name="cfil('+i+')" value="'+document.getElementById("cod_gestor2").value+'"> <input type="hidden" name="obser('+i+')" value="'+document.getElementById("obs").value+'">' + document.getElementById("cdesc").value;

bar.innerHTML='<input type="hidden" name="codbarra('+i+')" value="'+document.getElementById("cbarra").value+'">' + document.getElementById("cbarra").value;

ape.innerHTML='<input type="hidden" name="codprodu('+i+')" value="'+document.getElementById("codpro").value+'">' + document.getElementById("codpro").value;

}


   function cont(){
	i +=1;
   }

 

e utilizo alguns hiddens que são fixos para todos os Inserts, por tanto nem me preocupei em coloca-los aqui.

 

Na pagina que faz a inserção dos dados, eu consegui inserir para apenas 1 item criado na tabela, no caso, sem esse contador nos hiddens ('+i+'), apenas eles normais.... utilizando este codigo

 

 

 

Conexao.Execute "Insert Into REQ_REQUISICAO ( CODIGO, NUM_REQUISICAO, COD_USUARIO, COD_PRODUTO, TIPO_REQUISICAO, QTDE_SOLICITADA, QTDE_ATENDIDA, PRIORIDADE, STATUS, COD_FILIAL, COD_CCUSTO, OBSERVACAO, COD_PROPRIETARIO, UMEDIDA, DESCRICAO, COD_TECNOLOGIA_GESTOR) values (GEN_ID(GEN_REQ_REQUISICAO,1), GEN_ID(GEN_REQ_REQUISICAO,1), " & Request.Form("usr") & ", " & Request.form("codprodu") & ", " & Request.form("1") & ", " & Request.form("qtd") & ", " & Request.form("0") & ", " & Request.form("1") & ", " & Request.form("0") & ", " & Request.form("cfil") & ", " & Request.form("ccusto2") & ", '" & Request.form("obser") & "', " & Request.Form("cfil") & ", '" & Request.form("ccum") & "', '" & Request.form("cdescri") & "', " & Request.form("cod_proj") & ")"

Agora eu estou tentando fazer com que ele faça a inserção dos items por linha mas não estou conseguindo... tentei usar este codigo mas não funcionou

 

 

 

For Each i in Request.Form

Conexao.Execute "Insert Into REQ_REQUISICAO ( CODIGO, NUM_REQUISICAO, COD_USUARIO, COD_PRODUTO, TIPO_REQUISICAO, QTDE_SOLICITADA, QTDE_ATENDIDA, PRIORIDADE, STATUS, COD_FILIAL, COD_CCUSTO, OBSERVACAO, COD_PROPRIETARIO, UMEDIDA, DESCRICAO, COD_TECNOLOGIA_GESTOR) values (GEN_ID(GEN_REQ_REQUISICAO,1), GEN_ID(GEN_REQ_REQUISICAO,1), " & Request.Form("usr") & ", " & Request.form("codprodu(i)") & ", " & Request.form("1") & ", " & Request.form("qtd(i)") & ", " & Request.form("0") & ", " & Request.form("1") & ", " & Request.form("0") & ", " & Request.form("cfil(i)") & ", " & Request.form("ccusto2(i)") & ", '" & Request.form("obser(i)") & "', " & Request.Form("cfil(i)") & ", '" & Request.form("ccum(i)") & "', '" & Request.form("cdescri(i)") & "', " & Request.form("cod_proj(i)") & ")"

next

 

 

Sera que alguém teria uma ideia de como resolver isso ? Obrigado desde já !

 

[]'s

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fábio BN    17

Fábio BN
Postado

Oi.

Você quer inserir todas as linhas preenchidas de uma só vez no Banco de Dados?

Existe um comando que faz isso:

 

Inicia Gravação

<%
variavel_do_formulario = request.form("variavel_do_formulario")
	   
'Pega o valor dos campos digitados e os separa por virgula

valores_para_gravar = split(variavel_do_formulario ,",")
max = ubound(valores_para_gravar)
	
'Faz um LOOP enquanto o valor de i não for igual a quantidade dos valores separados das virgulas no max
   
for i = 0 to max
'Grava no Banco de Dados
sql = "insert into nome_tabela (campo_da_tabela) values ("& trim(valores_para_gravar(i)) &") "
	 db.Execute(SQL_new)
'end if
next
%>

Dica Importante: Os campos do formulário ao pular de linha devem permacecer com o mesmos nomes para que esse código acima os separe e os grave um em cada linha do Banco de Dados.

 

Se caso você tiver mais campos, faça um desse para cada campo:

valores_para_gravar = split(variavel_do_formulario ,",")
valores_para_gravar_campo2 = split(valores_para_gravar_campo2 ,",")
valores_para_gravar_campo3 = split(valores_para_gravar_campo3 ,",")
....

Ai na hora do insert Into basta inserir os campos no comando.

 

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fábio BN    17

Fábio BN
Postado

Hmm, no caso entao... eu preciso ou nao daquele contador para ir aumentando os indices dos hiddens ?

Oi, não precisa de nada daquilo não, a coisa é bem + simples.

 

Crie campos normais, exemplo:

<form method="POST" action="pagina.asp">
  <input name="campo1" type="text" id="campo1" size="10" maxlength="10">
  <input name="campo2" type="text" id="campo2" size="10" maxlength="10">
  <br>
  <input name="campo1" type="text" id="campo1" size="10" maxlength="10">
  <input name="campo2" type="text" id="campo2" size="10" maxlength="10">
  <br>
  <input name="campo1" type="text" id="campo1" size="10" maxlength="10">
  <input name="campo2" type="text" id="campo2" size="10" maxlength="10">
  <br>
  <input name="campo1" type="text" id="campo1" size="10" maxlength="10">
  <input name="campo2" type="text" id="campo2" size="10" maxlength="10">
</form>

Assim o sistema pega todos os valores independente da quantidade de campos e grava um em cada linha, como se cada um tivese sido inserido individualmente.

 

Faça um teste.

 

Abraços.

Compartilhar este post

Link para o post
Compartilhar em outros sites

panox    0

panox
Postado

Eu acabei de fazer para o meu codigo e deu esse erro :

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01C2)

Número de argumentos incorreto ou atribuição de propriedade inválida: 'ubound'

/Lider2/reqins.asp, line 50

 

e este é o meu codigo

 

<!--#include file="conexao.asp"-->
<%
  
call abre_conexao
Set R6 = server.createobject("ADODB.RecordSet")






CODIGO = request.form("gencod")
NUM_REQUISICAO = request.form("gemnum")
COD_USUARIO = request.form("usr")
COD_PRODUTO = request.form("codprodu")
TIPO_REQUISICAO = request.form("1")
QTDE_SOLICITADA = request.form("qtd")
QTDE_ATENDIDA = request.form("0")
PRIORIDADE = request.form("1")
STATUS = request.form("0")
COD_FILIAL = request.form("cfil")
COD_CCUSTO = request.form("ccusto2")
OBSERVACAO = request.form("obser")
COD_PROPRIETARIO = request.form("cfil")
UMEDIDA = request.form("ccum")
DESCRICAO = request.form("cdescri")
COD_TECNOLOGIA_GESTOR = request.form("cod_proj")


'Pega o valor dos campos digitados e os separa por virgula


CODIGO = split(gencod ,",")
NUM_REQUISICAO = split(gemnum ,",")
COD_USUARIO = split(usr ,",")
COD_PRODUTO = split(codprodu ,",")
TIPO_REQUISICAO = split(1 ,",")
QTDE_SOLICITADA = split(qtd ,",")
QTDE_ATENDIDA = split(0 ,",")
PRIORIDADE = split(1 ,",")
STATUS = split(0 ,",")
COD_FILIAL = split(cfil ,",")
COD_CCUSTO = split(ccusto2 ,",")
OBSERVACAO = split(obser ,",")
COD_PROPRIETARIO = split(cfil ,",")
UMEDIDA = split(ccum ,",")
DESCRICAO = split(cdescri ,",")
COD_TECNOLOGIA_GESTOR = split(cod_proj ,",")

max = ubound(CODIGO, NUM_REQUISICAO, COD_USUARIO, COD_PRODUTO, TIPO_REQUISICAO, QTDE_SOLICITADA, QTDE_ATENDIDA, PRIORIDADE, STATUS, COD_FILIAL, COD_CCUSTO, OBSERVACAO, COD_PROPRIETARIO, UMEDIDA, DESCRICAO, COD_TECNOLOGIA_GESTOR)



	
'Faz um LOOP enquanto o valor de i não for igual a quantidade dos valores separados das virgulas no max

for i = 0 to max

Conexao.Execute "Insert Into REQ_REQUISICAO ( CODIGO, NUM_REQUISICAO, COD_USUARIO, COD_PRODUTO, TIPO_REQUISICAO, QTDE_SOLICITADA, QTDE_ATENDIDA, PRIORIDADE, STATUS, COD_FILIAL, COD_CCUSTO, OBSERVACAO, COD_PROPRIETARIO, UMEDIDA, DESCRICAO, COD_TECNOLOGIA_GESTOR) values ( " & trim(CODIGO(i)) & ", " & trim(NUM_REQUISICAO(i)) & ", " & trim(COD_USUARIO(i)) & ", " & trim(COD_PRODUTO(i)) & ", " & trim(TIPO_REQUISICAO(i)) & ", " & trim(QTDE_SOLICITADA(i)) & ", " & trim(QTDE_ATENDIDA(i)) & ", " & trim(PRIODRIDADE(i)) & ", " & trim(STATUS(i)) & ", " & trim(COD_FILIAL(i)) & ", " & trim(COD_CCUSTO(i)) & ", '" & trim(OBSERVACAO(i)) & "', " & trim(PCOD_PROPRIETARIO(i)) & ", '" & trim(UMEDIDA(i)) & "', '" & trim(DESCRICAO(i)) & "', " & trim(COD_TECNOLOGIA_GESTOR(i)) & ")"

next

call fecha_conexao	
set r6 = nothing		
%>


<script languange = "javascript">

alert("Requisição Concluida com Sucesso !");

</script>

Compartilhar este post

Link para o post
Compartilhar em outros sites

panox    0

panox
Postado

Oi, entao, eu troquei o ubound só por (CODIGO)e ele nao apontou erros, foi até o alert do JavaScript que diz que o insert foi feito com sucesso, mas quando vou checar la no IBExpert nao inseriu nada =X...nem simples, nem mais de um... o que pode ser agora ?... O codigo esta certo nao esta ?

 

<!--#include file="conexao.asp"-->
<%
  
call abre_conexao
Set R6 = server.createobject("ADODB.RecordSet")



CODIGO = request.form("gencod")
NUM_REQUISICAO = request.form("gemnum")
COD_USUARIO = request.form("usr")
COD_PRODUTO = request.form("codprodu")
TIPO_REQUISICAO = request.form("1")
QTDE_SOLICITADA = request.form("qtd")
QTDE_ATENDIDA = request.form("0")
PRIORIDADE = request.form("1")
STATUS = request.form("0")
COD_FILIAL = request.form("cfil")
COD_CCUSTO = request.form("ccusto2")
OBSERVACAO = request.form("obser")
COD_PROPRIETARIO = request.form("cfil")
UMEDIDA = request.form("ccum")
DESCRICAO = request.form("cdescri")
COD_TECNOLOGIA_GESTOR = request.form("cod_proj")



CODIGO = split(gencod ,",")
NUM_REQUISICAO = split(gemnum ,",")
COD_USUARIO = split(usr ,",")
COD_PRODUTO = split(codprodu ,",")
TIPO_REQUISICAO = split(1 ,",")
QTDE_SOLICITADA = split(qtd ,",")
QTDE_ATENDIDA = split(0 ,",")
PRIORIDADE = split(1 ,",")
STATUS = split(0 ,",")
COD_FILIAL = split(cfil ,",")
COD_CCUSTO = split(ccusto2 ,",")
OBSERVACAO = split(obser ,",")
COD_PROPRIETARIO = split(cfil ,",")
UMEDIDA = split(ccum ,",")
DESCRICAO = split(cdescri ,",")
COD_TECNOLOGIA_GESTOR = split(cod_proj ,",")

max = ubound(CODIGO)


for i = 0 to max



Conexao.Execute "Insert Into REQ_REQUISICAO ( CODIGO, NUM_REQUISICAO, COD_USUARIO, COD_PRODUTO, TIPO_REQUISICAO, QTDE_SOLICITADA, QTDE_ATENDIDA, PRIORIDADE, STATUS, COD_FILIAL, COD_CCUSTO, OBSERVACAO, COD_PROPRIETARIO, UMEDIDA, DESCRICAO, COD_TECNOLOGIA_GESTOR) values ( " & trim(CODIGO(i)) & ", " & trim(NUM_REQUISICAO(i)) & ", " & trim(COD_USUARIO(i)) & ", " & trim(COD_PRODUTO(i)) & ", " & trim(TIPO_REQUISICAO(i)) & ", " & trim(QTDE_SOLICITADA(i)) & ", " & trim(QTDE_ATENDIDA(i)) & ", " & trim(PRIODRIDADE(i)) & ", " & trim(STATUS(i)) & ", " & trim(COD_FILIAL(i)) & ", " & trim(COD_CCUSTO(i)) & ", '" & trim(OBSERVACAO(i)) & "', " & trim(PCOD_PROPRIETARIO(i)) & ", '" & trim(UMEDIDA(i)) & "', '" & trim(DESCRICAO(i)) & "', " & trim(COD_TECNOLOGIA_GESTOR(i)) & ")"

next


call fecha_conexao	
set r6 = nothing		
%>


<script languange = "javascript">

alert("Requisição Concluida com Sucesso !");

</script>

 

 

e aqui eu gero os hiddens com os dados...pode conferir, sao os mesmos nomes dos requests.forms

 

 

function Insere(){


var x=document.getElementById('tabela').insertRow(1)
var qt=x.insertCell(0)
var uni=x.insertCell(0)
var desc=x.insertCell(0)
var bar=x.insertCell(0)
var ape=x.insertCell(0)

						

				
				
						


qt.innerHTML='<input type="hidden" name="qtd" value="'+document.getElementById("qtd2").value+'"> <input type="hidden"  id="0" value="0" name="0"> <input type="hidden" name="cod_proj" value="'+document.getElementById("cod_gestor33").value+'"> ' + document.getElementById("qtd2").value;

uni.innerHTML='<input type="hidden" name="ccum" value="'+document.getElementById("cum").value+'"> <input type="hidden"  id="1" value="1" name="1"> <input type="hidden" name="cdescri" value="'+document.getElementById("cdesc").value+'">' + document.getElementById("cum").value;

desc.innerHTML='<input type="hidden" name="cfil" value="'+document.getElementById("cod_gestor2").value+'"> <input type="hidden"  id="usr" name="usr" value="<%=Request.form("coder")%>"> <input type="hidden" name="obser" value="'+document.getElementById("obs").value+'">' + document.getElementById("cdesc").value;

bar.innerHTML='<input type="hidden" name="codbarra" value="'+document.getElementById("cbarra").value+'"> <input type="hidden" name="gencod" value="GEN_ID(GEN_REQ_REQUISICAO,1)">' + document.getElementById("cbarra").value;

ape.innerHTML='<input type="hidden" name="codprodu" value="'+document.getElementById("codpro").value+'"> <input type="hidden"  id="ccusto2" name="ccusto2"> <input type="hidden" name="gemnum" value="GEN_ID(GEN_REQ_REQUISICAO,1)">' + document.getElementById("codpro").value;

}

Sera que esses Generators do firebird tem algo a ver ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fábio BN    17

Fábio BN
Postado

Oi.

 

Achei o erro:

Tem que ser assim:

CODIGO = request.form("gencod")

NUM_REQUISICAO = request.form("gemnum")

 

 

CODIGO = split(CODIGO,",")

NUM_REQUISICAO = split(NUM_REQUISICAO,",")

 

 

Até o fim, você trocou as variáveis.

 

Veja se agora funciona.

Abraços!

Compartilhar este post

Link para o post
Compartilhar em outros sites

panox    0

panox
Postado 

CODIGO = split(gencod,",")
NUM_REQUISICAO = split(gemnum,",")
COD_USUARIO = split(usr,",")
COD_PRODUTO = split(codprodu,",")
TIPO_REQUISICAO = split(1,",")
QTDE_SOLICITADA = split(qtd,",")
QTDE_ATENDIDA = split(0,",")
PRIORIDADE = split(1,",")
STATUS = split(0,",")
COD_FILIAL = split(cfil,",")
COD_CCUSTO = split(ccusto2,",")
OBSERVACAO = split(obser,",")
COD_PROPRIETARIO = split(cfil,",")
UMEDIDA = split(ccum,",")
DESCRICAO = split(cdescri,",")
COD_TECNOLOGIA_GESTOR = split(cod_proj,",")

max = ubound(CODIGO)

 

Mesma coisa =X

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fábio BN    17

Fábio BN
Postado

Oi.

 

Achei o erro:

Tem que ser assim:

 

<!--#include file="conexao.asp"-->
<%
  
call abre_conexao
Set R6 = server.createobject("ADODB.RecordSet")



CODIGO = request.form("gencod")
NUM_REQUISICAO = request.form("gemnum")
COD_USUARIO = request.form("usr")
COD_PRODUTO = request.form("codprodu")
TIPO_REQUISICAO = request.form("1")
QTDE_SOLICITADA = request.form("qtd")
QTDE_ATENDIDA = request.form("0")
PRIORIDADE = request.form("1")
STATUS = request.form("0")
COD_FILIAL = request.form("cfil")
COD_CCUSTO = request.form("ccusto2")
OBSERVACAO = request.form("obser")
COD_PROPRIETARIO = request.form("cfil")
UMEDIDA = request.form("ccum")
DESCRICAO = request.form("cdescri")
COD_TECNOLOGIA_GESTOR = request.form("cod_proj")



CODIGO = split(CODIGO,",")
NUM_REQUISICAO = split(NUM_REQUISICAO,",")
COD_USUARIO = split(COD_USUARIO,",")
COD_PRODUTO = split(COD_PRODUTO,",")
TIPO_REQUISICAO = split(TIPO_REQUISICAO,",")
QTDE_SOLICITADA = split(QTDE_SOLICITADA ,",")
QTDE_ATENDIDA = split(QTDE_ATENDIDA,",")
PRIORIDADE = split(PRIORIDADE,",")
STATUS = split(STATUS,",")
COD_FILIAL = split(COD_FILIAL,",")
COD_CCUSTO = split(COD_CCUSTO,",")
OBSERVACAO = split(OBSERVACAO,",")
COD_PROPRIETARIO = split(COD_PROPRIETARIO,",")
UMEDIDA = split(UMEDIDA,",")
DESCRICAO = split(DESCRICAO,",")
COD_TECNOLOGIA_GESTOR = split(COD_TECNOLOGIA_GESTOR,",")

max = ubound(CODIGO)


for i = 0 to max

Conexao.Execute "Insert Into REQ_REQUISICAO ( CODIGO, NUM_REQUISICAO, COD_USUARIO, COD_PRODUTO, TIPO_REQUISICAO, QTDE_SOLICITADA, QTDE_ATENDIDA, PRIORIDADE, STATUS, COD_FILIAL, COD_CCUSTO, OBSERVACAO, COD_PROPRIETARIO, UMEDIDA, DESCRICAO, COD_TECNOLOGIA_GESTOR) values ( " & trim(CODIGO(i)) & ", " & trim(NUM_REQUISICAO(i)) & ", " & trim(COD_USUARIO(i)) & ", " & trim(COD_PRODUTO(i)) & ", " & trim(TIPO_REQUISICAO(i)) & ", " & trim(QTDE_SOLICITADA(i)) & ", " & trim(QTDE_ATENDIDA(i)) & ", " & trim(PRIODRIDADE(i)) & ", " & trim(STATUS(i)) & ", " & trim(COD_FILIAL(i)) & ", " & trim(COD_CCUSTO(i)) & ", '" & trim(OBSERVACAO(i)) & "', " & trim(PCOD_PROPRIETARIO(i)) & ", '" & trim(UMEDIDA(i)) & "', '" & trim(DESCRICAO(i)) & "', " & trim(COD_TECNOLOGIA_GESTOR(i)) & ")"

next


call fecha_conexao	
set r6 = nothing		
%>


<script languange = "javascript">

alert("Requisição Concluida com Sucesso !");

</script>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

atualmente quial o erro e onde aponta?

Compartilhar este post

Link para o post
Compartilhar em outros sites

panox    0

panox
Postado

Fabio, o que você mudou no codigo ?... Bom, tinha dois campos errados.. o PRIORIDADE E COD_PROPRIETARIO, mas ja reescrevi de modo correto... agora ele esta dando este erro

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[ODBC Firebird Driver][Firebird]Dynamic SQL Error SQL error code = -104 Token unknown - line 1, column 310 ,

/Lider2/reqins.asp, line 50

 

Mario Monteiro :

 

Após substituir o codigo por esse que o Fabio postou esta dando este erro

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[ODBC Firebird Driver][Firebird]Dynamic SQL Error SQL error code = -104 Token unknown - line 1, column 310 ,

/Lider2/reqins.asp, line 50

Volto com a minha pergunta, sera que tem algo a ver com esses Generators do firebird ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

panox    0

panox
Postado

Aah, para deixar avisado tambem, se souberem desse outro tipo de sintaxe, eu to tentando desse jeito tambem e recebendo o mesmo erro

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[ODBC Firebird Driver][Firebird]Dynamic SQL Error SQL error code = -104 Token unknown - line 1, column 275 ,

/lider/reqins.asp, line 66

 

 

 

For i = 1 To Request.Form("cod_proj").Count



Conexao.Execute "Insert Into REQ_REQUISICAO ( CODIGO, COD_USUARIO, COD_PRODUTO, TIPO_REQUISICAO, QTDE_SOLICITADA, QTDE_ATENDIDA, PRIORIDADE, STATUS, COD_FILIAL, COD_CCUSTO, OBSERVACAO, COD_PROPRIETARIO, UMEDIDA, DESCRICAO, COD_TECNOLOGIA_GESTOR) values ( " & Request.Form("gennum")(i) & ", " & Request.Form("usr")(i) & ", " & Request.form("codprodu")(i) & ", " & Request.form("1")(i) & ", " & Request.form("qtd")(i) & ", " & Request.form("0")(i) & ", " & Request.form("1")(i) & ", " & Request.form("0")(i) & ", " & Request.form("cfil")(i) & ", " & Request.form("ccusto2")(i) & ", '" & Request.form("obser")(i) & "', " & Request.Form("cfil")(i) & ", '" & Request.form("ccum")(i) & "', '" & Request.form("cdescri")(i) & "', " & Request.form("cod_proj")(i) & ")"


Next

 

 

eu achei em um post daqui mesmo a respeito de for each e, bem, nao custa tentar não é ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

panox    0

panox
Postado

bom, troquei os generators por triggers e nao resolver meu problema, com ambos os codigos, ubound ou for to request.form inserem registros simples, mas se for 2 ou mais registros ele aponta o erro

 

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[ODBC Firebird Driver][Firebird]Dynamic SQL Error SQL error code = -104 Token unknown - line 1, column 261 ,

/lider/reqins.asp, line 49

 

e insere apenas o ultimo item que você digitou.

 

 

 

1ª Opção :

 

For i = 1 To Request.Form("cod_proj").Count

Response.write request.form("cod_proj")(i)&"<BR>" & request.form("codprodu")(i)&"<BR>" & request.form("qtd")(i)&"<BR>" & request.form("ccum")(i)&"<BR>" & request.form("usr")(i)&"<BR>" & request.form("cfil")(i)&"<BR>" & request.form("ccusto2")(i)&"<BR>" & request.form("1")(i)&"<BR>" & request.form("0")(i)&"<BR>" & request.form("obser")(i)&"<BR>" & request.form("cdescri")(i)&"<BR>" & request.form("gencod")(i)&"<BR>" & request.form("gennum")(i)&"<BR>"

next

2ª opção :

COD_USUARIO = request.form("usr")
COD_PRODUTO = request.form("codprodu")
TIPO_REQUISICAO = request.form("1")
QTDE_SOLICITADA = request.form("qtd")
QTDE_ATENDIDA = request.form("0")
PRIORIDADE = request.form("1")
STATUS = request.form("0")
COD_FILIAL = request.form("cfil")
COD_CCUSTO = request.form("ccusto2")
OBSERVACAO = request.form("obser")
COD_PROPRIETARIO = request.form("cfil")
UMEDIDA = request.form("ccum")
DESCRICAO = request.form("cdescri")
COD_TECNOLOGIA_GESTOR = request.form("cod_proj")


COD_USUARIO = split(COD_USUARIO,",")
COD_PRODUTO = split(COD_PRODUTO,",")
TIPO_REQUISICAO = split(TIPO_REQUISICAO,",")
QTDE_SOLICITADA = split(QTDE_SOLICITADA,",")
QTDE_ATENDIDA = split(QTDE_ATENDIDA,",")
PRIORIDADE = split(PRIORIDADE,",")
STATUS = split(STATUS,",")
COD_FILIAL = split(COD_FILIAL,",")
COD_CCUSTO = split(COD_CCUSTO,",")
OBSERVACAO = split(OBSERVACAO,",")
COD_PROPRIETARIO = split(COD_PROPRIETARIO,",")
UMEDIDA = split(UMEDIDA,",")
DESCRICAO = split(DESCRICAO,",")
COD_TECNOLOGIA_GESTOR = split(COD_TECNOLOGIA_GESTOR,",")

max = ubound(COD_PRODUTO)


for i = 0 to max

Conexao.Execute "Insert Into REQ_REQUISICAO ( COD_USUARIO, COD_PRODUTO, TIPO_REQUISICAO, QTDE_SOLICITADA, QTDE_ATENDIDA, PRIORIDADE, STATUS, COD_FILIAL, COD_CCUSTO, OBSERVACAO, COD_PROPRIETARIO, UMEDIDA, DESCRICAO, COD_TECNOLOGIA_GESTOR) values ( " & trim(COD_USUARIO(i)) & ", " & trim(COD_PRODUTO(i)) & ", " & trim(TIPO_REQUISICAO(i)) & ", " & trim(QTDE_SOLICITADA(i)) & ", " & trim(QTDE_ATENDIDA(i)) & ", " & trim(PRIORIDADE(i)) & ", " & trim(STATUS(i)) & ", " & trim(COD_FILIAL(i)) & ", " & trim(COD_CCUSTO(i)) & ", '" & trim(OBSERVACAO(i)) & "', " & trim(COD_PROPRIETARIO(i)) & ", '" & trim(UMEDIDA(i)) & "', '" & trim(DESCRICAO(i)) & "', " & trim(COD_TECNOLOGIA_GESTOR(i)) & ")"

next

 

Alguem sabe o que estou fazendo de errado aqui ? =X

 

Abraçoos

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito