Jump to content
Fórum Script Brasil
  • 0

Problema Consulta


Gustavo Moraes
 Share

Question

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 to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.1k
    • Total Posts
      647.1k
×
×
  • Create New...