Erro Com TEMP

FILIPPE MAYMONE · Novembro 13, 2007

Galera estou com um problema por que precisava de usar um temp no meu select.

Apartir do momento que coloquei o temp gerou o seguinte erro:

Error Type:

ADODB.Recordset (0x800A0E78)

Operation is not allowed when the object is closed.

/sistemas/FichaTecnica/EstoqueFicha/consulta1.asp, line 125

o meu consulta1.asp esta asssim:

ASP

<%Set PS = Server.CreateObject ("ADODB.RecordSet")

strQuery= " SELECT EST.CodLocal, EST.Lote, "

strQuery= strQuery &" Case "

strQuery= strQuery &" when KitsItens.CodProduto IS null then "

strQuery= strQuery &" EST.CodProduto "

strQuery= strQuery &" else KitsItens.CodProduto end as CodProduto, "

strQuery= strQuery &" Case "

strQuery= strQuery &" when KitsItens.CodProduto is null then "

strQuery= strQuery &" EST.CodMarca "

strQuery= strQuery &" else KitsItens.CodMarca end as CodMarca, "

strQuery= strQuery &" Case "

strQuery= strQuery &" when KitsItens.CodProduto is null then "

strQuery= strQuery &" EST.CodTipoProd "

strQuery= strQuery &" else KitsItens.CodTipoProd end as CodTipoProd, "

strQuery= strQuery &" EST.QtdeTotal "

strQuery= strQuery &" INTO #Temp "

strQuery= strQuery &" FROM Estoque EST "

strQuery= strQuery &" LEFT JOIN dbo.Kits Kits ON ((EST.CodTipoProd = Kits.CodTipoProd) "

strQuery= strQuery &" AND (EST.CodProduto = Kits.CodProduto) AND (Est.CodMarca = Kits.CodMarca)) "

strQuery= strQuery &" LEFT JOIN dbo.KitsItens KitsItens ON (Kits.Inc = KitsItens.Inc) "

strQuery= strQuery &" Order By EST.CODLOCAL, EST.Codproduto, EST.CodTipoProd "

strQuery= strQuery &" Select #Temp.CodLocal, #Temp.Lote, #Temp.CodProduto, #Temp.CodMarca, #Temp.CodTipoProd, ISNULL(FTP.CodPTK,'VAZIO')[CodPTK], "

strQuery= strQuery &" ISNULL(FTP.Variante,'VAZIO')[Variante], "

strQuery= strQuery &" SUBSTRING(Prod.DscProduto,1,40)[DscProduto], Prod.RefProduto from #Temp "

strQuery= strQuery &" LEFT JOIN FichasTecnicasProduto FTP ON #Temp.CodTipoProd = FTP.CodTipoProd "

strQuery= strQuery &" And #Temp.CodProduto = FTP.CodProduto And #Temp.CodMarca = FTP.CodMarca "

strQuery= strQuery &" LEFT JOIN Produtos Prod ON Prod.CodTipoProd = #Temp.CodTipoProd "

strQuery= strQuery &" And Prod.CodProduto = #Temp.CodProduto And Prod.CodMarca = #Temp.CodMarca "

strQuery= strQuery &" WHERE #TEMP.CodTipoProd < 5000 "

strQuery= strQuery &" And #TEMP.CodMarca BETWEEN 'AAAAAA' And 'ZZZZZZ' "

strQuery= strQuery &" and #TEMP.Codlocal BETWEEN '0' And '99999999' "

strQuery= strQuery &" And #TEMP.QtdeTotal > 0 "

strQuery= strQuery &" And #TEMP.CodProduto = '000060120003' "

strQuery= strQuery &" GROUP BY #Temp.CodLocal, #Temp.Lote, #Temp.CodProduto, #Temp.CodMarca, #Temp.CodTipoProd, FTP.CodPTK, "

strQuery= strQuery &" FTP.Variante, "

strQuery= strQuery &" Prod.DscProduto, Prod.RefProduto "

strQuery= strQuery &" Order By #TEMP.CODLOCAL, #TEMP.Codproduto, #TEMP.CodTipoProd "

Call abre_conexaoAqua

Set PS=ConexaoAqua.Execute(strQuery)

ConexaoAqua.CommandTimeout = 10000%>

o que esta de errado ????

obrigado

jrcardozo · Novembro 13, 2007

quem é a linha 125?

Mário Monteiro · Novembro 13, 2007

é a conexao ou o Recordset?

FILIPPE MAYMONE · Novembro 13, 2007

quem é a linha 125?

LINHA 125

ASP

<% do while not PS.eof %>

<%response.write PS("CodLocal")%>

</font></div></td>

<% response.write PS("Lote")%>

</font></div></td>

<% response.write PS("CodTipoProd")%>

</font></div></td>

<% response.write PS("CodProduto")%>

</font></td>

<% response.write PS("DscProduto")%>

</font></div></td>

<% response.write PS("RefProduto")%>

</font></div></td>

<% response.write PS("CodMArca")%>

</font></div></td>

<%response.write PS("QtdeTotal")%>

</font></div></td>

<%response.write PS("CodPTK")%>

</font></div></td>

<%response.write PS("Variante")%>

</font></td>

<%PS.movenext

loop %>

Mário Monteiro · Novembro 13, 2007

antes desta linha voce fechou o RS ?

FILIPPE MAYMONE · Novembro 13, 2007

antes desta linha voce fechou o RS ?

Não . .eu so fecho na ultima linha da pagina ..

Mário Monteiro · Novembro 13, 2007

mas voce usa o recorset em outra instrução antes disso?

so pelo tamnaho da consulta sei que vou me arrepender do que vou postar agora ... mas poe o codogo da page ai

FILIPPE MAYMONE · Novembro 13, 2007

mas voce usa o recorset em outra instrução antes disso?

so pelo tamnaho da consulta sei que vou me arrepender do que vou postar agora ... mas poe o codogo da page ai

Não é tão grande assim .. tem 174 linhas . rs.rs.rs.rs

So mudei algumas coisas e com esse codigo o erro esta da seguinte forma:

Error Type:

ADODB.Recordset (0x800A0E78)

Operation is not allowed when the object is closed.

/sistemas/FichaTecnica/EstoqueFicha/consulta1.asp, line 133

ASP

<%Option Explicit%>

<% '##########################################################

'# Pagina para consulta de Usuários Sitema de Estoque #

'# Pituka Intrane #

'##########################################################%>

<html>

<head>

<title>Pituka Intranet - Relatório de FichaTecnica X Produtos</title>

<% '##########################################################

'# Condição de usuário logado #

'########################################################## %>

<%

if session("logado")="" then

response.redirect"default.asp"

end if

%>

<% '##########################################################

'# Fim de Condição de usuário logado #

'########################################################## %>

<% '##########################################################

'# Início de Variaveis #

'########################################################## %>

<% Dim strQuery, Varnome, Marca1, Marca2, Local1, Local2, PS, ConexaoAqua, ficha, tipo, Produto%>

<%VarNome = session("nome") %>

<%

Marca1=request.form("textmarca1")

Marca2=request.form("textmarca2")

ficha =request.form("chkFicha")

local1=Request.Form("local1")

local2=Request.Form("local2")

Produto = Request.Form("CodProd")

tipo=Request.Form("tipo")

%>

<%'##########################################################

'# Final de Variaveis #

'########################################################## %>

<% '##########################################################

'# Inicio Condição MARCA 1 maior < MARCA2 #

'########################################################## '%>

<%Set PS = Server.CreateObject ("ADODB.RecordSet")

strQuery= " SELECT EST.CodLocal, EST.Lote, "

strQuery= strQuery &" Case "

strQuery= strQuery &" when KitsItens.CodProduto IS null then "

strQuery= strQuery &" EST.CodProduto "

strQuery= strQuery &" else KitsItens.CodProduto end as CodProduto, "

strQuery= strQuery &" Case "

strQuery= strQuery &" when KitsItens.CodProduto is null then "

strQuery= strQuery &" EST.CodMarca "

strQuery= strQuery &" else KitsItens.CodMarca end as CodMarca, "

strQuery= strQuery &" Case "

strQuery= strQuery &" when KitsItens.CodProduto is null then "

strQuery= strQuery &" EST.CodTipoProd "

strQuery= strQuery &" else KitsItens.CodTipoProd end as CodTipoProd, "

strQuery= strQuery &" EST.QtdeTotal "

strQuery= strQuery &" INTO #Temp "

strQuery= strQuery &" FROM Estoque EST "

strQuery= strQuery &" LEFT JOIN dbo.Kits Kits ON ((EST.CodTipoProd = Kits.CodTipoProd) "

strQuery= strQuery &" AND (EST.CodProduto = Kits.CodProduto) AND (Est.CodMarca = Kits.CodMarca)) "

strQuery= strQuery &" LEFT JOIN dbo.KitsItens KitsItens ON (Kits.Inc = KitsItens.Inc) "

strQuery= strQuery &" Order By EST.CODLOCAL, EST.Codproduto, EST.CodTipoProd "

strQuery= strQuery &" Select #Temp.CodLocal, #Temp.Lote, #Temp.QtdeTotal, #Temp.CodProduto, #Temp.CodMarca, #Temp.CodTipoProd, ISNULL(FTP.CodPTK,'VAZIO')[CodPTK], "

strQuery= strQuery &" ISNULL(FTP.Variante,'VAZIO')[Variante], "

strQuery= strQuery &" SUBSTRING(Prod.DscProduto,1,40)[DscProduto], Prod.RefProduto from #Temp "

strQuery= strQuery &" LEFT JOIN FichasTecnicasProduto FTP ON #Temp.CodTipoProd = FTP.CodTipoProd "

strQuery= strQuery &" And #Temp.CodProduto = FTP.CodProduto And #Temp.CodMarca = FTP.CodMarca "

strQuery= strQuery &" LEFT JOIN Produtos Prod ON Prod.CodTipoProd = #Temp.CodTipoProd "

strQuery= strQuery &" And Prod.CodProduto = #Temp.CodProduto And Prod.CodMarca = #Temp.CodMarca "

strQuery= strQuery &" WHERE #TEMP.CodTipoProd < 5000 "

if Produto = "" Then

strQuery= strQuery &" And #TEMP.CodMarca BETWEEN '"&marca1&"' And '"&marca2&"' "

else

strQuery= strQuery &" And #TEMP.CodMarca BETWEEN '"&marca1&"' And '"&marca2&"' And #TEMP.CodProduto = '"&Produto&"' "

end if

if tipo <> "" then

strQuery= strQuery &"AND #TEMP.CodTipoProd NOT IN ("&tipo&") "

end if

strQuery= strQuery &"and #TEMP.Codlocal BETWEEN '"&local1&"' And '"&local2&"' And #TEMP.QtdeTotal > 0 "

if ficha = "sim" then

strQuery = strQuery &"And #TEMP.CodPTK is null "

end if

strQuery= strQuery &" GROUP BY #Temp.CodLocal, #Temp.Lote, #Temp.CodProduto, #Temp.CodMarca, #Temp.CodTipoProd, FTP.CodPTK, "

strQuery= strQuery &" FTP.Variante, "

strQuery= strQuery &" Prod.DscProduto, Prod.RefProduto, #Temp.QtdeTotal "

strQuery= strQuery &" Order By #TEMP.CODLOCAL, #TEMP.Codproduto, #TEMP.CodTipoProd "

Call abre_conexaoAqua

Set PS=ConexaoAqua.Execute(strQuery)

ConexaoAqua.CommandTimeout = 10000%>

<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#0000CC"><b><font size="3"><img src="../../../images/logo_novo.jpg" width="50" height="39" align="left"></font></b><font size="3"><b><font size="4"> <font color="#003399">RELATÓRIO

RELAÇÃO ESTOQUE X FICHA TECNICA</font></font></b></font></font>

Principal</a></font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">|

<a href="#" OnClick="java script:print();">imprimir</a> | <a href="pesquisa.asp">Voltar</a></font>

<br>

<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Usuário:

<% response.Write(VarNome)%>

- Data:<B>

<% = Date %></b></strong>

</font></div>

<tr>

<tr>

<td width="5%" height="14"><div align="center"><font size="1" face="Times New Roman, Times, serif" color="#000066">LOCAL</font></div></td>

<td width="7%"><div align="center"><font size="1" face="Times New Roman, Times, serif" color="#000066">TIPOPROD</font></div></td>

<td width="9%"><div align="center"><font size="1" face="Times New Roman, Times, serif" color="#000066">CODPRODUTO</font></div></td>

<td width="47%"><div align="center"><font size="1" face="Times New Roman, Times, serif" color="#000066">DSCProduto</font></div></td>

<td width="3%"><div align="center"><font size="1" face="Times New Roman, Times, serif" color="#000066">Referencia</font></div></td>

<td width="6%"><div align="center"><font size="1" face="Times New Roman, Times, serif" color="#000066">CodMarca

</font></div></td>

<td width="5%"><div align="center"><font size="1" face="Times New Roman, Times, serif" color="#000066"> CODPTK </font></div></td>

<td width="11%"><div align="center"><font size="1" face="Times New Roman, Times, serif" color="#000066">VARIANTE</font></div></td>

</tr>

<% do while not PS.eof %>

<%response.write PS("CodLocal")%>

</font></div></td>

<% response.write PS("Lote")%>

</font></div></td>

<% response.write PS("CodTipoProd")%>

</font></div></td>

<% response.write PS("CodProduto")%>

</font></td>

<% response.write PS("DscProduto")%>

</font></div></td>

<% response.write PS("RefProduto")%>

</font></div></td>

<% response.write PS("CodMArca")%>

</font></div></td>

<%response.write PS("QtdeTotal")%>

</font></div></td>

<%response.write PS("CodPTK")%>

</font></div></td>

<%response.write PS("Variante")%>

</font></td>

<%PS.movenext

loop %>

<% Call fecha_conexaoAqua

Set PS = Nothing

%>

</tr>

</table></tr>

</table>

</body>

</html>

FILIPPE MAYMONE · Novembro 13, 2007

Eu rodei o Profile do SQL SERVER e esta rodando o SELECT certinho ..

O problema esta na hora de mostrar o resultado ...

Sera que naum aceita a tabela Temporária do SQL ?? Alguem ja usou a tabela Temp com ASP ?

Eu tirei a tabela temporária .. e dei um select simples a pagina funcionou ... sem nenhum problema .. o que eu estou fgazendo de errado ???

Arquivado

Erro Com TEMP

Recommended Posts

FILIPPE MAYMONE 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

FILIPPE MAYMONE 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

FILIPPE MAYMONE 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

FILIPPE MAYMONE 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FILIPPE MAYMONE 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante