Update Multiplos

[Eli@ne]

Ola gente tudo bem

so eu uma outra vez

sempre com problemas de codigos quando tenho um tempinho para estudar

bem digo para aqueles que se lembram de mim

pressiso de um esemplo de como modfica varios records em um campo de uma tabela

aqui esta meu codigo que eu esto fazendo

cortei algumas parte do codigo para não fica muito longo

<%

Set SQLmenu = Server.CreateObject("ADODB.RecordSet")

  SQLmenu = "SELECT * FROM menu WHERE lingua = '" & lingua & "' ORDER BY ord ASC"

 

  Set RSmenu = obj.Execute(SQLmenu)

 

  If not RSmenu.EOF Then

Do While Not RSmenu.EoF

ord = CInt(RSmenu("ord"))

id = RSmenu("id")

%>

<input type="hidden" name="id" value="<%=id%>">

   

   

  <input name="ord" type="text" value="<%=ord%>" size="3">

<%

RSmenu.MoveNext

Loop

End If

%>

 

<input type="submit" name="Submit" value="Invia"></form>

<%

RSmenu.Close

else

ord = Request.Form("ord")

id = Request.Form("id")

%>

o problema è este aqui

nesta parte como è que eu cotinuo para modificar os records tudo de uma volta so???

obrigada aquem mi responde

[[ GuTo ]]

Não entendi o q você quer!

E seu código parece-me até então correto.

E vendo assim como ele está, não vejo o porque deste else:

RSmenu.Close

else

Explique o seu problema um pouco melhor que eu ajudo-lhe, ok

[Guest ska_ska]

xeu ver se entendi.....

você vai mostrar varias linhas com um textbox... e cada linha é referente a um anuncio... ai quando ele pedir pra gravar... ele vai armazenar os valores em cada registro individual... certo? se for.. é mais ou menos assim...

gerando o formulario....

Do While Not RSmenu.EoF

ord = CInt(RSmenu("ord"))
id = RSmenu("id")
%>
'---essa linha acho não vai precisar da forma q sera feito....
'---<input type="hidden" name="id" value="<%=id%>">

    
    
  <input name="ord<%=id%>" type="text" value="<%=ord%>" size="3"> 
<%
RSmenu.MoveNext
Loop
End If

agora fazendo os UPDATES

For Each field_name In Request.Form
   If mid(field_name,1,3) = "ord" AND isNumeric(mid(field_name,4,(len(field_name)))) Then
      valor = request.form(field_name)
      id = mid(field_name,4,(len(field_name)))	
      sql="UPDATE tabela SET valor='"& valor &"' WHERE id="& id
      Set tabTemp = Nothing
      Set tabTemp = [BASEDEDADOS].execute(sql)
   End If
Next

[ursolouco]

Eli@ne!!!

Pesquise algo sobre AddNew, acredito que seja isso que esteja precisanto.

Até +

[urso]

[Eli@ne]

Obrigada gente

muito obrigada a todos

era isso o que eu queria ska_ska

funziona do modo que você dice

Muito obrigada mesmo