Como amentar uma tabela

Clauido José · Janeiro 15, 2009

Ola pessoal estou criando uma pagina em asp e estou usando ajax e estou um probleminha.

Bom é seguinte esta pagina tem um form para cadastrar alguns aparelhos e em baixo deste form eu criou uma especie de grid para mostrar os aparelhos cadastrados. Bom gostaria do seguinte quando eu cadastrar um aparelho novo ele atualizaria este grid. Como não manjo muito de ajax estoui penando vou colocar o codigo para voce verem.

Esta rotina é meu form.

<table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td colspan="5" class="Titulo">Dados do assinante: </td>
                </tr>
                <tr>
                  <td width="17%" class="SubTitulo">Codigo:</td>
                  <td colspan="4"><span class="Texto"><%=rsBaixaOs("NoOs")%></span></td>
                </tr>
                <tr>
                  <td width="17%" class="SubTitulo">Nome:</td>
                  <td colspan="4"><span class="Texto"><%=rsBaixaOs("NomeCliente")%></span></td>
                </tr>
                <tr>
                  <td width="17%" class="SubTitulo">Endere&ccedil;o:</td>
                  <td colspan="2"><span class="Texto"><%=rsBaixaOs("Endereco")%></span></td>
                  <td width="8%" class="SubTitulo">Cep:</td>
                  <td width="20%"><span class="Texto"><%=rsBaixaOs("Cep")%></span></td>
                </tr>
                <tr>
                  <td width="17%" class="SubTitulo">Bairro:</td>
                  <td><span class="Texto"><%=left(rsBaixaOs("Bairro"),50) & "..."%></span></td>
                  <td width="23%"><span class="SubTitulo">Residencia:</span></td>
                  <td colspan="2"><span class="Texto"><%=rsBaixaOs("TipoResidencia")%></span></td>
                </tr>
                <tr>
                  <td width="17%" class="SubTitulo">Estado:</td>
                  <td><span class="Texto"><%=rsBaixaOs("Estado")%></span></td>
                  <td><span class="SubTitulo">Cidade:</span></td>
                  <td colspan="2"><span class="Texto"><%=rsBaixaOs("Cidade")%></span></td>
                </tr>
              </table></td>
            </tr>
            <tr>
              <td height="93"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td colspan="5"><span class="Titulo">Dados dos da assinatura: </span></td>
                </tr>
                <tr>
                  <td width="22%"><span class="SubTitulo"> Pontos: </span></td>
                  <td width="29%"><span class="Texto"><%=rsBaixaOs("qtdPontos")%></span></td>
                  <td width="19%"><span class="SubTitulo">Produto:</span></td>
                  <td colspan="2"><span class="Texto"><%=rsBaixaOs("Descricao")%></span></td>
                </tr>
                <tr>
                  <td><span class="Texto"><span class="SubTitulo">Pacote:</span></span></td>
                  <td><span class="Texto"><%=rsBaixaOs("Pacote")%></span></td>
                  <td>&nbsp;</td>
                  <td colspan="2">&nbsp;</td>
                </tr>
                <tr>
                  <td><span class="SubTitulo">Cod.Aparelho:</span></td>
                  <td><span class="SubTitulo">
                    <input name="txCodAparelho" type="text" class="SubTitulo" id="txCodAparelho" size="10" maxlength="10" />
                  </span></td>
                  <td><span class="SubTitulo">Cod.Smart:</span></td>
                  <td colspan="2"><span class="SubTitulo">
                    <input name="txCodSmart" type="text" class="campo" id="txCodSmart" size="15" maxlength="15"  onkeypress="Cod();return IsNumber(event);">
                  </span></td>
                </tr>
                <tr>
                  <td><span class="SubTitulo">Status:</span></td>
                  <td><span class="Texto"><span class="SubTitulo">
                    <select name="seStatusAP" class="campo" id="seStatusAP" style="width:50px" onchange="trazdadosStatusAp();">
                      <option value="0">Selecione</option>
                      <option value="INST">INST</option>
                      <option value="RET">RET</option>
                                        </select>
                    <input name="codModelo" type="hidden" id="codModelo" value="<%=idModelo%>" />
                  </span></span></td>
                  <td><p class="SubTitulo">Modelo:</p>                  </td>
                  <td width="22%"><span class="SubTitulo">
                    <select name="seModelo" class="campo" id="seModelo" style="width:50px" onchange="trazdadosModelo();">
                      <option value="0">Selecione</option>
                      <option value="Enchostar">Enchostar</option>
                      <option value="Ttmicro">Ttmicro</option>
                      <option value="Nagra">Nagra</option>
                      <option value="Zinwell">Zinwell</option>
                      <option value="Pvr">Pvr</option>
                                        </select>
                    <input name="codStatusAP" type="hidden" id="scodStatus" value="<%=idStaus%>" />
                  </span></td>
                  <td width="8%"><span class="Titulo"><img src="imagem/img_plus.gif" width="12" height="12" border="0" class="SubTitulo" style="cursor:hand"  onclick="gravaraparelho();" /></span></td>
                </tr>                
              </table></td>
            </tr>
   <tr>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
     <tr>
      <td width="30%" class="Titulo">COD.APARELHO </td>
      <td width="30%" class="Titulo">COD. SMART </td>
      <td width="15%" class="Titulo">STATUS</td>
      <td width="15%" class="Titulo">Modelo</td>
      <td width="10%" class="Titulo">&nbsp;</td>
     </tr>
    </table></td>
   </tr>
   <tr valign="top">
    <td valign="top"><div style="height:80px;overflow:auto;" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
     <%
     strSql = "select * from tabAparelhos where NoOs=" & rsBaixaOs("NoOs")
     if rsAparelho.state then rsAparelho.Close
     rsAparelho.Open strSql, Conexao, 3, 3
     While not rsAparelho.Eof 
     %>
      <tr>
       <td width="30%" class="Texto"><%=rsAparelho("CodAparelho")%></td>
       <td width="30%" class="Texto"><%=rsAparelho("CodSmart")%></td>
       <td width="15%" class="Texto"><%=rsAparelho("Status")%></td>
       <td width="15%" class="Texto"><%=rsAparelho("Modelo")%></td>
       <td width="10%" align="center"></td>
      </tr>
     <%
      rsAparelho.MoveNext
     wEnd     
     %>
     <tr>
      <td colspan="5"><div id="divAparelhos"></div></td>
     </tr>
    </table></div></td>
   </tr>
           </table>

Este é codigo ajax ele ta fazendo certo

function gravaraparelho()
 {
  var validou = validarAp()
  if ( validou ){
   var oHTTPRequest = createXMLHTTP();    
   oHTTPRequest.open("post", "gravaraparelhos.asp", true);
   oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
   oHTTPRequest.onreadystatechange=function(){
   if (oHTTPRequest.readyState==4){
      document.all.divAparelhos.innerHTML = oHTTPRequest.responseText;}}
   oHTTPRequest.send("atc=new"+"&sNoOs="+frmBaixaOs.codNoOs.value+"&scodStatus="+frmBaixaOs.codStatusAP.value+"&sModelo="+frmBaixaOs.codModelo.value+"&sCodAparelho="+frmBaixaOs.txCodAparelho.value+"&sCodSmart="+frmBaixaOs.txCodSmart.value);
  }
 }

este é gravaraparelho.asp

<style type="text/css">
<!--
body {
 margin-left: 0px;
 margin-top: 0px;
 margin-right: 0px;
 margin-bottom: 0px;
}
-->
</style>
<!--#include file="strCon.asp"-->
<%
dim strTitulo,strTexto,strNew, Conexao, strSql
call abreConexao()
'Response.Write("--->" & Request.QueryString("NoOs") & "<---")
if Request("atc") = "new" then
 sCodSmart =  request("sCodSmart")
 sCodAparelho= request("sCodAparelho")
 sCodStatus = Request("scodStatus")
 sCodModelo = request("sModelo")
 sNoOs = Request("sNoOs")
 strSql = "Select * from tabAparelhos where CodSmart = '" & sCodSmart & "'"
 'response.Write(strsql)
 'response.End()
 set rsAparelho = Conexao.Execute(strSql)
 if rsAparelho.Eof then
  strNew = "Insert into tabAparelhos (NoOs,CodAparelho,CodSmart,Status,Modelo) values ("   
  strNew = StrNew & sNoOs & ",'"
  strNew = strNew & Replace(sCodAparelho,"'","´") & "','"
  strNew = StrNew & replace(sCodSmart,"'","´") & "','"
  strNew = strNew & Replace(sCodStatus,"'","´") & "','"
  strNew = strNew & replace(sCodModelo,"'","´") & "')"
  'response.Write(strNEw)
  'Response.End()
  Conexao.Execute(StrNew)   
  status = "!!Registro salvo com sucesso!!"
%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
  
   <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
     <tr>
      <td width="30%" class="Texto"><%=sCodAparelho%></td>
      <td width="30%" class="Texto"><%=sCodSmart%></td>
      <td width="15%" class="Texto"><%=sCodStatus%></td>
      <td width="15%" class="Texto"><%=sCodModelo%></td>
      <td width="10%" align="center"></td>
     </tr>
    </table></td>
   </tr>
  </table>
<%
 else
%>
  <script>alert("Codigo smart já cadastrado");</script>
<%
 end if
end if
%>

Jonathan Queiroz · Janeiro 16, 2009

Qual é a sua dúvida ?

Clauido José · Janeiro 16, 2009

Bom é seguinte eu não to conseguinte atualizar a tabela com os dados que cadastrei por exemplo a tabela inical é assim

Codigo Nome

1 claudio

2 carlos

3 paulo

se eu cadastra o jose por exemplo ele tem que atualizar esta tabela assim

Codigo Nome

1 claudio

2 carlos

3 paulo

4 jose

Enteneu? Tipo um grid feito com tabelas.

Entrar

Como amentar uma tabela

Pergunta

Clauido José

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Jonathan Queiroz

Link para o comentário

Compartilhar em outros sites

Clauido José

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades