Jump to content
Fórum Script Brasil
  • 0

Problema No Loop/seleção


daviddominio
 Share

Question

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

8 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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 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.2k
    • Total Posts
      647.4k
×
×
  • Create New...