Qual é o erro deste update?

[natalia 0]

O que tem de errado neste update? Ele apresenta este erro:Erro de tempo de execução do Microsoft VBScript (0x800A0009)Subscrito fora do intervalo: 'i' prdCodigo = split(Request("prdCodigo"),",") catCodigo = Split(Request("catCodigo"),",") sbcCodigo = Split(Request("sbcCodigo"),",") fbcCodigo = Split(Request("fbcCodigo"),",") prdNome = Split(Request("prdNome"),",") prdDescricao = Split(Request("prdDescricao"),",") prdPreco = Split(Request("prdPreco"),",") prdPeso = Split(Request("prdPeso"),",") prdGarantia = Split(Request("prdGarantia"),",") prdAtivo = Split(Request("prdAtivo"),",") prdPromocao = Split(Request("prdPromocao"),",") prdImgPequena = Split(Request("prdImgPequena"),",") For i = LBound(prdCodigo) To UBound(prdCodigo) sqlUp = " UPDATE Produto SET " &_ " catCodigo = "& catCodigo(i) &", " &_ " sbcCodigo = "& sbcCodigo(i) &", " &_ " fbcCodigo = "& fbcCodigo(i) &", " &_ " prdNome = '"& prdNome(i) &"', " &_ " prdDescricao = '"& prdDescricao(i) &"', " &_ " prdPreco = '"& Replace(Replace(prdPreco(i), "." , "") , "," , "." ) &"', " &_ " prdPeso = "& prdPeso(i) &", " &_ " prdGarantia = '"& prdGarantia(i) &"', " &_ " prdAtivo = "& prdAtivo(i) &", " &_ " prdPromocao = "& prdPromocao(i) &", " &_ " prdImgPequena = '"& prdImgPequena(i) &"' " &_ " WHERE prdCodigo = " & prdCodigo(i) Conexao.Execute(sqlUp) Next Set rsUp = Nothing

[natalia 0]

ah tá, estou usando o split de forma errada. Então como posso fazer vários updates de uma só vez?

[ska_ska 0]

bom.. eu acho esta forma meio "fácil" de ocorrer erros... porque digamos... você está separando seu split por uma "virgula"... ai eu coloco uma vírgula em alguma das variáveis q estou mandando... e já era... mas nada q um teste antes não resolva.. mas... tem q ter muita atenção...

 

o que já vi fazendo muito qdo tem a necessidade de algo parecido com o seu problema é o seguinte....

 

gera um formulário.. um exemplo... com sua chave única..q no caso é o codigo_produto no hidden...

<input..... name="cod_produto" value="253657"> -- hidden<input .... name="txt_nome_253657"> ---textbox<input .... name="txt_descricao_253657"> ---textbox<input .... name="txt_preco_253657"> ---textbox<input .... name="txt_peso_253657"> ---textbox<input..... name="cod_produto" value="2800"> -- hidden<input .... name="txt_nome_2800"> ---textbox<input .... name="txt_descricao_2800"> ---textbox<input .... name="txt_preco_2800"> ---textbox<input .... name="txt_peso_2800"> ---textbox

depois, na pagina q vai processar estas informações.. você trata assim...

<%cod_produto = request.form("codigo_produto")arr_produto = split(codigo_produto,",")For each x in arr_produto   if len(x) <> "" and isNumeric(x) then	   sql = " update "&_		   " nome='" & request.form("txt_nome_"&x) & "'" &_		   " descricao='" & request.form("txt_descricao_"&x) & "'" &_		   ....		   "WHERE cod_produto=" & x	  ... executa sql   end ifNext%>

bom... algo parecido com isso... hehehehe....

 

veja se consegue adaptar para a sua necessidade e se vale a pena tb.. cada caso é um caso diferente, ok?

;)