Update em varios registros com digitação

[roncosta 0]

E ae galera!!!

Vi alguns posts aqui, mais nenhum deu para tirar minha dúvida...rs

 

Estou fazendo um next na tabela que contem os campos:

 

id

valor

desconto

 

eu digito o valor e o desconto e seleciono o checkBox que esta com o value do id.

Não to conseguindo fazer update em todos os registros selecionado...

Por favor, alguem pode me ajudar ?

 

eis aqui o codigo....

 

Pagina in.asp

 

<%

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("D\dados.mdb")

sqlstmt = "SELECT * FROM teste"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, DSNtemp, 3, 3

tot=rs.recordcount

%>

<form action="up.asp" method="post">

 

<TABLE BORDER="1" WIDTH="100" align="center">

<%

While Not rs.eof

cont = cont+1

'response.write cont

%>

 

<tr>

<TD ALIGN="CENTER"><INPUT TYPE="text" NAME="valor<%=cont%>" size="3" maxlength="3" value="<%=rs("valor")%>"></td>

<TD ALIGN="CENTER"><INPUT TYPE="text" NAME="desconto<%=cont%>" size="3" maxlength="3" value="<%=rs("desconto")%>"></td>

<TD ALIGN="CENTER"><INPUT TYPE="checkbox" NAME="id" value="<%=rs("id")%>"></td>

</tr>

<%

rs.movenext

Wend

%>

<tr><td colspan="22" align="center"><INPUT TYPE="submit" value="Alterar"></tr>

</table>

 

</form>

-------------------------------------------------------

Pagina up.asp

<%

id = Request("id")

valor = request("valor1")

desconto = request("desconto1")

 

 

Set objConn = Server.CreateObject("ADODB.Connection")

Set objRS = Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=" & Server.MapPath("d/dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

 

 

wsql = "UPDATE teste SET valor = '" &valor& "',desconto = '" &desconto& "' WHERE id = " & id

 

set objRS=objConn.execute(wsql)

 

response.redirect "in.asp"

 

%>

[xanburzum 169]

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

 

wsql = "UPDATE teste SET valor = '" &valor& "',desconto = '" &desconto& "' WHERE id = " & id

response.write (wsql)

response.end()

 

valor e desconto esta com texto no bd

[roncosta 0]

fiz e saiu assim...

 

UPDATE teste SET valor = 'val',desconto = 'aaa' WHERE id = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10

[roncosta 0]

ta on...

http://www.itl.com.br/ron/in.asp

[xanburzum 169]

da onde você esta recupendo id ,pois

ele ta em formato de array, se for isso mesmo, terá k fazer um loop para atuzalizar todos os

itens

id = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10

[roncosta 0]

Eu queria saber como fazer isso...rs

[xanburzum 169]

olha este exemplo

 

qtd_id = split(Request.Form("id"),",")
if qtd_id= ""
id= Split(Request.Form("id"), ",")

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

Response.write request.form("id")(i)&"<BR>" & request.form("qtd_id")(i)&"<BR>"

SQL = "UPDATE teste SET valor = '" &valor& "',desconto = '" &desconto& "' WHERE id = '"&request.form("id")(i)&"'"

[roncosta 0]

não deu certo...

[xanburzum 169]

você recupera seu id, da´um split para retirar as virgulas e deixar em array,depois faz um loop nele, adapte o code para o seu

[Mário Monteiro 179]

Tente

 

 

wsql = "UPDATE teste SET valor = '" &valor& "',desconto = '" &desconto& "' WHERE id IN (" & id & ")"

 

Valor e desconto são campos texto mesmo?