Problema No Loop/seleção

daviddominio · Agosto 3, 2007

Olá Pessoal,

Estou tentando exibir uma Tabela em ACCESS no ASP, no entando está dando um erro aqui, creio que seja no loop.

Aguardo

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/tcu/anc/banco_abre_projetos.asp, line 19

<!--#include file="anc/banco_abre_projetos.asp"-->
<%Dim CN, DRV, RS, SQL, DEFINIPORNAME %>

<%                  DEFINIPORNAME = "SELECT Projeto, Dtini FROM Funcionários"            %>
  </TABLE>
</TD>
    <!--#include file="anc/banco_abre_projetos.asp"-->
    <%Do while RS.eof = false%>
    <table width="450" border="0" cellpading="1" cellspacing="1" height="50">
            <tr>
            <td width="33" height="11"> </td>
                        <td width="423" height="11"><FONT color=#46648c><B><%=RS("PROJETO")%></B><BR>    </FONT>
            </td>        
        </tr> 
    </table>
   <%    
            RS.MoveNext
        Loop
        
    %>

webdeveloper · Agosto 3, 2007

Cheque o que a página banco_abre_projetos.asp está executando e verifique se os campos que ela está tentando buscar existem na tabela.

daviddominio · Agosto 3, 2007

Todos os campos existem, segue abaixo a pagina.

<%
                 'Cria a Conexão'
                 Set CN = CreateObject("ADODB.CONNECTION")

                 'Cria o driver - Access OLEDB
                 DRV = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
                 DRV = DRV & Server.MapPath("projetos\banco\sgp.mdb")

                 'Cria a Instrução SQL'
                 SQL = DEFINIPORNAME

                 'Cria o RecordSet'
                 Set RS = CreateObject("ADODB.RECORDSET")

                 'Abre a conexão'
                 CN.Open DRV

                 'Abre o recordset
                 RS.Open SQL,CN,adOpenForwardOnly,adLockOptimistic%>

fercosmig · Agosto 3, 2007

use:

<% Do While not RS.EOF %>

abraços

bareta · Agosto 6, 2007

outra coisa

<!--#include file="anc/banco_abre_projetos.asp"-->

você coloca essa include 2 vocês na mesma pagina...

tire a primeira o codigo funcionara da mesma forma

daviddominio · Agosto 6, 2007

Nenhuma das formas deu certo, dei uma reduzida no código para verificar se estava com erro, mais ainda continua dando erro na parte da conexão.

Coloquei a parte da conexão na mesma página mais continua dando erro na linha abaixo.

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/tcu/Teste/temp.asp, line 27

RS.Open SQL,CN,adOpenForwardOnly,adLockOptimistic%>

Abaixo a Pagina Completa, Se puderem me ajudar, estou precisando muito deste código funcionando.

<% @ LANGUAGE=VBSCRIPT %> 
<html>
<head>
<title>Acessando o Banco </title>
</head>
<body>
<%Dim CN, DRV, RS, SQL, DEFINIPORNAME,x %>

                  <%
                 'Cria a Conexão'
                 Set CN = CreateObject("ADODB.CONNECTION")

                 'Cria o driver - Access OLEDB
                 DRV = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
                 DRV = DRV & Server.MapPath("sgp.mdb")

                 'Cria a Instrução SQL'
                 SQL = DEFINIPORNAME

                 'Cria o RecordSet'
                 Set RS = Server.CreateObject("ADODB.Recordset")

                 'Abre a conexão'
                 CN.Open DRV

                 'Abre o recordset
                 RS.Open SQL,CN,adOpenForwardOnly,adLockOptimistic%>

                <%               DEFINIPORNAME = "SELECT Projeto * FROM Projetos"    %>
                
<% x=0

  While (x<10) 
    response.write RS("PROJETO")
    RS.movenext 
    wend    
%>
</body></html>

kuroi · Agosto 6, 2007

SQL = DEFINIPORNAME

da onde vem esse DEFINIPORNAME?? qual o conteudo dele??

daviddominio · Agosto 6, 2007

Definiporname seria a variável que faria o select da tabela.

<%               DEFINIPORNAME = "SELECT Projeto * FROM Projetos"    %>

bareta · Agosto 6, 2007

<html>
<head>
<title>Acessando o Banco </title>
</head>
<body>
<%
'Cria a Conexão'
Set CN = CreateObject("ADODB.CONNECTION")

'Cria o driver - Access OLEDB
DRV = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
DRV = DRV & Server.MapPath("sgp.mdb")

'Cria a Instrução SQL'

'Cria o RecordSet'
Set RS = Server.CreateObject("ADODB.Recordset")

'Abre a conexão'
CN.Open DRV

SQL = "SELECT Projeto * FROM Projetos"   

'Abre o recordset
RS.Open SQL,CN,adOpenForwardOnly,adLockOptimistic

if rs.eof then
response.write "nada"                
else
 While not rs.eof
 response.write RS("PROJETO")

 RS.movenext 
 wend    
end if

rs.close
set rs=nothing


%>
</body></html>

Entrar

Problema No Loop/seleção

Pergunta

daviddominio

Link para o comentário

Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

webdeveloper

Link para o comentário

Compartilhar em outros sites

daviddominio

Link para o comentário

Compartilhar em outros sites

fercosmig

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

daviddominio

Link para o comentário

Compartilhar em outros sites

kuroi

Link para o comentário

Compartilhar em outros sites

daviddominio

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades