Campo de atualizar, nos registros !

[silas_i 0]

Pessoal, tenho uma rs que puxa vários registros de uma tabela de um bd é uma lista ! Como eu faço para clicar em um desses registros e na própria página aparecer um form text field para alterar somente o registro que eu selecionei DETALHE IMPORTANTE OS OUTROS REGISTROS TEM QUE CONTINUAR...

 

Sei qeu ficou meio complicado então publiquei essas duas img´s pra ver se da pra entender melhor...

 

 

 

Obrigado pela ajuda !

[rOcKLoCo 0]

você reparou q ele leva um CODIGO na barra de endereço ne??então, é isso q você tem q fazer, colocar um link no botão editar e no endereço você colocar assim<%while NOT rs.EOFresponse.write "pagina.asp?id="&rs("CODIGO") & "<br>"ls.MoveNextWend%>e na outra página você faz o Request do ID e manda selecionar no banco de dados..........falow

[silas_i 0]

detalhe é na mesma página !

[rOcKLoCo 0]

então você faz a verificação se o ID está vazio se não estiver, você manda mostrar o campo de acordo com o selecionado!!!falow

[silas_i 0]

Tá cara mas como fazer com que os outros registros apareçam tb !?????Um abraçoBart B)

[Salgado 4]

Faça o seguinte, vou explicar mas não vou me arriscar a escrever o código:

 

durante a montagem da pág, no "whille", você testa se o id do registro para editar é o mesmo que você selecionou, se for você coloca os registros dentro dos "inputs", se não escreve normal.

Deu para entender?

 

Espero ter ajudado

[digoo 0]

acho que os kras já falaram o necessário para dar certo....ao menos eu entendi, se você não entendeu, me diga q eu escrevo mais fácil de entender.... =)

[rOcKLoCo 0]

<%while NOT rs.EOFif Int(Request("id")) = Int(rs("CODIGO")) thenresponse.write "pagina.asp?id=" &rs("CODIGO")end ifrs.MoveNextWend%>

falow

[silas_i 0]

o que significa o Int !?

[silas_i 0]

Olha aqui meu código !

 

<% while NOT rs.EOF %>      <tr>                    <td class="verdanalinkpreto10"><a href="composicao_exibir.asp?id=<%=Request.QueryString("id")%>&update=update&id_item=<%=(rs.Fields.Item("ID_Item").Value)%>" target="_self"><img src="../../imagens/edititem.gif" width="16" height="16" border="0"></a></td>                    <td> </td>                    <td height="25" class="verdanalinkpreto10">                       <%      if request("update")= "update" then%> <input name="NM_Ordem" type="text" class="verdanalinkpreto10" Value="<%=(rs.Fields.Item("NO_Ordem").Value)%>" size="3">                      <%  Else     	 nivel = (rs.Fields.Item("NO_Nivel").Value)     	 if nivel = 1 then     	 Response.Write ""&"<b>"&(rs.Fields.Item("NO_Ordem").Value)&"<b>"&""     	 Else     	 Response.Write ""&(rs.Fields.Item("NO_Ordem").Value)&""     	 End If      End if   	 %></td>                    <td height="25" class="verdanalinkpreto10">                       <%   	 nivel = (rs.Fields.Item("NO_Nivel").Value)   	 if nivel = 1 then   	 Response.Write ""&"<b>"&(rs.Fields.Item("DS_Item").Value)&"<b>"&""   	 Else   	 Response.Write ""&(rs.Fields.Item("DS_Item").Value)&""   	 End If   	 %> </td>                    <td height="25" class="verdanalinkpreto10">                       <%   	 nivel = (rs.Fields.Item("NO_Nivel").Value)   	 if nivel = 1 then   	 Response.Write ""&"<b>"&FormatNumber((rs.Fields.Item("VL_Verba").Value), 2, -2, -2, -2)&"<b>"&""   	 Else   	 Response.Write ""&FormatNumber((rs.Fields.Item("VL_Verba").Value), 2, -2, -2, -2)&""   	 End If   	 %> </td>                    <td height="25" class="verdanalinkpreto10">                       <%   	 nivel = (rs.Fields.Item("NO_Nivel").Value)   	 if nivel = 1 then   	 Response.Write ""&"<b>"&(rs.Fields.Item("PC_BV").Value)&"<b>"&""   	 Else   	 Response.Write ""&(rs.Fields.Item("PC_BV").Value)&""   	 End If   	 %>                      %</td>                    <td height="25" class="verdanalinkpreto10">                       <%   	 nivel = (rs.Fields.Item("NO_Nivel").Value)   	 if nivel = 1 then   	 Response.Write ""&"<b>"&(rs.Fields.Item("VL_BV").Value)&"<b>"&""   	 Else   	 Response.Write ""&(rs.Fields.Item("VL_BV").Value)&""   	 End If   	 %> </td>                    <td height="25" class="verdanalinkpreto10">                       <%   	 nivel = (rs.Fields.Item("NO_Nivel").Value)   	 if nivel = 1 then   	 Response.Write ""&"<b>"&(rs.Fields.Item("PC_HonoOper").Value)&"<b>"&""   	 Else   	 Response.Write ""&(rs.Fields.Item("PC_HonoOper").Value)&""   	 End If   	 %>                      %</td>                    <td height="25" class="verdanalinkpreto10">                       <%   	 nivel = (rs.Fields.Item("NO_Nivel").Value)   	 if nivel = 1 then   	 Response.Write ""&"<b>"&(rs.Fields.Item("VL_HonoOper").Value)&"<b>"&""   	 Else   	 Response.Write ""&(rs.Fields.Item("VL_HonoOper").Value)&""   	 End If   	 %></td>                    <td height="25" class="verdanalinkpreto10">                       <%   	 nivel = (rs.Fields.Item("NO_Nivel").Value)   	 if nivel = 1 then   	 Response.Write ""&"<b>"&(rs.Fields.Item("NM_Resp").Value)&"<b>"&""   	 Else   	 Response.Write ""&(rs.Fields.Item("NM_Resp").Value)&""   	 End If   	 %></td>                  </tr>                 <% rs.MoveNext      Wend %>