Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Luis Alberto Cabús

Varios recordsets no mesmo codigo é melhor?

Por , em ASP Clássico

Recommended Posts

Luis Alberto Cabús    0

Luis Alberto Cabús
Postado

Queria melhorar o codigo abaixo, pois nele tenho que fazer varias conexoes com o banco de dados.. isso eu consegui melhorar, criando uma só e destruindo uma vez só no final da página!!

 

Mas como eu melhoro os recordsets? Vejam que eu declaro um para cada grupo de consulta, mas a consulta é sempre dos mesmos itens, só que para usuários diferentes..

 

Quando muda o nome de alguém tenho que ir lá no código procurar pelo nome e alterar, ou então quando quero mudar a consulta, tenho que ir em cada um dos recordsets e alterar o comando SQL que tem lá..

 

Obrigado!!

 

 

Código:

 

 

 

<% Option explicit %>
<%
'AQUI CASO NAO ESTEJA LOGADO VAI PARA A PAGINA DE LOGIN
if Session("entrada") <> "sim" then
response.Redirect("a_entrada.asp")
end if
%>
<%
Dim mStatus
mStatus = Request.QueryString("status")
%>
<html>
<head>
<title>Tarefas cadastradas</title>
</head>
<LINK href="estilox.css" type=text/css rel=stylesheet>
<body>
<table width="790" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>
  <td width="790">
<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" class="input_padrao">
  <tr>
	<td width="50%">Exibir tarefas</td>
	<td><p align="right"> </p>	</td>
  </tr>
</table>

<br>
<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" class="input_pa">
  <tr>
	<td width="147" bgcolor="#F9F9F9" class="input_padrao"><p align="center"><a href="http://www.xxx.com.br/app" target="_self" class="input_pa">Menu</a></p></td>
	<td width="10"> </td>
	<td> </td>
	<td> </td>
  </tr>
</table>
<br>
<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" class="input_pa">
  <tr>
	<td><strong><%= Session("nome") %></strong></td>
  </tr>
</table>
<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#999999" class="input_padrao">
  <tr>
	<td valign="top" bordercolor="#999999" bgcolor="#CCFF99"><strong>Tarefas ativas que você recebeu: </strong></td>
  </tr>
  <tr>
	<td valign="top">
<%
dim Conexao, rsRegistros, comandoSQL

'Conexao com o banco de dados
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Driver=MySQL ODBC 3.51 Driver;Server=caminhodobancodedados"

'Recordset
Set rsRegistros = Server.CreateObject("ADODB.RecordSet")

'SELECT para selecionar todos os dados do banco
comandoSQL = "SELECT * from tarefas WHERE nome_encarregado='" & Session("usuario") &"' and ativo='"& mStatus &"' ORDER BY id"
rsRegistros.open comandoSQL, conexao
%>
		<table width="100%" border="0" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" class="input_pa">
		  <%
'Iremos repetir até o fim de arquivo
while NOT rsRegistros.EOF
%>
		  <tr>
			<td width="210">» <a href="a_editar.asp?id=<%=rsRegistros("id")%>" class="linkscolor1"><%=rsRegistros("titulo_tarefa")%></a></td>
			<td width="80"><strong>De: </strong><%=rsRegistros("nome_usuario")%></td>
			<td width="120"><strong>Status: </strong><%=rsRegistros("observacoes")%></td>
			<td><strong>Obs:</strong> <%=rsRegistros("observacoes2")%></td>
		  </tr>
		  
		  
		  <%
'Mover ao próximo registro
rsRegistros.movenext
wend
%>
	  </table>
	  <%
'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados
rsRegistros.close
Set rsRegistros = nothing
Conexao.close
Set Conexao = nothing
%>	</td>
  </tr>
</table>
<br>
<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#999999" class="input_padrao">
  <tr>
	<td valign="top" bordercolor="#999999" bgcolor="#CCFF99"><strong>Tarefas que você enviou: </strong></td>
  </tr>
  <tr>
	<td valign="top">
<%
dim ConexaoR, rsRegistrosR, comandoSQLR

'Conexao com o banco de dados
Set ConexaoR = Server.CreateObject("ADODB.Connection")
ConexaoR.Open "Driver=MySQL ODBC 3.51 Driver;Server=caminhodobancodedados"

'Recordset
Set rsRegistrosR = Server.CreateObject("ADODB.RecordSet")

