ADODB.Recordset erro '800a0e78' Operação não permitida quando
erro:
ADODB.Recordset erro '800a0e78'
Operação não permitida quando o objeto está fechado.
teste.asp, linha 40
-----
a linha 40 é essa: <% do while (not RS.eof) %>
----
código inteiro:
<%
Public wCABEC(4)
wCABEC(0)="HORA"
wCABEC(1)="NR_ACORTO"
wCABEC(2)="CASH"
wCABEC(3)="REFIN"
wCABEC(4)="TOTAL"
set ARQ1=Server.CreateObject("Scripting.FileSystemObject")
Set CONEXAO=Server.CreateObject("ADODB.Connection")
ConnString = "Provider=SQLOLEDB.1; SERVER=xxx.xxx.xxx.xxx; DATABASE=xxx; UID=xxxxxxx; PASSWORD=xxxxxx; OPTION=3"
CONEXAO.Open ConnString
SQL2="DECLARE @DATA DATETIME SET @DATA='20/09/2013' DECLARE @TABHORA TABLE (HORA INT,NR_ACORDO INT,CASH MONEY, REFIN MONEY, TOTAL MONEY)INSERT INTO @TABHORA SELECT HORA = DATEPART(hh, BB.EMISSAOTIME), NR_ACORDO = BB.NR_ACORDO, CASH = SUM(CASE WHEN (BA.[PERC_FINANC] = 0) THEN (BA.[VR_AVISTA]) ELSE (BA.[VR_ENTRADA]) END), REFIN = SUM(CASE WHEN (BA.[PERC_FINANC] = 0) THEN 0 ELSE (BA.[VR_FINANC]) END), TOTAL = SUM(CASE WHEN (BA.[PERC_FINANC] = 0) THEN (BA.[VR_AVISTA]) ELSE (BA.[VR_ENTRADA]) END) + SUM(CASE WHEN (BA.[PERC_FINANC] = 0) THEN 0 ELSE (BA.[VR_FINANC]) END) FROM dbo.BOLETOS AS BB (NOLOCK), dbo.BOL_AUX AS BA (NOLOCK) WHERE (BB.EMISSAO = @DATA) AND (BB.PARCELA = 0) AND (ISNULL(BB.STATUS, 0) <> 3) AND(BB.PAGAMENTO IS NULL) AND BB.BOLETAGEM IS NULL AND BB.NR_ACORDO = BA.NR_ACORDO GROUP BY BB.NR_ACORDO,DATEPART(hh, BB.EMISSAOTIME) SELECT HORA,NR_ACORTO = COUNT(*),CASH = SUM(CASH), REFIN = SUM(REFIN), TOTAL = SUM(TOTAL) FROM @TABHORA GROUP BY HORA UNION ALL SELECT HORA=99, NR_ACORTO = COUNT(*), CASH = SUM(CASH), REFIN = SUM(REFIN), TOTAL = SUM(TOTAL) FROM @TABHORA"
Set RS=CONEXAO.Execute(SQL2)
%><!DOCTYPE html>
<html lang="en">
<head>
<meta charset="iso-8859-1">
<title>Relatório</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta name="description" content="">
<meta name="author" content="">
</head>
<body>
<table class="table flat-table flat-table-1">
<thead>
<tr>
<% for index=0 to (RS.fields.count-1) %>
<th><% Response.Write wCABEC(index) %>
</th>
<% next %>
<% do while (not RS.eof) %>
</tr>
</thead>
<tbody>
<tr>
<% for index=0 to (RS.fields.count-1) %>
<td><%= RS(index)%>
</td>
<% next %>
</tr>
<% RS.MoveNext %>
<% Loop %>
</tbody>
</table>
</body>
</html><% CONEXAO.Close %>
----------
alguém sabe porque está acontecendo esse erro?
Discussão (6)
Carregando comentários...