Editar registros...

eclipsefull · Janeiro 3, 2006

Boa tarde,Eu criei uma página de exibição e outra de edição dos registros. Meu pro é o seguinte na pag de exibição tem que ter um botão 'editar' do lado de cada registro para que quando eu clicar somente aquele registro apareça na página de edição, até ai tudo bem, mas quando eu clico no botão somente o 1º registro aparece, independente do botão editar que eu click de qualquer registro. O que esta faltando? Obrigado.

Mário Monteiro · Janeiro 3, 2006

ta faltando voce passar no link o ID do registro que voce vai editarassim voce poderá selecionar o registro certo

eclipsefull · Janeiro 3, 2006

Como eu faço? O cod do botão 'editar' é esse: editaempresa.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "cod_empresa=" & liga.Fields.Item("cod_empresa").Value %>

Mário Monteiro · Janeiro 3, 2006

como aparece na URL???

lisa · Janeiro 3, 2006

Verifique se na página de EDIÇÃO o sql ta certo no recordset:Mais ou menos isso...Select * from empresa where cod_empresa = request.QueryString ("nomequevccolocou")

Mário Monteiro · Janeiro 3, 2006

o que pode ta acontecendo é voce está montando os links todos com o mesmo codigo tambem...

eclipsefull · Janeiro 4, 2006

Verifique se na página de EDIÇÃO o sql ta certo no recordset:Mais ou menos isso...Select * from empresa where cod_empresa = request.QueryString ("nomequevccolocou")

Quando você fala "nomequevccoclocou" esta falando do recordset?

lisa · Janeiro 4, 2006

Verifique se na página de EDIÇÃO o sql ta certo no recordset:Mais ou menos isso...Select * from empresa where cod_empresa = request.QueryString ("nomequevccolocou")
Quando você fala "nomequevccoclocou" esta falando do recordset?

Não seria o recordset. Seria o nome que você deu para passar essa string. Geralmente a gente coloca o mesmo nome, tipo "cod_empresa " ou algo do tipo "txt_cod_empresa." Da uma olhada e responde a gente aqui..

Mário Monteiro · Janeiro 4, 2006

tiozinho pergunto novamente na pagina de edicao como fica sua URL???

eclipsefull · Janeiro 4, 2006

tiozinho pergunto novamente

na pagina de edicao como fica sua URL???

Como assim na minha url?

Olha o cod da página de edição:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

' *** Edit Operations: declare variables

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)

End If

' boolean to abort record edit

MM_abortEdit = false

' query string to execute

MM_editQuery = ""

%>

<%

' *** Update Record: set variables

If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_local_STRING

MM_editTable = "web.empresa"

MM_editColumn = "cod_empresa"

MM_recordId = "" + Request.Form("MM_recordId") + ""

MM_editRedirectUrl = "empresa.asp"

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

' set the form values

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))

If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

%>

<%

' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

' create the sql update statement

MM_editQuery = "update " & MM_editTable & " set "

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_formVal = MM_fields(MM_i+1)

MM_typeArray = Split(MM_columns(MM_i+1),",")

MM_delim = MM_typeArray(0)

If (MM_delim = "none") Then MM_delim = ""

MM_altVal = MM_typeArray(1)

If (MM_altVal = "none") Then MM_altVal = ""

MM_emptyVal = MM_typeArray(2)

If (MM_emptyVal = "none") Then MM_emptyVal = ""

If (MM_formVal = "") Then

MM_formVal = MM_emptyVal

Else

If (MM_altVal <> "") Then

MM_formVal = MM_altVal

ElseIf (MM_delim = "'") Then ' escape quotes

MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

Else

MM_formVal = MM_delim + MM_formVal + MM_delim

End If

If (MM_i <> LBound(MM_fields)) Then

MM_editQuery = MM_editQuery & ","

End If

MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal

If (Not MM_abortEdit) Then

' execute the update

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

%>

<%

Dim liga

Dim liga_numRows

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

liga.ActiveConnection = MM_local_STRING

liga.Source = "SELECT * FROM web.empresa where cod_empresa=

liga.CursorType = 0

liga.CursorLocation = 2

liga.LockType = 1

liga.Open()

liga_numRows = 0

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<title>Untitled Document</title>

<!--

.style1 {font-size: 36px;

font-weight: bold;

}

body {

margin-left: 0px;

margin-top: 0px;

}

-->

</style>

<!--

function MM_swapImgRestore() { //v3.0

var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a)&&x.oSrc;i++) x.src=x.oSrc;

}

function MM_preloadImages() { //v3.0

var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();

var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)

if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}

}

function MM_findObj(n, d) { //v4.01

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);

if(!x && d.getElementById) x=d.getElementById(n); return x;

}

function MM_swapImage() { //v3.0

var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)

if ((x=MM_findObj(a))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}

}

//-->

</script>

</head>

<body onLoad="MM_preloadImages('images/menunovo_r2_c2_f2.gif','images/menunovo_r2_c4_f2.gif','images/menunovo_r2_c6_f2.gif')">

<table width="720" height="150" border="0" cellpadding="0" cellspacing="0">

<tr>

<td colspan="15"><span class="style1"><img src="images/arearestrita2.gif" width="730" height="100" border="0"></span></td>

</tr>

<tr>

<td width="262" height="22" rowspan="2"><table border="0" cellpadding="0" cellspacing="0" width="200">

<tr>

<td><img src="images/spacer.gif" width="4" height="1" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="50" height="1" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="19" height="1" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="49" height="1" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="19" height="1" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="52" height="1" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="7" height="1" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>

</tr>

<tr>

<td colspan="7"><img name="menunovo_r1_c1" src="images/menunovo_r1_c1.gif" width="200" height="2" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="1" height="2" border="0" alt=""></td>

</tr>

<tr>

<td rowspan="4"><img name="menunovo_r2_c1" src="images/menunovo_r2_c1.gif" width="4" height="58" border="0" alt=""></td>

<td rowspan="4"><img name="menunovo_r2_c3" src="images/menunovo_r2_c3.gif" width="19" height="58" border="0" alt=""></td>

<td rowspan="4"><img name="menunovo_r2_c5" src="images/menunovo_r2_c5.gif" width="19" height="58" border="0" alt=""></td>

<td rowspan="4"><img name="menunovo_r2_c7" src="images/menunovo_r2_c7.gif" width="7" height="58" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="1" height="42" border="0" alt=""></td>

</tr>

<tr>

<td rowspan="3"><img name="menunovo_r3_c4" src="images/menunovo_r3_c4.gif" width="49" height="16" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>

</tr>

<tr>

<td rowspan="2"><img name="menunovo_r4_c6" src="images/menunovo_r4_c6.gif" width="52" height="15" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="1" height="5" border="0" alt=""></td>

</tr>

<tr>

<td><img name="menunovo_r5_c2" src="images/menunovo_r5_c2.gif" width="50" height="10" border="0" alt=""></td>

<td><img src="images/spacer.gif" width="8" height="10" border="0" alt=""></td>

</tr>

</table></td>

<td width="59" rowspan="2"> </td>

<td width="53" rowspan="2"> </td>

<td width="35" rowspan="2"> </td>

<td width="29" rowspan="2"> </td>

<td width="22" rowspan="2"> </td>

<td width="23" rowspan="2"> </td>

<td width="25" rowspan="2"> </td>

<td width="24" rowspan="2"> </td>

<td width="22" rowspan="2"> </td>

<td width="33" rowspan="2"> </td>

<td width="34" rowspan="2"> </td>

<td width="51"><a href="<?php echo $logoutAction ?>" target="_parent"><img src="images/exit.gif" width="50" height="25" border="0"></a></td>

</tr>

<tr>

<td width="51" height="25"> </td>

</tr>

</table>

<form method="POST" action="<%=MM_editAction%>" name="form1">

<table border="1" align="left" bgcolor="#0099CC">

<tr valign="baseline">

<td nowrap align="right">Cod:</td>

<td>

<input type="text" disabled="disabled" name="cod_empresa" value="<%=(liga.Fields.Item("cod_empresa").Value)%>" size="10">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Nome:</td>

<td>

<input type="text" name="nm_empresa" value="<%=(liga.Fields.Item("nm_empresa").Value)%>" size="70">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Cnpj:</td>

<td>

<input type="text" name="cnpj" value="<%=(liga.Fields.Item("cnpj").Value)%>" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Representante:</td>

<td>

<input type="text" name="rep_empresa" value="<%=(liga.Fields.Item("rep_empresa").Value)%>" size="20">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Endereço:</td>

<td>

<input type="text" name="end_empresa" value="<%=(liga.Fields.Item("end_empresa").Value)%>" size="90">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Complemento:</td>

<td>

<input type="text" name="compto_empresa" value="<%=(liga.Fields.Item("compto_empresa").Value)%>" size="70">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Bairro:</td>

<td>

<input type="text" name="bairro" value="<%=(liga.Fields.Item("bairro").Value)%>" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Cidade:</td>

<td>

<input type="text" name="cidade" value="<%=(liga.Fields.Item("cidade").Value)%>" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Uf:</td>

<td>

<input type="text" name="uf" value="<%=(liga.Fields.Item("uf").Value)%>" size="5">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Cep:</td>

<td>

<input type="text" name="cep" value="<%=(liga.Fields.Item("cep").Value)%>" size="10">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Telefone:</td>

<td>

<input type="text" name="telefone" value="<%=(liga.Fields.Item("telefone").Value)%>" size="15">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Telefone2:</td>

<td>

<input type="text" name="telefone2" value="<%=(liga.Fields.Item("telefone2").Value)%>" size="15">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Ramo da Empresa:</td>

<td>

<input type="text" name="ramo_empresa" value="<%=(liga.Fields.Item("ramo_empresa").Value)%>" size="50">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Descrição:</td>

<td rowspan="3">

<textarea name="descricao_empresa" cols="50" rows="5"><%=(liga.Fields.Item("descricao_empresa").Value)%></textarea>

</td>

</tr>

<tr valign="baseline">

<td height="14" align="right" nowrap> </td>

</tr>

<tr valign="baseline">

<td nowrap align="right"> </td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Email:</td>

<td>

<input type="text" name="email" value="<%=(liga.Fields.Item("email").Value)%>" size="50">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right"> </td>

<td>

<input name="submit" type="submit" value="Atualizar Empresa">

</td>

</tr>

</table>

<input type="hidden" name="MM_update" value="form1">

<input type="hidden" name="MM_recordId" value="<%= liga.Fields.Item("cod_empresa").Value %>">

</form>

<p> </p>

</body>

</html>

<%

liga.Close()

Set liga = Nothing

%>

Mário Monteiro · Janeiro 4, 2006

não quando digo URL é como fica la na barra de endereço de seu navegador

tipo o deste topico fica assim

http://forum.imasters.com.br/index.php?showtopic=160721&st=0entry492147

quero ver como voce passa seus parametros

eclipsefull · Janeiro 5, 2006

não quando digo URL é como fica la na barra de endereço de seu navegador

tipo o deste topico fica assim
http://forum.imasters.com.br/index.php?showtopic=160721&st=0entry492147
quero ver como voce passa seus parametros

Na url aparece assim: http://localhost/meusite/editaempresa.asp?cod_empresa=1

No caso '1' é referente ao cod 1 do 1º registro, isso varia de acordo com o registro(1,2,3...etc)

Meu pro é que em qualquer link cai sempre no 1º registro lá no editaempresa.asp

Mário Monteiro · Janeiro 5, 2006

até ai ta belezaonde voce monta os links???

eclipsefull · Janeiro 5, 2006

até ai ta beleza

onde voce monta os links???

Se eu não entendi errado no link 'editar' coloquei assim: editaempresa.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "cod_empresa=" & liga.Fields.Item("cod_empresa").Value %>

Estou usando o dw pra configurar os links, + ou - assim:

Move To Especific Record (liga, cod_empresa)

Repeat Region (liga)

Dynamic Text (Liga.nm_empresa)

Dynamic Text (Liga.telefone)

Go To Detail Page

PS: 'Liga' é o nome do recordset.

lisa · Janeiro 5, 2006

Olha, so:

Mude o trecho:

<%Dim ligaDim liga_numRowsSet liga = Server.CreateObject("ADODB.Recordset")liga.ActiveConnection = MM_local_STRINGliga.Source = "SELECT * FROM web.empresa where cod_empresa=liga.CursorType = 0liga.CursorLocation = 2liga.LockType = 1liga.Open()liga_numRows = 0%>

para isso:

<%Dim liga__MMColParamliga__MMColParam = "1"If (Request.QueryString("cod") <> "") Then   liga__MMColParam = Request.QueryString("cod")End If%><%Dim ligaDim liga_numRowsSet liga = Server.CreateObject("ADODB.Recordset")liga.ActiveConnection = MM_local_STRINGliga.Source = "SELECT * FROM empresa WHERE cod = " + Replace(liga__MMColParam, "'", "''") + ""liga.CursorType = 0liga.CursorLocation = 2liga.LockType = 1liga.Open()liga_numRows = 0%>

O erro ta no sql, você não esta comparando. tente ai...

abcs.

eclipsefull · Janeiro 9, 2006

Olha, so:Mude o trecho:

<%Dim ligaDim liga_numRowsSet liga = Server.CreateObject("ADODB.Recordset")liga.ActiveConnection = MM_local_STRINGliga.Source = "SELECT * FROM web.empresa where cod_empresa=liga.CursorType = 0liga.CursorLocation = 2liga.LockType = 1liga.Open()liga_numRows = 0%>

para isso:

<%Dim liga__MMColParamliga__MMColParam = "1"If (Request.QueryString("cod") <> "") Then   liga__MMColParam = Request.QueryString("cod")End If%><%Dim ligaDim liga_numRowsSet liga = Server.CreateObject("ADODB.Recordset")liga.ActiveConnection = MM_local_STRINGliga.Source = "SELECT * FROM empresa WHERE cod = " + Replace(liga__MMColParam, "'", "''") + ""liga.CursorType = 0liga.CursorLocation = 2liga.LockType = 1liga.Open()liga_numRows = 0%>

O erro ta no sql, você não esta comparando. tente ai...abcs.

Amigo funcionou! A sua ajuda esta valendo muito. Mas, já aconteceu outro problema: Quando atualizo os registros no "editaempresa", acontece duas coisas estranhas: 1º ele só mostra os registros daquele atualizado em diante ( os outros antes dele, não é exibido na página inicial), ai eu clico pra voltar na página inicial ( ai todos eles aparecem). 2º Quando eu clico naquele registro que eu atualizei a página fica dando erro, como se o registro tivesse perdido a referência. O que esta havendo? Obrigado.

lisa · Janeiro 9, 2006

Como assim? não entendi...Primeiro: ele esta atualiazando os registros e não esta exibindo?Segundo: qual o erro que da dando quando você clica na página?

eclipsefull · Janeiro 9, 2006

Como assim? não entendi...

Primeiro: ele esta atualiazando os registros e não esta exibindo?

Segundo: qual o erro que da dando quando você clica na página?

Vamos lá: 1º Ele esta atualizando, porem eu configurei ele pra retornar para a página empresa.asp onde são exibidos todos os registros inicialmente. Até a parte da atualização, tudo ok, mas ele não exibe todos os registros, apenas os registros depois dele.

2º Quando eu clico no editar daquele registro que atualizei fica dando erro na página do tipo: Tipo de erro:

Objeto Response, ASP 0101 (0x80070057)

A função retornou |.

/meusite/editaempresa.asp e isso: Página:

GET /meusite/editaempresa.asp . É o que aparece no navegador!

Mário Monteiro · Janeiro 9, 2006

neste ultimo caso não aparece a linha do erro??

eclipsefull · Janeiro 10, 2006

neste ultimo caso não aparece a linha do erro??

Ai é que tá! Neste caso agora não aparece a linha do erro. E agora?

Arquivado

Editar registros...

Recommended Posts

eclipsefull 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

eclipsefull 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

lisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

eclipsefull 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

eclipsefull 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

eclipsefull 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

eclipsefull 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

eclipsefull 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

eclipsefull 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

eclipsefull 0