Ir para conteúdo

POWERED BY:

Arquivado

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

Ulisses Arrais

Update de Varios registros

Por , em ASP Clássico

Recommended Posts

Ulisses Arrais    2

Ulisses Arrais
Postado

Estou tentando fazer um update de varios itens ao mesmo tempo, mas não tenho obtido sucesso.

 

Segue o codigo que cria o formulario altera_preco.asp:

<form method="post" action="pagina2.asp">
<% 
while not rsprodutos.eof 
%>

<input name="cod_produto<%=(RSPRODUTOS.Fields.Item("cod_produto").Value)%>" type="text" value="<%=(RSprodutos.Fields.Item("cod_produto").Value)%>" size="10" maxlength="10">
<input name="produto" type="text" value="<%=(RSPRODUTOS.Fields.Item("produto").Value)%>" size="80" maxlength="80">
<input name="vrl_unitario<%=(RSPRODUTOS.Fields.Item("vrl_unitario").Value)%>" type="text" value="<%=(RSPRODUTOS.Fields.Item("vrl_unitario").Value)%>" size="10" maxlength="10">
   <% 
rsprodutos.movenext() 
wend 
%>

 

E esse é o codigo do Update - pagina2.asp

<!--#include file="bib_conexao_test.asp" -->
<%
Dim rsprodutos, id, cod_produto, vrl_unitario, sql, rsupdate, sql1

sql = "SELECT cod_produto FROM produtos"
call abre_conexao
Set RSprodutos = conexao.Execute(sql)

While Not RSprodutos.EOF
  id = RSprodutos("cod_produto")

  vrl_unitario = Request("vrl_unitario" & id)

sql1 = 	"UPDATE produtos SET vrl_unitario = '"&vrl_unitario&"' WHERE cod_produto = " &id
Set rsupdate = conexao.Execute(sql1) 

  RSprodutos.MoveNext
Wend
call fecha_conexao
conexao.close
Set RSprodutos = Nothing
Set rsupdate = Nothing
Response.Redirect("encerra2.asp")
%>

 

Acredito que o erro esta no codigo do update, agradeço se alguem der uma luz.

 

Muito obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Antes do UPDATE de um

 

Response.write (sql1)

 

Ai veremos o que está executando

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo, única diferença que estou usando para dar um INSERT, só altere para o UPDATE

 

qtd_produtos = split(Request.Form("qtd_produtos"),",")
if qtd_produtos = ""
produtos= Split(Request.Form("produtos"), ",")

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

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

Compartilhar este post

Link para o post
Compartilhar em outros sites

igadino    0

igadino
Postado

Cara passei o poster errado segue um exemplo

codigo  = request.form("pg_id")
 vet = split(codigo,",")
   if not IsArray(vet) then
     vet = array(vet)
     end if
  for i=0 to ubound(vet)
sql="UPDATE chips SET User_status='3' ,User_user='"&session("nome"),User_dia='"&rndt&"',User_mes='"&rndt&"',User_ano='"&rndt&"',User_horas='"&Time()&"'  where User_id = "& vet(i)&""
conn.Execute(sql)
  next

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Qual o erro atual?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ulisses Arrais    2

Ulisses Arrais
Postado

Tem algum jeito de mostrar o erro que esta acontecendo no IIS? Passei a noite procurando mas ele apenas retorna o erro 500 assim não consigo saber o que acontece!

 

Aproveitando o exemplo do xanburzum

 

Fiz esse aqui mas tb não rodou

<!--#include file="bib_conexao_test.asp" -->
<%
DIM cod_produto, vrl_unitario, i, sql, rs

cod_produto = split(Request.Form("cod_produto"),",") 
if cod_produto = "" 
vrl_unitario = Split(Request.Form("vrl_unitario"), ",") 

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

Response.write request.form("vrl_unitario")(i)&"<BR>" & request.form("cod_produto")(i)&"<BR>" 
SQL = "UPDATE produtos SET vrl_unitario = '"&request.form("vrl_unitario")(i)&"' WHERE cod_produto = '"&request.form("cod_produto")(i)&"' "
Call abre_conexao
Set rs = Conexao.Execute(sql)


Call fecha_conexao
rs = Nothing
response.Redirect "encerra2.asp"
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

igadino    0

igadino
Postado

Cara usa o este ele funciona perfeitamente.

codigo  = request.form("pg_id") 
 vet = split(codigo,",") 
   if not IsArray(vet) then 
     vet = array(vet) 
     end if 
  for i=0 to ubound(vet) 
sql="UPDATE chips SET User_status='3' ,User_user='"&session("nome"),User_dia='"&rndt&"',User_mes='"&rndt&"',User_ano='"&rndt&"',User_horas='"&Time()&"'  where User_id = "& vet(i)&"" 
conn.Execute(sql) 
  next

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ulisses Arrais    2

Ulisses Arrais
Postado

Cara usa o este ele funciona perfeitamente.

 

Usei o seu e o codigo rodou mas não esta atualizando o registro veja:

 

<!--#include file="bib_conexao_test.asp" -->
<%
DIM cod_produto, vrl_unitario, i, sql, rs, vet
vrl_unitario = request.Form("vrl_unitario")
cod_produto  = request.form("cod_produto")  
 vet = split(cod_produto,",")  
   if not IsArray(vet) then  
     vet = array(vet)  
     end if  
  for i=0 to ubound(vet)  
sql="UPDATE produtos SET vrl_unitario = '" & vrl_unitario & "' where cod_produto = "& vet(i)&" "  
call abre_conexao
conn.Execute(sql)  
  next
response.redirect "encerra2.asp"
%>

 

Tem algo errado ae?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele esta gerando algum erro ?

dá um response.write na sua string sql, para ver o que esta sendo passado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ulisses Arrais    2

Ulisses Arrais
Postado

ele esta gerando algum erro ?

dá um response.write na sua string sql, para ver o que esta sendo passado.

 

Coloquei o response.write mas não esta retornando nada, então ele não esta trazendo os dados do form?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

poste o resultado

Compartilhar este post

Link para o post
Compartilhar em outros sites

igadino    0

igadino
Postado

Cara agora e so adptar ao seu jeito este esta funcionando legao

 

<!-- #include file = "conexao.asp" -->
<html>
<head>
<title><%=mostra%></title>
<link href="../css/Show_ads.css" rel="stylesheet" type="text/css">
<link href="../css/estilo.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<STYLE type="text/css">
<!--
BODY {
scrollbar-face-color:#E2ECF5;
scrollbar-highlight-color:#D8D391;
scrollbar-3dlight-color:#FFFFFF;
scrollbar-darkshadow-color:#E6E7E8;
scrollbar-shadow-color:#A19F61;
scrollbar-arrow-color:#000000;
scrollbar-track-color:#E2ECF5;
}
-->
</STYLE>
</head>
<body marginwidth="0" marginheight="0" topmargin="0" leftmargin="0" class="tabela01">
<%
secao = request.querystring("secao")
Select case secao
case "Rodadas"
intOrderID = "1"
set rsProd = conn.Execute("SELECT * FROM Tab_Jogos WHERE mst='"&intOrderID&"';")
if rsProd.EOF and rsProd.BOF then
rsProd.close
set rsProd = Nothing
abredb.Close
set abredb = Nothing
else
do while not rsProd.EOF
element = "plac1" & rsProd("IdProd")
intQuant = Request.form(element)
element1 = "plac2" & rsProd("IdProd")
intQuant1 = Request.form(element1)
'intQuantz = rsProd("idprod")
pg_id = "pg_id" & rsProd("IdProd")
ID_Quant = Request.form(pg_id)
if intQuant <> "" and isNumeric(intQuant1) then
set rsProd1 = conn.Execute("update Tab_Jogos set Placar1='"&intQuant&"' ,Placar2='"&intQuant1&"' WHERE mst='"&intOrderID&"' and IdProd='"&ID_Quant&"';")
end if
rsProd.MoveNext
loop
rsprod.close
set rsProd = Nothing
conn.Close  
set conn = Nothing
Response.Redirect "default.asp?PagAtual="&request("PagAtual")&"&secao=AlteraClass"
end if
conn.Close  
set conn = Nothing
case "AlteraClass"
		Session.TimeOut = 20
'			if not session("tipo")= "1" then
'			session("pag")="../Jogo_Carioca?secao=AlteraClass&Showid="&session("id")&""
'			Response.Redirect("../login.asp")
'			end if
%>
<table border="0" cellpadding="1" width="100%">
<tr><td valign="top" width="50%">
<b><%=request.QueryString("PagAtual")%>ª rodada</b> <a href="../Jogo_Carioca?secao=ListarClass&PagAtual=1">Classificação atual</a>
<div style="height:270px; border:1px #8CA5B5 solid; overflow-x:auto; overflow-y:auto; width:100%px; margin:0px;padding:0px;" align="center">
<%
Call Iniciar1
Sub Iniciar1()
on error resume next
Session.LCID = 1046
Response.Buffer = True
Dim objConn
Dim varConn
Dim rsMuralRS
Dim i
PagAtual = Request.QueryString("PagAtual") 'página atual
SQL = "SELECT * FROM Tab_Jogos ORDER BY id"
RS.Open SQL, conn, 3
dim dia, mes, ano
ano=year(NOW())
dia=DAY(NOW())
mes=MONTH(NOW())
if dia=<9 then
dia="0"&dia
end if
if mes=<9 then
mes="0"&mes
end if
  	vdata=FormatDateTime(Now)
if err.number <> 0 then
Select Case Err.number
Case 0
Case Else
Response.Write "<title>Erro!</title><link href='../css/estilo.css' rel='stylesheet' type='text/css'><body class='tabela01'><center><br><font face=tahoma style=font-size:11px><h1>Erro no Sistema!</h1><br>N°. do erro:" & Err.number & "<br>Descrição do erro:" & Err.Description & "<br>Se você estiver inserindo dados NÃO use: aspas simples ('), barra (/) e parêntes (())<br><a href=""javascript: history.go(-1);"">Voltar para página anterior</a></body>"
End Select
response.End()
else
if RS.EOF then

response.Write "<table align='center' width='100%'><tr><td align='center'><font color='#ff0000'><b>Hão há nenhum registro</b></font>.</td></tr><tr><td align='center'></td></tr></table>"
else
'############## paginacao Introdução  #################
'------- Coloque aqui a quantidade de registros que você deseja por página --------
Const NumPorPage = 8
'Verifica qual a página solicitada
  	Dim PagAtual
  	IF Request.QueryString("PagAtual") = "" Then
   PagAtual = 1 'Primeira página
   Else
   PagAtual = Request.QueryString("PagAtual")
   End If
  RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
   RS.MoveFirst                'Move o RecorSet para o início 
   RS.PageSize = NumPorPage    'Coloca a quantidade de páginas
   Dim TotalPages              'Pega o número total de páginas
TotalPages = RS.PageCount
   RS.AbsolutePage = PagAtual  'Configura a página atual
   '############## paginacao Introdução  - FIM #################
   Count = 0       'Zera o contador
'   Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B>")
'	Response.Write ("<B><font color=""#006600"" size=""2"" face=""Arial""><strong>"&"Existem " & RS.RecordCount & " Registros Página " & PagAtual & " de " & RS.PageCount & "</strong></font></B>"&"<br>")
  end if
if err.number <> 0 then
Select Case Err.number
Case 0
Case Else
Response.Write "<title>Erro!</title><center><br><br><font face=tahoma style=font-size:11px><h1>Erro no Sistema!</h1><br><br>N°. do erro:" & Err.number & "<br>Descrição do erro:" & Err.Description & "<br><br>Se você estiver inserindo dados em sua loja NÃO use: aspas simples ('), barra (/) e parêntes (())<br><Br><a href=""javascript: history.go(-1);"">Voltar para página anterior</a>"
End Select
response.End()
else
%>
<form method="post" name="pegtudo" action="default.asp?secao=Rodadas" onsubmit="return apagar(this);">
<input name="PagAtual" type="hidden" value="<%=PagAtual%>" id="pag">

<%
i = 0 
DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize 
idprod = RS("id")
intProdID = idprod
intQuant = quantidade
intQuant1 = quantidade1
%> 
<table class="tabela01" border="0" width="100%" cellspacing="1" cellpadding="1">
<%if RS ("placar1")>=0 or RS("placar2")>=0 then%>
<tr>
<td class="tabela02" width="50%" style="height:5px" align="right"><%=RS("Tab_time1")%></td><td align="center" style="width:15px"><input type="text" disabled style="width:18px" maxlength="2" value="<%=RS("placar1")%>" name="plac1<%=intProdID %>" id=""></td><td align="center" style="width:15px"><input type="text" disabled style="width:18px" maxlength="2" value="<%=RS("placar2")%>" name="plac2<%=intProdID %>" id="plac2<%=intProdID %>"></td><td class="tabela02" align="left" width="50%"><%=RS("Tab_time2")%></td>
<td>
<input type="checkbox" name="pg_id<%=intProdID %>" value="<%=intProdID %>" <%if not request("pg_id"&intProdID)="" then%> checked <%end if%>>
</td>
</tr>
<%else%>
<tr>
<td class="tabela02" width="50%" style="height:5px" align="right"><%=RS("Tab_time1")%></td><td align="center" style="width:15px"><input type="text" style="width:18px" maxlength="2" value="<%=RS("placar1")%>" name="plac1<%=intProdID %>" id=""></td><td align="center" style="width:15px"><input type="text" style="width:18px" maxlength="2" value="<%=RS("placar2")%>" name="plac2<%=intProdID %>" id="plac2<%=intProdID %>"></td><td class="tabela02" align="left" width="50%"><%=RS("Tab_time2")%></td>
<td>
<input type="checkbox" name="pg_id<%=intProdID %>" value="<%=intProdID %>" <%if not request("pg_id"&intProdID)="" then%> checked <%end if%>>
</td>
</tr>
<%end if%>
</table>
<%
i = i+1
Count = Count + 1   'paginacao
RS.MoveNext
LOOP                'tb paginacao
%>
<%
IF CInt(PagAtual) > CInt(TotalPages) then 
Response.Write ("<a class='rteimage' onmouseover='window.status=""Anterior""; return true;' onmouseout='window.status=""Anterior""; return true;' onClick='window.location=""?PagAtual=" &TotalPages& """'><font face="&fonte&" style=font-size:11px;color:'ff0000'>" & TotalPages & "</font></a> O Nº de Página é<font face="&fonte&" style=font-size:11px;color:'ff0000'> "&TotalPages&"</font>  ")
else
'################## paginacao 01 #####################
IF PagAtual > 1 THEN 
'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
     Response.Write("<font color=""#660066"" size=""1"" face=""Arial"">") 
     Response.Write("<a href='?PagAtual=" &  1 & "'>")
'     Response.Write("Primeira")
     Response.Write("</a></font>  ")
     Response.Write("<font color=""#660066"" size=""2"" face=""Arial"">") 
     Response.Write("<a href='?PagAtual=" & PagAtual - 1 & "'>")
'     Response.Write("Anterior") 
     Response.Write("</a></font>   ")
     Response.Write("<font color=""#660066"" size=""2"" face=""Arial"">")
  Response.Write("<a class='rteimage' onmouseover='window.status=""Anterior""; return true;' onmouseout='window.status=""Anterior""; return true;' onClick='window.location=""?PagAtual=" & PagAtual - 1 & "&secao="&request.QueryString("secao")&"""'>")
     'Response.Write("<a href='?PagAtual=" & PagAtual - 1 & "'>")
     Response.Write("Anterior") 
     Response.Write("</a></font>  ")
 Else
     Response.Write("<font color=""#EEEEEE"" size=""1"" face=""Arial"">") 
'      Response.Write("Primeira") 
     Response.Write("</font>  ")
     Response.Write("<font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
    Response.Write("Anterior") 
     Response.Write("</font>  ")
End If
'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----
max_n_mostrados = 6
intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo
response.Write("          ")
IF CInt(PagAtual) <> CInt(TotalPages) THEN 
'Se estiver na última página, mostra apenas o botão Anterior e Primeira
     Response.Write("<font color=""#660066"" size=""2"" face=""Arial"">")
'	  Response.Write("<a href='?PagAtual=" & PagAtual + 1 & "'>")
  Response.Write("<a class='rteimage' onmouseover='window.status=""Próxima""; return true;' onmouseout='window.status=""Próxima""; return true;' onClick='window.location=""?PagAtual=" & PagAtual + 1 & "&secao="&request.QueryString("secao")&"""'>")
     Response.Write("Próxima")
     Response.Write("</a></font>  ") 
     Response.Write("<font color=""#660066"" size=""1"" face=""Arial"">")
  Response.Write("<a href='?PagAtual=" & TotalPages & "'>")
     Response.Write("</a></font>  ")        
Else
     Response.Write("<font color=""#CCCCCC"" size=""2"" face=""Arial"">")
	  Response.Write("Próxima") 
     Response.Write("</font></B>  ")
     Response.Write("<font color=""#EEEEEE"" size=""1"" face=""Arial"">")
'     Response.Write("Ultima") 
     Response.Write("</font>  ")
End If 
End IF
End if
%>
<br><br>
<input type="submit" value="Prosseguir">
</form>

<%
'################## fim paginacao 01 ########################
if err.number <> 0 then
Select Case Err.number
Case 0
Case Else
Response.Write "<title>Erro!</title><center><br><br><font face=tahoma style=font-size:11px><h1>Erro no Sistema!</h1><br><br>N°. do erro:" & Err.number & "<br>Descrição do erro:" & Err.Description & "<br><br>Se você estiver inserindo dados em sua loja NÃO use: aspas simples ('), barra (/) e parêntes (())<br><Br><a href=""javascript: history.go(-1);"">Voltar para página anterior</a>"
End Select
response.End()
end if
end if
End Sub
%>
</div>
</td></tr></table>
</body>

<%
End Select
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ulisses Arrais    2

Ulisses Arrais
Postado

Não tem jeito, não consigo fazer esse update! Já tentei com todas as informações que passaram e nao vai.

 

Tem alguem interessado em uma parceria ou algo do genero? Contato via MP!

 

Grato

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele esta gerando algum erro ?

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