'SELECT para selecionar todos os dados do banco
comandoSQLR = "SELECT * from tarefas WHERE nome_usuario='" & Session("usuario") &"' and nome_encarregado!='" & Session("usuario") &"' ORDER BY id"
rsRegistrosR.open comandoSQLR, conexaoR
%>
		<table width="100%" border="0" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" class="input_pa">
		  <%
'Iremos repetir até o fim de arquivo
while NOT rsRegistrosR.EOF
%>
		  <tr>
			<td width="210">» <a href="a_editar.asp?id=<%=rsRegistrosR("id")%>" class="linkscolor1"><%=rsRegistrosR("titulo_tarefa")%></a></td>
			<td width="85"><strong>Para: </strong><%=rsRegistrosR("nome_encarregado")%></td>
			<td width="120"><strong>Status: </strong><%=rsRegistrosR("observacoes")%></td>
			<td><strong>Obs:</strong> <%=rsRegistrosR("observacoes2")%></td>
		  </tr>
		  <%
'Mover ao próximo registro
rsRegistrosR.movenext
wend
%>
	  </table>
	  <%
'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados
rsRegistrosR.close
Set rsRegistrosR = nothing
ConexaoR.close
Set ConexaoR = nothing
%>	</td>
  </tr>
</table>
<br>
<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#999999" class="input_padrao">
  <tr>
	<td valign="top" bordercolor="#999999" bgcolor="#FFFFCC"><strong>Tarefas inativas que você recebeu: </strong></td>
  </tr>
  <tr>
	<td valign="top"><%
dim ConexaoI, rsRegistrosI, comandoSQLI

'Conexao com o banco de dados
Set ConexaoI = Server.CreateObject("ADODB.Connection")
ConexaoI.Open "Driver=MySQL ODBC 3.51 Driver;Server=caminhodobancodedados"

'Recordset
Set rsRegistrosI = Server.CreateObject("ADODB.RecordSet")

'SELECT para selecionar todos os dados do banco
comandoSQLI = "SELECT * from tarefas WHERE nome_encarregado='" & Session("usuario") &"' and ativo='inativa' ORDER BY id"
rsRegistrosI.open comandoSQLI, conexaoI
%>
		<table width="100%" border="0" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" class="input_pa">
		  <%
'Iremos repetir até o fim de arquivo
while NOT rsRegistrosI.EOF
%>
		  <tr>
			<td width="210">» <a href="a_editar.asp?id=<%=rsRegistrosI("id")%>" class="linkscolor1"><%=rsRegistrosI("titulo_tarefa")%></a></td>
			<td width="80"><strong>De: </strong><%=rsRegistrosI("nome_usuario")%></td>
			<td width="120"><strong>Status: </strong><%=rsRegistrosI("observacoes")%></td>
			<td><strong>Obs:</strong> <%=rsRegistrosI("observacoes2")%></td>
		  </tr>
		  <%
'Mover ao próximo registro
rsRegistrosI.movenext
wend
%>
		</table>
	  <%
'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados
rsRegistrosI.close
Set rsRegistrosI = nothing
ConexaoI.close
Set ConexaoI = nothing
%>	</td>
  </tr>
</table>
<p> </p>
<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#999999" class="input_padrao">
  <tr>
	<td width="25%" bordercolor="#999999" bgcolor="#CCFF99"><strong>Alexandre</strong></td>
	<td width="25%" bordercolor="#999999" bgcolor="f0f0f0"><strong>Daniel</strong></td>
	<td width="25%" bordercolor="#999999" bgcolor="#CCFF99"><strong>Luís</strong></td>
	<td bordercolor="#999999" bgcolor="f0f0f0">Thais</td>
  </tr>
  <tr>
	<td bordercolor="#999999">
<%
dim Conexao2, rsRegistros2, comandoSQL2

'Conexao com o banco de dados
Set Conexao2 = Server.CreateObject("ADODB.Connection")
Conexao2.Open "Driver=MySQL ODBC 3.51 Driver;Server=caminhodobancodedados"

'Recordset
Set rsRegistros2 = Server.CreateObject("ADODB.RecordSet")

'SELECT para selecionar todos os dados do banco
comandoSQL2 = "SELECT * from tarefas WHERE nome_encarregado='alexandre' and ativo='"& mStatus &"' ORDER BY id"
rsRegistros2.open comandoSQL2, conexao2
%>
		<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="input_pa">
		  <%
'Iremos repetir até o fim de arquivo
while NOT rsRegistros2.EOF
%>
		  <tr>
			<td><a href="a_editar.asp?id=<%=rsRegistros2("id")%>" class="linkscolor1"><%=rsRegistros2("titulo_tarefa")%> </a></td>
		  </tr>
		  <%
'Mover ao próximo registro
rsRegistros2.movenext
wend
%>
		</table>
	  <%
'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados
rsRegistros2.close
Set rsRegistros2 = nothing
Conexao2.close
Set Conexao2 = nothing
%>	</td>
	<td bordercolor="#999999">
<%
dim Conexao3, rsRegistros3, comandoSQL3

'Conexao com o banco de dados
Set Conexao3 = Server.CreateObject("ADODB.Connection")
Conexao3.Open "Driver=MySQL ODBC 3.51 Driver;Server=caminhodobancodedados"

'Recordset
Set rsRegistros3 = Server.CreateObject("ADODB.RecordSet")

'SELECT para selecionar todos os dados do banco
comandoSQL3 = "SELECT * from tarefas WHERE nome_encarregado='daniel' and ativo='"& mStatus &"' ORDER BY id"
rsRegistros3.open comandoSQL3, conexao3
%>
		<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="input_pa">
		  <%
'Iremos repetir até o fim de arquivo
while NOT rsRegistros3.EOF
%>
		  <tr>
			<td><a href="a_editar.asp?id=<%=rsRegistros3("id")%>" class="linkscolor1"><%=rsRegistros3("titulo_tarefa")%> </a></td>
		  </tr>
		  <%
'Mover ao próximo registro
rsRegistros3.movenext
wend
%>
		</table>
	  <%
'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados
rsRegistros3.close
Set rsRegistros3 = nothing
Conexao3.close
Set Conexao3 = nothing
%></td>
	<td bordercolor="#999999"><%
dim Conexao4, rsRegistros4, comandoSQL4

'Conexao com o banco de dados
Set Conexao4 = Server.CreateObject("ADODB.Connection")
Conexao4.Open "Driver=MySQL ODBC 3.51 Driver;Server=caminhodobancodedados"

'Recordset
Set rsRegistros4 = Server.CreateObject("ADODB.RecordSet")

'SELECT para selecionar todos os dados do banco
comandoSQL4 = "SELECT * from tarefas WHERE nome_encarregado='luis' and ativo='"& mStatus &"' ORDER BY id"
rsRegistros4.open comandoSQL4, conexao4
%>
		<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="input_pa">
		  <%
'Iremos repetir até o fim de arquivo
while NOT rsRegistros4.EOF
%>
		  <tr>
			<td><a href="a_editar.asp?id=<%=rsRegistros4("id")%>" class="linkscolor1"><%=rsRegistros4("titulo_tarefa")%> </a></td>
		  </tr>
		  <%
'Mover ao próximo registro
rsRegistros4.movenext
wend
%>
		</table>
	  <%
'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados
rsRegistros4.close
Set rsRegistros4 = nothing
Conexao4.close
Set Conexao4 = nothing
%></td>
	<td bordercolor="#999999"><%
dim Conexao5, rsRegistros5, comandoSQL5

'Conexao com o banco de dados
Set Conexao5 = Server.CreateObject("ADODB.Connection")
Conexao5.Open "Driver=MySQL ODBC 3.51 Driver;Server=caminhodobancodedados"

'Recordset
Set rsRegistros5 = Server.CreateObject("ADODB.RecordSet")

'SELECT para selecionar todos os dados do banco
comandoSQL5 = "SELECT * from tarefas WHERE nome_encarregado='thais' and ativo='"& mStatus &"' ORDER BY id"
rsRegistros5.open comandoSQL5, conexao5
%>
		<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="input_pa">
		  <%
'Iremos repetir até o fim de arquivo
while NOT rsRegistros5.EOF
%>
		  <tr>
			<td><a href="a_editar.asp?id=<%=rsRegistros5("id")%>" class="linkscolor1"><%=rsRegistros5("titulo_tarefa")%> </a></td>
		  </tr>
		  <%
'Mover ao próximo registro
rsRegistros5.movenext
wend
%>
		</table>
	  <%
'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados
rsRegistros5.close
Set rsRegistros5 = nothing
Conexao5.close
Set Conexao5 = nothing
%></td>
  </tr>
  <tr>
	<td bordercolor="#999999" bgcolor="f0f0f0"><strong>Camila</strong></td>
	<td bordercolor="#999999" bgcolor="#CCFF99"><strong>Elaine</strong></td>
	<td bordercolor="#999999"> </td>
	<td bordercolor="#999999"> </td>
  </tr>
  <tr>
	<td bordercolor="#999999">
	<%
dim Conexao6, rsRegistros6, comandoSQL6

'Conexao com o banco de dados
Set Conexao6 = Server.CreateObject("ADODB.Connection")
Conexao6.Open "Driver=MySQL ODBC 3.51 Driver;Server=caminhodobancodedados"

'Recordset
Set rsRegistros6 = Server.CreateObject("ADODB.RecordSet")

'SELECT para selecionar todos os dados do banco
comandoSQL6 = "SELECT * from tarefas WHERE nome_encarregado='camila' and ativo='"& mStatus &"' ORDER BY id"
rsRegistros6.open comandoSQL6, conexao6
%>
	
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <%
'Iremos repetir até o fim de arquivo
while NOT rsRegistros6.EOF
%>	
	 
	  <tr>
		<td><a href="a_editar.asp?id=<%=rsRegistros6("id")%>" class="linkscolor1"><%=rsRegistros6("titulo_tarefa")%></a></td>
	  </tr>

<%
'Mover ao próximo registro
rsRegistros6.movenext
wend
%>

	</table>
<%
'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados
rsRegistros6.close
Set rsRegistros6 = nothing
Conexao6.close
Set Conexao6 = nothing
%>	
	
	
	</td>
	<td bordercolor="#999999"><%
dim Conexao7, rsRegistros7, comandoSQL7

'Conexao com o banco de dados
Set Conexao7 = Server.CreateObject("ADODB.Connection")
Conexao7.Open "Driver=MySQL ODBC 3.51 Driver;Server=caminhodobancodedados"

'Recordset
Set rsRegistros7 = Server.CreateObject("ADODB.RecordSet")

'SELECT para selecionar todos os dados do banco
comandoSQL7 = "SELECT * from tarefas WHERE nome_encarregado='Elaine' and ativo='"& mStatus &"' ORDER BY id"
rsRegistros7.open comandoSQL7, conexao7
%>
	
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <%
'Iremos repetir até o fim de arquivo
while NOT rsRegistros7.EOF
%>	
	 
	  <tr>
		<td><a href="a_editar.asp?id=<%=rsRegistros7("id")%>" class="linkscolor1"><%=rsRegistros7("titulo_tarefa")%></a></td>
	  </tr>

<%
'Mover ao próximo registro
rsRegistros7.movenext
wend
%>

	</table>
<%
'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados
rsRegistros7.close
Set rsRegistros7 = nothing
Conexao7.close
Set Conexao7 = nothing
%></td>
	<td bordercolor="#999999"> </td>
	<td bordercolor="#999999"> </td>
  </tr>
</table>
<br>
<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" class="input_padrao">
  <tr>
	<td width="50%"> </td>
	<td><p align="right">otors </p></td>
  </tr>
</table></td>
</tr>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce so precisa fazer uma conexao

 

ai voce usa em todos os recordsets

Compartilhar este post

Link para o post
Compartilhar em outros sites

Luis Alberto Cabús    0

Luis Alberto Cabús
Postado

voce so precisa fazer uma conexao

 

ai voce usa em todos os recordsets

Pronto, agora fiz assim:

 

CODE
<% Option explicit %>

<!--#include file="conexao.asp" -->

<%

'Busca as tarefas que vem por querystring STATUS (ativas ou inativas)

Dim mStatus

mStatus = Request.QueryString("status")

%>

<%

'Declara variáveis

dim rsRegistros, comandoSQL

 

'Recordset

Set rsRegistros = Server.CreateObject("ADODB.RecordSet")

 

'SELECT para selecionar todos os dados do banco

comandoSQL = "SELECT * from tarefas WHERE nome_encarregado='" & Session("usuario") &"' and ativo='"& mStatus &"' ORDER BY id"

rsRegistros.open comandoSQL, conexao

%>

<%

'Declara variáveis

dim rsRegistrosR, comandoSQLR

 

'Recordset

Set rsRegistrosR = Server.CreateObject("ADODB.RecordSet")

 

'SELECT para selecionar todos os dados do banco

comandoSQLR = "SELECT * from tarefas WHERE nome_usuario='" & Session("usuario") &"' and nome_encarregado!='" & Session("usuario") &"' ORDER BY id"

rsRegistrosR.open comandoSQLR, conexao

%>

<%

dim rsRegistrosI, comandoSQLI

 

'Recordset

Set rsRegistrosI = Server.CreateObject("ADODB.RecordSet")

 

'SELECT para selecionar todos os dados do banco

comandoSQLI = "SELECT * from tarefas WHERE nome_encarregado='" & Session("usuario") &"' and ativo='inativa' ORDER BY id"

rsRegistrosI.open comandoSQLI, conexao

%>

 

 

 

 

 

 

 

<html>

<head>

<title>Ambiente Intranet</title>

</head>

<LINK href="estilox.css" type=text/css rel=stylesheet>

<body>

<table width="790" border="0" cellpadding="0" cellspacing="0">

 

<tr>

<td width="790">

<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" class="input_padrao">

<tr>

<td width="50%"> </td>

<td><p align="right"> </p> </td>

</tr>

</table>

 

<br>

<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" class="input_pa">

<tr>

<td width="147" bgcolor="#F9F9F9" class="input_padrao"><p align="center"><a href="default.asp" target="_self" class="input_pa">Menu</a></p></td>

<td width="10"> </td>

<td> </td>

<td> </td>

</tr>

</table>

<br>

<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" class="input_pa">

<tr>

<td><strong><%= Session("nome") %></strong></td>

</tr>

</table>

<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#999999" class="input_padrao">

<tr>

<td valign="top" bordercolor="#999999" bgcolor="#CCFF99"><strong>Tarefas ativas que você recebeu: </strong></td>

</tr>

<tr>

<td valign="top">

 

<table width="100%" border="0" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" class="input_pa">

<%

'Iremos repetir até o fim de arquivo

while NOT rsRegistros.EOF

%>

<tr>

<td width="210">» <a href="a_tarefa_detalhe.asp?id=<%=rsRegistros("id")%>" class="linkscolor1"><%=rsRegistros("titulo_tarefa")%></a></td>

<td width="80"><strong>De: </strong><%=rsRegistros("nome_usuario")%></td>

<td width="120"><strong>Status: </strong><%=rsRegistros("observacoes")%></td>

<td><strong>Obs:</strong> <%=rsRegistros("observacoes2")%></td>

</tr>

 

 

<%

'Mover ao próximo registro

rsRegistros.movenext

wend

%>

</table>

</td>

</tr>

</table>

<br>

<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#999999" class="input_padrao">

<tr>

<td valign="top" bordercolor="#999999" bgcolor="#CCFF99"><strong>Tarefas que você enviou: </strong></td>

</tr>

<tr>

<td valign="top">

<table width="100%" border="0" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" class="input_pa">

<%

'Iremos repetir até o fim de arquivo

while NOT rsRegistrosR.EOF

%>

<tr>

<td width="210">» <a href="a_tarefa_detalhe.asp?id=<%=rsRegistrosR("id")%>" class="linkscolor1"><%=rsRegistrosR("titulo_tarefa")%></a></td>

<td width="85"><strong>Para: </strong><%=rsRegistrosR("nome_encarregado")%></td>

<td width="120"><strong>Status: </strong><%=rsRegistrosR("observacoes")%></td>

<td><strong>Obs:</strong> <%=rsRegistrosR("observacoes2")%></td>

</tr>

<%

'Mover ao próximo registro

rsRegistrosR.movenext

wend

%>

</table>

</td>

</tr>

</table>

<br>

<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" bordercolor="#999999" class="input_padrao">

<tr>

<td valign="top" bordercolor="#999999" bgcolor="#FFFFCC"><strong>Tarefas inativas que você recebeu: </strong></td>

</tr>

<tr>

<td valign="top">

<table width="100%" border="0" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" class="input_pa">

<%

'Iremos repetir até o fim de arquivo

while NOT rsRegistrosI.EOF

%>

<tr>

<td width="210">» <a href="a_tarefa_detalhe.asp?id=<%=rsRegistrosI("id")%>" class="linkscolor1"><%=rsRegistrosI("titulo_tarefa")%></a></td>

<td width="80"><strong>De: </strong><%=rsRegistrosI("nome_usuario")%></td>

<td width="120"><strong>Status: </strong><%=rsRegistrosI("observacoes")%></td>

<td><strong>Obs:</strong> <%=rsRegistrosI("observacoes2")%></td>

</tr>

<%

'Mover ao próximo registro

rsRegistrosI.movenext

wend

%>

</table>

</td>

</tr>

</table>

<br><br>

 

 

 

 

 

<%

dim rsRegistros2, comandoSQL2

 

'Recordset

Set rsRegistros2 = Server.CreateObject("ADODB.RecordSet")

 

'SELECT para selecionar todos os dados do banco

comandoSQL2 = "SELECT id,nome_usuario,nome_encarregado,titulo_tarefa,observacoes FROM tarefas WHERE ativo='"& mStatus &"' ORDER BY nome_encarregado"

rsRegistros2.open comandoSQL2, conexao

%>

 

 

 

<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" class="input_padrao">

<tr>

<td><table width="50%" border="0" cellpadding="1" cellspacing="1" bordercolor="#999999" class="input_pa">

<tr>

<td bordercolor="#999999" bgcolor="#CCFF99"><strong>Tarefas ativas por encarregado (Status)</strong></td>

</tr>

<tr>

<td bordercolor="#999999"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="input_pa">

<%

'Iremos repetir até o fim de arquivo

while NOT rsRegistros2.EOF

%>

<tr>

<td><%=rsRegistros2("nome_encarregado")%> <a href="a_tarefa_detalhe.asp?id=<%=rsRegistros2("id")%>" class="linkscolor1"><%=rsRegistros2("titulo_tarefa")%></a> (<%=rsRegistros2("observacoes")%>)</td>

</tr>

<%

'Mover ao próximo registro

rsRegistros2.movenext

wend

%>

</table></td>

</tr>

</table></td>

</tr>

</table>

<br>

<table width="780" border="0" align="center" cellpadding="1" cellspacing="1" class="input_padrao">

<tr>

<td width="50%"> </td>

<td><p align="right"> </p></td>

</tr>

</table></td>

</tr>

</table>

</body>

</html>

 

<%

'Destruiremos e fecharemos o RecordSet

rsRegistros.close

Set rsRegistros = nothing

%>

<%

'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados

rsRegistrosR.close

Set rsRegistrosR = nothing

%>

<%

'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados

rsRegistrosI.close

Set rsRegistrosI = nothing

%>

<%

'Destruiremos e fecharemos o RecordSet e a conexão com o banco de dados

rsRegistros2.close

Set rsRegistros2 = nothing

%>

<%

Conexao.close

Set Conexao = nothing

%>

Reduzi muito o número de recordsets, mas também a exibição está menos detalhada..

Mas mesmo assim tenho que usar 3 recordsets. Pelo que tenho lido por aqui, isso causa enorme lentidão de resposta :(

Esse é o melhor jeito de se fazer esse tipo de consulta?

Obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

andreia_sp    1

andreia_sp
Postado

A minha opiniao é que se você faz mais de um select pra mesma tabela, já nao use 2 recordsets.

você tem que montar uma consulta bem pensada pra nao correr este risco. Mas se por acaso surgir a necessidade de fazer um novo loop na tabela, entao pense em usar arrays (pesquise sobre getRows). É muito mais rápido do que você abrir um recordset no banco. Imagina se o seu site for visitado por milhoes de pessoas, e essas milhoes de pessoas acessar o banco (sendo que cada pessoa usa 7 recordsets)! coitado do seu banco, você ta praticamente prostituindo seu servidor (desculpem a palavra rssss)

Eu nao sei como está a tela que você está montando, o ideal é usar filtros dentro de um mesmo e único loop.

Tambem nao entendi pq você colocou fixo no codigo os nomes dos encarregados...

 

E mais uma coisa, evite usar o * se você nao irá usar todos os campos. Imagina que a sua tabela tem 50 campos e voce só precisa de 3... os outros 47 vem à toa. E isso tb já gera uma carga a +.

 

bom, sao minhas opinioes/sugestoes.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito