domingo, 22 de julho de 2001

Recordsets desconectados

Se você desenvolve aplicações que requerem constantes acessos a um banco de dados, deve-se codifica-los de forma a otimizar os acessos e obter notáveis ganhos de desempenho na aplicação. Um recurso que resulta numa incrível melhora na aplicação (dependendo do código) é o uso de recordsets desconectados. Segue o código comentado:


<!--#INCLUDE FILE="Adovbs.INC"-->
'Inclusao obrigatoria para se alterar os cursores
<%
Dim Conexao, RS, SQL
'declaro as variaveis
Set conexao=Server.CreateObject("ADODB.Connection")
'crio objeto p/ conexão
Conexao.open "dsn"  'com dsn
Conexao.open "PROVIDER=Microsoft.jet.OLEDB.4.0; Data Source=" & Server.MapPath("banco.mdb") 'sem dsn
Set RS=Server.CreateObject("ADODB.RecordSet") 'Crio o recordset


RS.CursorLocation = adUseClient
'isso permite fecha a conexão e deixa ativa no cliente
RS.CursorType = adOpenStatic
RS.LockType = adLockReadOnly


SQL = "SELECT * FROM suatabela"
RS.Open SQL,Conexao, , ,adCmdText  

Set RS.ActiveConnection = nothing 
'fecha a conexao
conexao.close 
'fecha o objeto e o destrói
set conexao=nothing
%>


Pronto, agora você pode usar os recordsets normalmente, ex: <%=RS("Seu Campo")%>
no fim feche o objeto recordset:


<% RS.Close
Set RS=nothing %>


Espero que esta seja util, caso nao tenha o arquivo pra inclusao, o mesmo esta nesta mensagem incluido.


Falow galera!



Esta matéria foi postada originalmente no ASP4Developers por Oscar Pires (BLADE) (site), que na época era "Desenvolvedor ASP e Visual Basic, desenvolve sites interativos e sistemas para empresas. ". Hoje, vai saber...

0 comentários: