Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Exibir somente dados selecionados

victormartins

Perguntado por victormartins,

 Share

Pergunta

victormartins

victormartins

Postado
Postado

Olá...

Tipo, eu tenho uma página com os dados do banco, ai eu seleciono os que eu quero com o checkbox e envio para outra página, e nela só é exibido os dados que eu selecionei na outra página, mas como fazer isso?

Abs

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
victormartins

victormartins

Postado
  • Autor
Postado (editado)

Pra delete eu tenho um código velho aqui que eu usava... tentei fazer uma adaptação meio "POGástica" aqui, mas não deu muito certo kkk

<% 
set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open conexao
ID = request.form("ID")

For each record in request("ID")
sql = "SELECT * FROM carros"
set rs = Connection.Execute (sql)
Response.Write(rs("id") & "<br>")
Next

%>

Editado por victormartins
Link para o comentário
Compartilhar em outros sites
  • 0
+.jr_Designer.+

+.jr_Designer.+

Postado
Postado

Veja se este script serve pra você:

Página que exibe os carros que serão selecionados:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<!--#include file="../config.asp"-->
<%
Response.Expires = 0

'MINHA CONEXAO COM O BANCO DE DADOS, VOCÊ PODE FAZER DO SEU JEITO
Set carro = Server.CreateObject("Adodb.Recordset")
carro.CursorLocation = 3
carro.CursorType = 2
carro.open "Select id,marca,modelo,ano,cor from carros",conexao
%>

<form method="GET" action="mostra_selecionados.asp">
    <table width="675" height="53" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#F0F0F0">
        <tr bgcolor="#f1f1f1"> 
            <td width="22" height="26" align="center" bgcolor="#f1f1f1">ID</td>
            <td width="51" align="center" bgcolor="#f1f1f1">Marca</td>
            <td width="45" align="center" bgcolor="#F1F1F1">Ano</td>
            <td width="476" align="left" bgcolor="#F1F1F1">Modelo</td>
            <td width="55" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" class="botao" value="Excluir" /></td>
        </tr>
        <%While Not carro.EOF %>
        <tr > 
            <td width="22" height="1" align="center" bgcolor="#FFFFFF"><%Response.write carro("id")%></td>
            <td height="1" align="center" bgcolor="#FFFFFF"><%Response.write carro("marca")%></td>
            <td height="1" align="center" bgcolor="#FFFFFF"><%Response.write carro("ano")%></td>
            <td width="476" align="left" bgcolor="#FFFFFF"><%Response.write carro("modelo")%></td>
            <td width="55" align="center" bgcolor="#f1f1f1"><input name="id" type="checkbox" id="id" value="<%=carro(0)%>" /></td>
         </tr>
        <%
          'Movendo para o proximo registro
          carro.MoveNext
          Wend
          'Fechando as conexes
          carro.close
          Set carro = Nothing
        %>
    </table>
</form>
</body>
</html>
Página que exibe os carros selecionados pelo checkbox salve como mostra_selecionados.asp 
<!--#include file="../config.asp"-->
<%
Response.CodePage = "1252"
Response.Expires = 0
id = Request.QueryString("id")

On error Resume Next
%>

<html>
<head>
<LINK REL=stylesheet HREF="../liks_etc.css" TYPE="text/css">
<title>Tela de Excluso</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css">
<!--
body,td,th {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 11px;
    color: #323232;
}
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
.style1 {
    color: #CC0000;
    font-weight: bold;
}
-->
</style>

</head>
<body bgcolor="#FFFFFF">
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr> 
        <td>
<% 
if id = "" then
Response.Write("Voc deve selecionar uma Lei")
else
        if err = 0 and id <> "" then
            array_id = split(id,",")
            For i=0 to ubound(array_id)
                sql_id = sql_id & "carros.id = " & Trim(array_id(i)) & " OR "
                                                         
            Next
            sql_id = left(sql_id,(len(sql_id)-4))
            
            'MINHA CONEXAO COM O BANCO DE DADOS, VOCÊ PODE FAZER DO SEU JEITO
            Set carro = Server.CreateObject("Adodb.Recordset")
            carro.CursorLocation = 3
            carro.CursorType = 2            
            carro.open "Select id,ano,marca,modelo from carros Where "&sql_id&"",conexao
            end if
            if not carro.eof then
            %>              
                  <form name="form1" method="post">
                  <table width="80%" border="0" align="center" cellpadding="2" cellspacing="2">
                    <tr>
                      <td height="32" colspan="7" align="left"><strong>Carro(s) selecionado(s)</strong></td>
                    </tr>
                    <%while not carro.eof%>
                    <tr>
                      <td width="7%" align="right" valign="middle"><span class="style1">X</span></td>
                      <td width="4%" align="right" valign="middle"><strong>Ano:</strong></td>
                      <td width="5%" align="left" valign="middle"><%
                        Response.Write(carro("ano"))                
                     %></td>
                      <td width="6%" align="right" valign="middle"><strong>Marca:</strong></td>
                      <td width="6%" align="left" valign="middle"><%
                        Response.Write(carro("marca"))                
                     %></td>
                      <td width="6%" align="left" valign="middle"><strong>Modelo:</strong></td>
                      <td width="66%" align="left" valign="middle"><%Response.Write(carro("modelo"))%></td>
                    </tr>
                    <%
                    carro.MoveNext
                    wend
                    %>
                  </table>
          </form>              
              
    <%
    end if
    end if%>
</body>
</html>

Link para o comentário
Compartilhar em outros sites
  • 0
victormartins

victormartins

Postado
  • Autor
Postado

Olá,

Peguei esse seu código e fiz a adaptação pro meu caso... primeiro ele travou meu IIS kkk

Ai resolvi e agora dá esse erro:

Erro de tempo de execução do Microsoft VBScript erro '800a0005'

Chamada de procedimento ou argumento inválido: 'left'

pagina_exclusao2.asp, linha 49

Linha 49: sql_id = left(sql_id,(len(sql_id)-4))

Link para o comentário
Compartilhar em outros sites
  • 0
victormartins

victormartins

Postado
  • Autor
Postado

Opa.. consegui resolver.. achei a informação em Inglês... o valor estava vindo como "NULL" porque eu esqueci de alterar uma coisa hehe

O código funcionou perfeitamente! Era isso mesmo! Muito obrigado!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...