Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

BrunoHP

[Resolvido] Alterar

Por , em ASP Clássico

Recommended Posts

BrunoHP    0

BrunoHP
Postado

Galera do Imasters seguite não estou conseguindo alterar a informação escolhida no BD, alguem poderia me dar uma força?

 

Desde já agradesso!

 

SGS_interacao_LNA.asp

 

<!--#include file="conn.asp" -->
<%if session("nivelacesso") = 3 then%>
<%else%>
<% Response.Write "<script>alert('Você não tem permissão!'); document.location.href='logout.asp';</script>" %>
<%end if%>
<%
BRtables  = ""
BRtables  = BRtables&"cad_edital_ini"
BRcampos   = ""
BRcampos   = BRcampos&"*"
BRvarSQL  = BRvarSQL&"select "&BRcampos&" from "&BRtables&" where pedido_consulta='PENDENTE' order by nome asc"
BRvarSQL2 = ""
BRvarSQL2 = BRvarSQL2&"select count(codigo) as soma from "&BRtables&""
set BRrs=conn.execute(BRvarSQL)
set rscount=conn.execute(BRvarSQL2)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<script type="text/javascript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<link href="css/site_adm.css" rel="stylesheet" type="text/css" />
</head>

<body>
<table width="100%" border="0" cellspacing="5" cellpadding="0">
                              <tr>
                                <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
                                    <tr>
                                      <td width="10" align="left" valign="top"><img src="img/tabs-contens-top-left.gif" width="10" height="10" /></td>
                                      <td align="left" valign="top" background="img/tabs-contens-top.gif"><img src="img/tabs-contens-top.gif" width="1" height="10" /><img src="img/tabs-contens-top.gif" width="22" height="10" /></td>
                                      <td width="10" align="left" valign="top"><img src="img/tabs-contens-top-right.gif" width="10" height="10" /></td>
                                    </tr>
                                    <tr>
                                      <td width="10" align="left" valign="top" background="img/tabs-contens-left.gif"><img src="img/tabs-contens-left.gif" width="10" height="22" /></td>
                                      <td align="left" valign="middle" bgcolor="#F7F7F7" class="textoBoldPreto13">PROCESSO DE INICIAÇÃO</td>
                                      <td width="10" align="left" valign="top" background="img/tabs-contens-right.gif"> </td>
                                    </tr>
                                    <tr>
                                      <td width="10" align="left" valign="top"><img src="img/tabs-contens-bottom-left.gif" width="10" height="10" /></td>
                                      <td align="left" valign="top" background="img/tabs-contens-bottom.gif"><img src="img/tabs-contens-bottom.gif" width="1" height="10" /><img src="img/tabs-contens-bottom.gif" width="22" height="10" /></td>
                                      <td width="10" align="left" valign="top"><img src="img/tabs-contens-bottom-right.gif" width="10" height="10" /></td>
                                    </tr>
                                    <tr>
                                      <td align="left" valign="top" bgcolor="#F7F7F7"></td>
                                    </tr>
                                </table></td>
                              </tr>
                              <tr>
                                <td align="right" valign="top">
							<form id="buscaprocesso" name="buscaprocesso" method="post" action="SGS_interacao_LNAR.asp">
                            <table width="834" border="0" cellspacing="5" cellpadding="0">
                              <tr>
                                <td width="57%" align="right" valign="middle">                                  
                                <span class="textoNormalPreto11">Nº do Processo:
                                <input name="processo" type="text" id="processo" value="" size="17" maxlength="155" title="Informe o número do processo!" />
                                </span></td>
                                <td width="17%" align="right" valign="middle"><input name="buscar" type="submit" class="bot100" id="buscar" value="Buscar" /></td>
                                <td width="26%" align="right" valign="middle" class="textoNormalPreto11">Tipo
                                  <select name="jumpMenuKids" class="textoNormalPreto11" id="jumpMenuKids" onchange="MM_jumpMenu('parent',this,0)">
                            <option selected="selected">SELECIONE</option>
                           <% 
                           Set BRrsListCategoria = conn.execute("SELECT id_status_processo,tipo_status FROM tab_status_processos ORDER BY id_status_processo ASC")
                           
                           if not(BRrsListCategoria.eof)then
                               Do While BRrsListCategoria.eof=false %>
                                
                                <option value="SGS_interacao_LNAR.asp?codigo=<%=BRrsListCategoria("id_status_processo")%>"><%=BRrsListCategoria("tipo_status")%></option>
                               
                               <%
                               BRrsListCategoria.movenext
                               loop
                               Set BRrsListCategoria = nothing
                           end if
                           %> 
                          </select>                                </td>
                              </tr>
                            </table>
                               </form>                               </td>
                              </tr>
                              <tr>
                                <td align="center" valign="top"><form id="EditalIniciacaoSGS" name="EditalIniciacaoSGS" method="post" action="gravaEditalIniciacaoSGS.asp?codigo=<%=BRrs("codigo")%>&action=update" target="_parent">
                                  <table width="75%" border="0" cellpadding="0" cellspacing="0" class="divdisplay-codseg">
                                    <tr class="divdisplay-100">
                                      <td width="118" height="25" align="center" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">Nº DO PROCESSO</td>
                                      <td width="441" align="center" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">NOME DO CANDIDATO</td>
                                      <td width="208" align="center" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">LIVRO NEGRO E AMARELO</td>
                                      <td width="171" align="center" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">EDITAL DE INICIAÇÃO</td>
                                      <td width="124" align="center" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11">STATUS</td>
                                      <td width="64" align="center" valign="middle" bgcolor="#f3f3f3" class="textoBoldPreto11"></td>
                                    </tr>
                                    <%
