Ir para conteúdo

POWERED BY:

Arquivado

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

fredrj

Imprimir Todas Os Registro De Uma Tabela Do Bd

Por , em ASP Clássico

Recommended Posts

fredrj    0

fredrj
Postado

Pessoal, bom dia !

 

Será que vcs poderiam me quebrar um galho ?

 

To fazendo um curso de asp, e por enquanto sei pouca coisa e estou com uma dúvida que vcs devem tirar de letra.

 

eu to querendo imprimr um tabela html , contendo alguns campos da tabela Clientes do meu banco.

 

a conexão ta funcionando tudo certinho e tal, eu só não consigo fazer um WHILE para que ele vá imprimindo os registros até o fim.... como que eu faço ?

 

o código completo, está abaixo... separei a tabela que quero imprimir...

 

o trecho do código na DEFAULT.ASP que tem a tabela para ser impressa é essa aqui

<td height="20" bgcolor="#FFFFFF"><div align="center">                     <% = strNome %>               </div></td>               <td bgcolor="#FFFFFF"><div align="center">                     <% = strSobrenome %>               </div></td>               <td bgcolor="#FFFFFF"><div align="center">                     <% = strTelefone %>               </div></td>               <td bgcolor="#FFFFFF"><div align="center">                     <% = strEndereco %>               </div></td>

muito obrigado por qualquer ajuda.

 

ARQUIVO DEFAULT.ASP

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><% option explicit %><%Dim strNomeDim strSobrenomeDim strTelefoneDim strEnderecoselect_itens    strnome, _       strSobrenome, _                      strTelefone, _                     strEndereco %> <!--#include virtual="pizzaria/includes/banco_dados.asp"-->Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Pizzaria</title></head><body><table width="780" height="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">  <tr>    <td valign="top" bgcolor="#FFFFFF"><table width="780" border="0" align="center" cellpadding="0" cellspacing="0">      <tr>        <td><!--#include file="includes/top.htm"--></td>      </tr>    </table>      <table width="779" height="100%" border="0" cellpadding="0" cellspacing="0">      <tr>        <td width="275" height="205"><table width="240" height="137" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#E8C9A1">          <tr>            <td width="26" height="26" valign="top"><img src="img/tb_login/left_up.gif" width="24" height="26"></td>            <td width="171" bgcolor="#E8C9A1"> </td>            <td width="43" valign="top"><div align="right"><img src="img/tb_login/right_up.GIF" width="24" height="24"></div></td>          </tr>          <tr bgcolor="#E8C9A1">            <td height="87" colspan="3"> 	 <form method="post" action=""><table width="220" height="67" border="0" align="center" cellpadding="0" cellspacing="0">              <tr>                <td width="54" height="35"><div align="right" class="style1">Telefone</div></td>                <td colspan="2">                  <div align="right" class="style1">                          <div align="center">                            <input name="txttelefone" type="text" size="20" maxlength="8">                          </div>                  </div></td>                <td width="11"> </td>              </tr>              <tr>                <td><div align="right" class="style1">Senha:</div></td>                <td width="96">                  <div align="right" class="style1">                    <div align="center">                      <input name="txtsenha" type="text" size="10" maxlength="8">                      </div>                  </div></td>                <td width="59">                  <div align="center">                    <input type="submit" name="Submit" value="logar">                  </div></td>                <td> </td>              </tr>            </table>     <div align="center">       </div> 	 </form> 	 </td>            </tr>          <tr>            <td height="24"><img src="img/tb_login/left_down.gif" width="26" height="24"></td>            <td> </td>            <td valign="bottom"><div align="right"><img src="img/tb_login/right_down.gif" width="24" height="24"></div></td>          </tr>        </table></td>        <td width="504" rowspan="2"><div align="center">           <table width="488" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">             <tr bgcolor="F9F9F9">               <td width="76" height="29"><div align="center"><strong>Nome</strong></div></td>               <td width="99"><div align="center"><strong>Sobrenome</strong></div></td>               <td width="92"><div align="center"><strong>Telefone</strong></div></td>               <td width="216"><div align="center"><strong>Endereço</strong></div></td>             </tr>                <tr>          	<b><td height="20" bgcolor="#FFFFFF"><div align="center">                     <% = strNome %>               </div></td>               <td bgcolor="#FFFFFF"><div align="center">                     <% = strSobrenome %>               </div></td>               <td bgcolor="#FFFFFF"><div align="center">                     <% = strTelefone %>               </div></td>               <td bgcolor="#FFFFFF"><div align="center">                     <% = strEndereco %>               </div></td><b>                </tr>           </table>           <br>           </div></td>      </tr>      <tr>        <td height="157"><table width="166" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">          <tr>            <td width="160" height="27" bgcolor="F2F2F2"><div align="center"><span class="style2"> Opções</span></div></td>          </tr>          <tr>            <td height="20" bgcolor="#FFFFFF"><span class="style3"> - Realizar Cadastro</span></td>          </tr>          <tr>            <td height="20" bgcolor="#FFFFFF"><span class="style3"> - Esqueci a senha </span></td>          </tr>          <tr>            <td height="20" bgcolor="#FFFFFF"><span class="style3"> - Informações sobre o site </span></td>          </tr>          <tr>            <td height="20" bgcolor="#FFFFFF"><span class="style3"> - Contato</span></td>          </tr>        </table>          <br>          <br></td>      </tr>    </table></td>  </tr></table></body></html><% function select_itens (strNome,strSobrenome,strTelefone,StrEndereco)Dim objConexaoDim objRecordsetDim strSQLstrSQL = "Select nome, sobrenome, telefone, endereco " & _    "FROM clientes"set objConexao = abre_conexaoset objRecordset = abre_recordset(strSQL,objconexao)strNome   = objRecordset("nome")strSobrenome = objRecordset("sobrenome")strTelefone  = objRecordset("telefone")strEndereco  = objRecordset("endereco") Fecha_RecordSet objrecordsetFecha_conexao objconexaoend function%>

 

 

================================================================================

=========================

ARQUIVO BANCO_DADOS.ASP

 

<!--#include virtual="pizzaria/includes/adovbs.inc" --><%   Function Abre_Conexao ()      Dim objConexao            Set objConexao = Server.CreateObject("ADODB.Connection")      objConexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _                      "Data Source=" & Server.MapPath("BD/pizzaria.mdb")      'objConexao.Open "DSN=BancozzzASP"      'objConexao.Open "Driver={Driver do Microsoft Access (*.mdb)};" & _      '                "DBQ=" & Server.MapPath("BD/banco.mdb")      Set Abre_Conexao = objConexao      Set objConexao = Nothing   End Function      Function Abre_Recordset (strSQL, objConexao)      Dim objRecordset      Set objRecordset = Server.CreateObject("ADODB.Recordset")      objRecordset.Open strSQL, objConexao      Set Abre_Recordset = objRecordset      Set objRecordset = Nothing   End Function   Sub Executa_SQL (strSQL, objConexao)      objConexao.Execute strSQL, , adExecuteNoRecords   End Sub   Sub Fecha_Recordset (objRecordset)      objRecordset.Close      Set objRecordset = Nothing   End Sub      Sub Fecha_Conexao (objConexao)      objConexao.Close      Set objConexao = Nothing   End Sub%>

 

AHHH... tb já tentei fazer o seguinte

 

<%do While not objRecordset.EOF%><td height="20" bgcolor="#FFFFFF"><div align="center">                   <% = strNome %>             </div></td>             <td bgcolor="#FFFFFF"><div align="center">                   <% = strSobrenome %>             </div></td>             <td bgcolor="#FFFFFF"><div align="center">                   <% = strTelefone %>             </div></td>             <td bgcolor="#FFFFFF"><div align="center">                   <% = strEndereco %>             </div></td> <%objRecordset.MoveNextLoop%>

mas apresenta o seguinte erro quando tento dessa forma.

 

Tipo de erro:Microsoft VBScript runtime (0x800A01F4)Variable is undefined: 'objrecordset'Default.asp, line 113

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara como você esta usando option explicit você deve declarar todas variaveis de sua pagina incluindo esta que esta dando erroprovavelmente esta é primeira variavel não declaradapoe lá em cima ou em outro local Dim objrecordsetque o erro para, mas se tiver outra vai da erro denovo, ai você vai declarando

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