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

Problema Consulta


Gustavo Moraes

Pergunta

Olá, estou aprendendo asp, fiz uma pagina que mostra os dados na tela.

Mas esta dando um erro na linha de conexao.

Fiz um arquivo chamado conexao.asp

<%

Dados = "DRIVER={Microsoft Access Driver (*.mdb)};Dbq=C:\caminho do bd...\db\teste.mdb;"
%>

E no arquivo exibe.asp fiz o seguinte:

<!--#include file="conexao.asp"-->

<html>

<head>

<title>Exibe Dados da Tabela </title>

</head>

<body>

<%

set rstemp=conntemp.execute("select * from tabela where ID<100") // linha que diz estar o erro

qtde_campos=rstemp.fields.count -1

%>

<table border=1>

<tr>

<% 'Coloca o cabeçalho de cada coluna com o nome do campo

for i=0 to qtde_campos %>

<td><b><%=rstemp(i).name %></B></TD>

<% next %>

</tr>

<% ' Preenche a tabela com os registros

do while not rstemp.eof %>

<tr>

<% for i = 0 to qtde_campos%>

<td valign=top><% = rstemp.fields(i).value %></td>

<% next %>

</tr>

<% rstemp.movenext

loop

conntemp.close%>

</table>

</BODY>

</HTML>

A Tabela eu chamei de tabela e o campo ID , achoq ta td correto, acho que o problema esta naquela parte de rs.temp que também não entendi pra que serve isso direito.

Obrigado!

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

tenta aí:

arquivo conexao.asp

<%
dim conexao
sub abre_conexao

set conexao = CreateObject("ADODB.Connection")
conexao.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db/teste.mdb")

end sub

sub fecha_conexao
     Conexao.close
     Set Conexao = nothing
end sub 
%>
exibe.asp:
<!--#include file="conexao.asp"-->
<html>
<head>
<title>Exibe Dados da Tabela </title>
</head>
<body>
<% 
call abre_conexao
Set rs=conexao.execute("select * from tabela where ID<100")
qtde_campos=rs.RecordCount
%>

Link para o comentário
Compartilhar em outros sites

  • 0

Fiz o que você me pediu mas deu o erro:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/exibe.asp, line 21

linha 21 = do while not rstemp.eof %>

Meu codigo de exibe ta assim:

<!--#include file="conexao.asp"-->
<html>
<head>
<title>Exibe Dados da Tabela </title>
</head>
<body>
<% 
call abre_conexao
Set rs=conexao.execute("select * from tabela where ID<100")
qtde_campos=rs.RecordCount
%>

<table border=1>
<tr>
<% 'Coloca o cabeçalho de cada coluna com o nome do campo
for i=0 to qtde_campos %>
<td><b><%=rstemp(i).name %></B></TD>
<% next %>
</tr>
<% ' Preenche a tabela com os registros
do while not rstemp.eof %>
<tr>
<% for i = 0 to qtde_campos%>
<td valign=top><% = rstemp.fields(i).value %></td>
<% next %>
</tr>
<% rstemp.movenext
loop
conntemp.close%>
</table>
</BODY>
</HTML>

Link para o comentário
Compartilhar em outros sites

  • 0

troquei também o conntemp.close por call fecha_conexao lá embaixo...não sei se fiz certo. Agora não deu pau, mas não ta aparecendo nada na tela!!! sera que to esquecendo de exibir algum campo da tabela?

o codigo ficou assim:

<!--#include file="conexao.asp"-->

<html>

<head>

<title>Exibe Dados da Tabela </title>

</head>

<body>

<%

call abre_conexao

Set rs=conexao.execute("select * from tabela where ID<100")

qtde_campos=rs.RecordCount

%>

<table border=1>

<tr>

<% 'Coloca o cabeçalho de cada coluna com o nome do campo

for i=0 to qtde_campos %>

<td><b><%=rs(i).name %></B></TD>

<% next %>

</tr>

<% ' Preenche a tabela com os registros

do while not rs.eof %>

<tr>

<% for i = 0 to qtde_campos%>

<td valign=top><% = rs.fields(i).value %></td>

<% next %>

</tr>

<% rs.movenext

loop

Call fecha_conexao%>

</table>

</BODY>

</HTML>

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...