vqtd=20

if rscount("soma") <> "" then
vtotal = cint(rscount("soma"))
else
vtotal = 0
end if

vpag = vtotal\vqtd
resto = (vtotal/vqtd) - vpag
if (resto = 0) then
   vpag = vpag-1
end if
if (trim(request("pagina"))="") then
pagina = 0
else
pagina=trim(request("pagina"))
end if

vinicio = (pagina*vqtd)

for i=0 to (vinicio-1)
   BRrs.movenext
next
%>
                                    <%
	if not(BRrs.eof) then 
	lin = 0
	do until lin=20
	col = 0
%>
                                    <%	set grao = Server.CreateObject("adodb.RecordSet")
	set lista_grao = Server.CreateObject("adodb.RecordSet")
	
	do until col=1
	if not (BRrs.eof) then
	
	
%>
                                    <tr class="divdisplay-100" style="cursor:hand;" onmouseover="this.style.backgroundColor='#e3ffb3';" onmouseout="this.style.backgroundColor='';">
                                      <td height="26" align="center" valign="middle" class="textoNormalPreto11"><%=BRrs("processo")%></td>
                                      <td align="center" valign="middle" class="textoNormalPreto11"><%=BRrs("nome")%></td>
                                      <td align="center" valign="middle" class="textoNormalPreto11"><% If BRcod_profano = "" Then %>
                                          <a href="cadConsultaLivroNA.asp?codigo=<%=BRrs("cod_profano")%>&action=update" title="" target="_blank"><img src="img/logo_gobmt_sgs.png" border="0" /></a>
                                          <% Else %>
                                          <a href="processo_iniciacao/consultaLivroNAImpressao.asp?codigo=<%=BRrs("cod_profano")%>&action=view" target="_blank"><img src="img/relatorio.gif" alt="VIASUALIZAR FORMULÁRIO" width="16" height="16" border="0" /></a>
                                          <% End If %>
                                      </td>
                                      <td align="center" valign="middle" class="capitalize"><a href="processo_iniciacao/edital_iniciacaoImpressao.asp?codigo=<%=BRrscodigo%>&action=view" target="_blank"><img src="img/relatorio.gif" alt="VIASUALIZAR FORMULÁRIO" width="16" height="16" border="0" /></a></td>
                                      <td align="right" valign="middle" class="capitalize"><select name="pedido_consulta" class="textoNormalPreto11" id="pedido_consulta">
                                          <option value="">selecione</option>
                                          <% Set BRlistpedido_consulta = conn.execute("select tipo_status from tab_status_processos order by id_status_processo asc")
			                             Do While BRlistpedido_consulta.eof=false
		                              %>
                                          <option value="<%=BRlistpedido_consulta("tipo_status")%>" <%if BRrs("pedido_consulta") = BRlistpedido_consulta("tipo_status") then Response.Write "selected=""selected""" end if%> > <%=BRlistpedido_consulta("tipo_status")%> </option>
                                          <% BRlistpedido_consulta.movenext
			                             loop
			                             Set BRlistpedido_consulta = nothing
		                              %>
                                        </select>
                                           </td>
                                      <td align="center" valign="middle" class="capitalize"><input name="button2" type="image" src="img/disk.png" id="button2" value="<%if BRaction = "insert" then Response.Write "GRAVAR" else Response.Write "ALTERAR" end if%>" /></td>
                                    </tr>
                                    <tr>
                                      <td colspan="6" align="left" valign="top" background="img/separador_tr.gif"><img src="img/separador_tr.gif" width="3" height="5" /></td>
                                    </tr>
                                    <%
BRrs.movenext
else
end if
col = col+1
loop
lin = lin +1
loop
else
%>
                                    <tr>
                                      <td height="30" colspan="6" align="center" valign="middle"><span class="textoBoldPreto11">Não há pedido de Consulta ao Livro Negro e Amarelo</span></td>
                                    </tr>
                                    <%
set BRrs = nothing
end if
%>
                                  </table>
                                                                </form>
                                </td>
                              </tr>
                              <tr>
                                <td align="center" valign="top"><%if vtotal > 20 then%>
                                    <table width="99%" border="0" cellpadding="3" cellspacing="0">
                                      <tr>
                                        <td width="50%" height="25" align="center" valign="middle" bgcolor="#f7f7f7"><%                  if pagina>0 then
%>
                                            <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina=<%=(pagina-1)%>"><img src="img/anterior.gif" width="98" height="15" border="0" /></a>
                                            <%
                    end if
%></td>
                                        <td height="25" align="center" valign="middle" bgcolor="#f7f7f7"><%                  if ((trim(vpag)>0) and (cint(pagina)<>cint(vpag)))  then
%>
                                            <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina=<%=(pagina+1)%>"><img src="img/proxima.gif" width="98" height="15" border="0" /></a>
                                            <%
                    end if
%></td>
                                      </tr>
                                    </table>
                                  <%end if%></td>
                              </tr>
                          </table>
</body>
</html>
<%
conn.close
set conn = nothing
%>

gravaEditalIniciacaoSGS.asp

 

<!--#include file="conn.asp" -->
<%

BRtable                 = ""
BRtable					= BRtable&"cad_edital_ini"

BRaction				= FormatStr(trim(request("action")))
BRcodigo		    	= FormatStr(trim(request("codigo")))
BRnome					= FormatStr(trim(request("nome")))
BRprocesso				= FormatStr(trim(request("processo")))
BRpedido_consulta		= FormatStr(trim(request("pedido_consulta")))

if Session("insert") = "S" and BRaction = "insert" then

set BRrsVerifica = conn.execute("SELECT codigo FROM "&BRtable&" WHERE codigo='"&BRcodigo&"' order by codigo desc")
if not (BRrsVerifica.eof) then
	set BRrsVerifica = nothing
	Response.Write("<script>alert('"&Trim(Request.form("titulo"))&" já consta em nosso banco de dados!');document.location.href='SGS_interacao.asp';</script>")
else


	if BRaction = "insert" and BRcodigo = "" then
	
			BRsql = "insert into "&BRtable&" ("
			
				BRsql = BRsql & "pedido_consulta"
				
			BRsql = BRsql & ") values ("
				
				BRsql = BRsql & "'"&BRpedido_consulta&"' "
				BRsql = BRsql & ")"
				
			set BRsqlInsert=conn.execute(BRsql)

			set BRsqlInsert = nothing
			
			conn.close
			set conn = nothing

			Response.Write("<script>alert('Cadastrado com sucesso!');document.location.href='SGS_interacao.asp';</script>")
	
	end if

end if

else

	
	Response.Write "<script>alert('Você não tem permissão para realizar esta operação 'INSERT'!'); document.location.href='logout.asp';</script>"
	

end if



if Session("update") = "S" and BRaction = "update" then


	if BRaction = "update" and isNumeric(BRcodigo) = true and BRcodigo <> "" then
	
			BRsql = "update "&BRtable&" set "
			
				BRsql = BRsql & "pedido_consulta='"&BRpedido_consulta&"' "
				BRsql = BRsql & " where codigo="&BRcodigo&""

			set BRsqlUpdate=conn.execute(BRsql)

	        set BRsqlUpdate=nothing
			
			conn.close
			set conn = nothing
			
			Response.Write("<script>alert('Alterado com sucesso!');document.location.href='SGS_interacao.asp';</script>")
			
	else
			
			Response.Write "<script>alert('Dados inválidos!'); document.location.href='SGS_interacao.asp';</script>"
		
	end if


else

	Response.Write "<script>alert('Você não tem permissão para realizar esta operação 'UPDATE'!'); document.location.href='logout.asp';</script>"
	
end if
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

especifique mais sua duvida para melhor ajudarmos, e geralmente para alterar usamos o UPDATE do SQL

Compartilhar este post

Link para o post
Compartilhar em outros sites

BrunoHP    0

BrunoHP
Postado

especifique mais sua duvida para melhor ajudarmos, e geralmente para alterar usamos o UPDATE do SQL

 

Então quando eu clico em no botão para alterar no link aparece o código corretamente e da a messagem alterado com sucesso isso ficam em gravaEditalIniciacaoSGS.asp aonde o mesmo tem o UPDATE na linha 56 o que da acontecendo que no BD ele não altera.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá um response.write na sua string SQL para ver o que esta sendo passado de valor

 

reponse.write(BRsql )
response.end()

Compartilhar este post

Link para o post
Compartilhar em outros sites

BrunoHP    0

BrunoHP
Postado

dá um response.write na sua string SQL para ver o que esta sendo passado de valor

 

reponse.write(BRsql )
response.end()

update cad_edital_ini set pedido_consulta='' where codigo=194

 

Não envio pedido_consulta que está no select :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ok, beleza

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito