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

Problema No Loop/seleção


daviddominio

Pergunta

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
        
    %>

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0

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%>

Link para o comentário
Compartilhar em outros sites

  • 0

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>

Link para o comentário
Compartilhar em outros sites

  • 0
<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>

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,8k
×
×
  • Criar Novo...