Help
ums RS ( recordset ), pois keremos poder fazer o tratamento dos dados, se estivermos usando
um recordset com um cursor do lado do client, ou seja definimos a proppriedade CursorLocation,
onde devemos definir como do lado client, assim:
set rs=server.createobject("ADODB.Recordset")
rs.cursorlocation=aduseclient
essa propriedade pode assum ir dois valores:
aduseserver - é o valor default, nesse o rs utiliza o cursor fornecido pelo provedor de dados.
aduseclient - permite ao rs usar o cursor do lado cliente, dependendo do tipo de utilizado teremos
acesso a certas funcionalidades, para usar Find,Sort,fazer atualizacoes em Lote,etc devemos usar
o aduseclient.
CÓDIGO
<%@enablesessionstate=false%>
<%response.buffer=true%>
<!--#include virtual="/adovbs.inc"-->
<html><head>
<TITLE>descone.asp</TITLE>
</head>
<body bgcolor="aqua">
<%
' exibe os dados de um banco de dados em uma tabela
caminho = "C:\teste\biblio.mdb"
conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho
SQL="select PubId, Name, State , Zip from publishers where state='MA'"
branco=" "
nulo="-Nulo-"
set conntemp=server.createobject("adodb.connection")
conntemp.open conexao
'para desconecatar um recordset ele precisar ser criado explicitamente
set rstemp=server.createobject("adodb.recordset")
rstemp.cursorlocation=aduseclient
rstemp.open SQL, conntemp
' esta linha desconecta o recordset imediatamente após ser aberto
set rstemp.activeconnection=nothing
%>
<% comeco = now %>
<b>Inicio => <%= formatDateTime(comeco,1)%></b>
<%
If rstemp.eof then
response.write "Não há registros no arquivo...<br>"
response.write SQL & "<br>A tabela não pode ser aberta..."
'fecha o recordset a conexão e encerra a aplicaçao
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
response.end
end if
response.write "<table border='1' bgcolor=yellow><tr>"
'Monta o cabeçalho da tabela com o nome dos campos
for each item in rstemp.fields
response.write "<td><b>" & item.name & "</B></TD>"
next
response.write "</tr>"
DO UNTIL rstemp.eof
response.write "<tr>"
for each item in rstemp.fields
campo=item.value
if isnull(campo) then
campo =nulo
end if
if trim(campo)="" then
campo =branco
end if
response.write "<td valign=top>" & campo & "</td>"
next
rstemp.movenext
LOOP
response.write "</table>"
%>
<%final= now%>
<b>Fim : <%=formatDateTime(final,1) %></b>
<br/>
<b>Tempo gasto : <%= formatDateTime(final-comeco,1) %> (segundos)</b>
</body></html>
<%response.buffer=true%>
<!--#include virtual="/adovbs.inc"-->
<html><head>
<TITLE>descone.asp</TITLE>
</head>
<body bgcolor="aqua">
<%
' exibe os dados de um banco de dados em uma tabela
caminho = "C:\teste\biblio.mdb"
conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho
SQL="select PubId, Name, State , Zip from publishers where state='MA'"
branco=" "
nulo="-Nulo-"
set conntemp=server.createobject("adodb.connection")
conntemp.open conexao
'para desconecatar um recordset ele precisar ser criado explicitamente
set rstemp=server.createobject("adodb.recordset")
rstemp.cursorlocation=aduseclient
rstemp.open SQL, conntemp
' esta linha desconecta o recordset imediatamente após ser aberto
set rstemp.activeconnection=nothing
%>
<% comeco = now %>
<b>Inicio => <%= formatDateTime(comeco,1)%></b>
<%
If rstemp.eof then
response.write "Não há registros no arquivo...<br>"
response.write SQL & "<br>A tabela não pode ser aberta..."
'fecha o recordset a conexão e encerra a aplicaçao
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
response.end
end if
response.write "<table border='1' bgcolor=yellow><tr>"
'Monta o cabeçalho da tabela com o nome dos campos
for each item in rstemp.fields
response.write "<td><b>" & item.name & "</B></TD>"
next
response.write "</tr>"
DO UNTIL rstemp.eof
response.write "<tr>"
for each item in rstemp.fields
campo=item.value
if isnull(campo) then
campo =nulo
end if
if trim(campo)="" then
campo =branco
end if
response.write "<td valign=top>" & campo & "</td>"
next
rstemp.movenext
LOOP
response.write "</table>"
%>
<%final= now%>
<b>Fim : <%=formatDateTime(final,1) %></b>
<br/>
<b>Tempo gasto : <%= formatDateTime(final-comeco,1) %> (segundos)</b>
</body></html>
Abaixo uma função par desconectar rs
CÓDIGO
Function rs(byval strSQL)
Set con = Server.CreateObject("ADODB.Connection")
con.Open <string de conexão>
Set recset = Server.CreateObject("ADODB.Recordset")
recset.CursorLocation = 3
recset.Open strSQL, con, 0, 4
' Disconecta recordset.
Set recset.ActiveConnection = Nothing
' -- retorna recordset
Set rs= recset
End Function
Set con = Server.CreateObject("ADODB.Connection")
con.Open <string de conexão>
Set recset = Server.CreateObject("ADODB.Recordset")
recset.CursorLocation = 3
recset.Open strSQL, con, 0, 4
' Disconecta recordset.
Set recset.ActiveConnection = Nothing
' -- retorna recordset
Set rs= recset
End Function
======================
<%X@nBuRzUm%>
A Liberdade do Conhecimento
i½ - xanburzum@terra.com.br
======================
* nós somos consequência do que pensamos *
** mensagem 100% de Eletrôns recicláveis **
*** Transformando pensamentos em bits ***
