Carregar formulario

[cesarhtc 0]

Tenho o codigo abaixo nele existe um link que carrega os dados em um formulario de Alteração. Só que esta carregando com o primeiro registro, ou seja.

se clico no ultimo registro ele traz os dados do primeiro.

 

Poderiam me ajudar?

 

agradeço desde já http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

 

LINK que abre a pagina:

<TR> <TD align=center><font face= "verdana" size= "1" color="#000080"><A href="Form_Alterar_Result.asp?SG_UF=<%=consulta("SG_uf")%>&SG_Modalidade=<%=consulta("SG_modalidade")%>&NU_NL=<%=consulta("NU_NL")%>&NU_ITEM=<%=consulta("NU_ITEM")%>"><U><%=wuf&"-"&wmodal&"-"&wnl%></U></A></TD>

O campo que identifica o registro é "NU_ITEM".Mais ainda continua o erro, se clico no item 2 aparece sempre os dados do item 1.e no browser aparece o correto.http://wtrjo025/suprimentos/publicar/Form_Alterar_Result.asp?SG_UF=Filial-RJ&SG_Modalidade=PG&NU_NL=402004&NU_ITEM=2

Pagina Altera.asp

'Recupera do FormPesq_Resul.asp o valor do Chave passadawuf=Request.querystring("sg_uf")wmodal=Request.querystring("sg_modalidade")wnl=Request.querystring("nu_nl")witem=Request.querystring("nu_tem")wchave= wuf & wmodal & wnl strSQL = "SELECT * FROM resuitem WHERE ID_EDITAL='" & wchave &"' AND NU_ITEM='" & witem & "' "

mensagem de erro:

SELECT * FROM resuitem WHERE ID_EDITAL='Filial-RJPG402004' AND NU_ITEM='' ADODB.Field error '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /suprimentos/publicar/Form_Alterar_Result.asp, line 70

[Mário Monteiro 179]

você deve testar se algum registro foi retornado antes de tentar exibi-los

[cesarhtc 0]

Como assim, não entendi...

[Mário Monteiro 179]

posta ai a linha 70 de seu codigo...

[cesarhtc 0]

wuf=rstMain("sg_uf")

[Mário Monteiro 179]

isso ...você nunca pode tentar recuperar um valor que não existe...sempre deve ser feito um teste antes, tipo assim ...IF NOT rstMain.EOF THEN wuf=rstMain("sg_uf")END IF

[cesarhtc 0]

o erro sumiu só que os campos estão em branco..

[cesarhtc 0]

<%'Recupera do FormPesq_Resul.asp o valor do Chave passadawuf=Request.querystring("sg_uf")wmodal=Request.querystring("sg_modalidade")wnl=Request.querystring("nu_nl")witem=Request.querystring("nu_tem")wchave= wuf & wmodal & wnl strSQL = "SELECT * FROM resuitem WHERE ID_EDITAL='" & wchave &"' AND NU_ITEM='" & witem & "' "Response.write strSQL'Cria um objeto recordsetset rstMain = Server.CreateObject("ADODB.Recordset")'Conecta ao BD pelo DSN e abre a consulta'Como resultado, o recordset conterá a tabela-respostarstMain.Open strSQL ,conexaoIF NOT rstMain.EOF THENwuf=rstMain("sg_uf")wmodal=rstMain("sg_modalidade")wnl=rstMain("nu_nl")witem=rstMain("nu_item")wobjeto=rstMain("te_objeto")wfornecedor=rstMain("nm_fornecedor")wvalor=rstMain("vl_valor")wstatus=rstMain("nm_status")wentrada=rstMain("te_entrada")END IFrstMain.CloseSET rstMain=Nothing%>

[Mário Monteiro 179]

bem verifica se com certeza era pra retornar algo, pois se não retorna não esta encontrando mesmo...

[cesarhtc 0]

Resolvido, o problema depois era "bobagem" erro de digitação.

 

valeu pela força. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif