Ir para conteúdo

POWERED BY:

Arquivado

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

Boca

Erro

Por , em ASP Clássico

Recommended Posts

Boca    0

Boca
Postado

Pessoal no codigo abaixo esta dando o seguinte erro algeum sabe me dizer oque é??

 

-------------bib_conexao.asp-----------------<%sub abre_conexao    Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\dados.mdb;"end sub%>-------------fim do bib_conexao.asp-----------------

 

 

-------------teste.asp-----------------<!--#include file="bib_conexao.asp"--><%regs = 10         pag = request.querystring("pagina")             if pag = "" Then                pag = 1            end ifset rs = createobject("adodb.recordset")         set rs.ActiveConnection=Conexao         rs.cursortype = 3         rs.pagesize = regssqlapresenta = "select * from Produtos"rs.open sqlapresentars.absolutepage = pagcontador = 0%><HTML><HEAD></HEAD><BODY leftmargin="0" topmargin="00"><p> </p><table width="30%" border="0" align="center" cellpadding="0" cellspacing="0"><tr> <td><div align="center">COD_Produto</div></td><td><div align="center">Codigo</div></td></tr> <% do while not rs.eof and contador < rs.pagesize                    contador = contador+1%><tr> <td><div align="center"><%=(rs("COD_Produto"))%></div></td><td><div align="center"><%=(rs("Codigo"))%></div></td></tr> <%rs.movenext              loop%></table> <div align="center"><%        '//--------------------------sequencia de links dos carros-----------------------------------//            'Criando links para a navegação    cont_voltar = pag -1    cont_avancar = pag + 1        if cont_voltar > 0 then        response.write("<font face='Tahoma' size='1'><b>")        response.write "<a href='" & request.servervariables("script_name") & "?pagina=" & cont_voltar & "'>Anterior</a> "        response.write("</b></font>")    end if             if cont_avancar <= rs.pagecount then        response.write("<font face='Tahoma' size='1'><b>")        response.write "<a href='" & request.servervariables("script_name") & "?pagina=" & cont_avancar & "'>Próximo</a> "        response.write("</b></font>")    end if         response.write"<br><BR>"    rs.close    set rs = nothing%></div><div align="center"></div><div align="center"></div><p align="center"> </p></BODY></HTML>-------------fim do teste.asp------------------

 

------------erro-----------Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01A8)Objeto necessário: 'rs.ActiveConnection'----------fim do erro--------

Compartilhar este post

Link para o post
Compartilhar em outros sites

mebkocznski    0

mebkocznski
Postado

ActiveConnection é um OBJETO.......Para dar valor a um objeto utilizamos a instrução SET.....Então tem que ser assim ---> SET Rs.ActiveConnection = oConnMas eu creio que seja mais fácil você abrir AssimRs.Open Str,oConnFalou !!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

m/ster    0

m/ster
Postado

Antes voce tem que chamar a Sub que abre a conexao: Call abre_conexao()

Coloque isso logo no inicio do arquivo teste.asp

-------------teste.asp-----------------<!--#include file="bib_conexao.asp"--><%Call abre_conexao()regs = 10        pag = request.querystring("pagina")            if pag = "" Then               pag = 1           end ifset rs = createobject("adodb.recordset")        set rs.ActiveConnection=Conexao        rs.cursortype = 3        rs.pagesize = regssqlapresenta = "select * from Produtos"rs.open sqlapresentars.absolutepage = pagcontador = 0%>

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