Truques e Dicas - Tutoriais de ASP

tutoriais

Photoshop

ASP

PHP

jogos

Galerias

fóruns

Flash

TUTORIAIS DE ASP

3. Conectividade com Base de dados-Cont

Página:

Consulta Deslocável :

Quando se concebe uma aplicação, para a Internet, pretende-se limitar a quantidade de informação que uma consulta a uma Base de dados devolve a um Browser do cliente.

O exemplo seguinte, demonstra, como limitar o numero de linhas de cada vez, mas permite que o utilizador realize a totalidade da consulta.

<% @LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>

<HTML>
<HEAD>
<TITLE>MultiScrolling </TITLE>
</HEAD>

<BODY BGCOLOR="White" topmargin="10" leftmargin="10">

<font size="4" face="Arial, Helvetica">
<b>Navegar Pela Base de Dados</b></font><br>

<hr size="1" color="#000000">

Contactos com a Base de dados Autores:<br><br>

<%
Dim oConn
Dim oRs
Dim filePath
Dim Mv
Dim PageNo
Dim j
Dim i

' O caminho da Base de dados

filePath = Server.MapPath("authors.mdb")

' Criar um ADO Connection Component para ligar
' com a bBase de Dados
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

' Criar ADO Recordset Component

Set oRs = Server.CreateObject("ADODB.Recordset")

' Determina que numero de página está em scrolling

Mv = Request("Mv")

If Request("PageNo") = "" Then
PageNo = 1
Else
PageNo = Request("PageNo")
End If

' Setup Query Recordset (4 registos por página)

oRs.Open "SELECT * FROM Authors", oConn, adOpenStatic
oRs.PageSize = 4

' Guarda o numero de página

If Mv = "Page Up" or Mv = "Page Down" Then
Select Case Mv
Case "Page Up"
If PageNo > 1 Then
PageNo = PageNo - 1
Else
PageNo = 1
End If
Case "Page Down"
If oRs.AbsolutePage < oRs.PageCount Then
PageNo = PageNo + 1
Else
PageNo = oRs.PageCount
End If
Case Else
PageNo = 1
End Select
End If

oRs.AbsolutePage = PageNo
%>

<%
oRs.MoveNext

' Não tente imprimir o registo EOF.
If oRs.EOF Then
Exit For
End If
Next %>
</TABLE>

<% If PageNo > 1 Then %>
<INPUT TYPE="Submit" Name="Mv" Value="Page Up">
<% End If %>

</Form>
</BODY>
</HTML>

Para que o processo funcione, necessitamos de uma segunda página com o seguinte código:

<% @LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>

<HTML>
<HEAD>
<TITLE>MultiScrolling Database Sample</TITLE>
</HEAD>

<BODY BGCOLOR="White" topmargin="10" leftmargin="10">

<font size="4" face="Arial, Helvetica">
<b>MultiScrolling Database Sample</b></font><br>

<hr size="1" color="#000000">

Contacts within the Authors Database:<br><br>

<%
Dim oConn
Dim oRs
Dim filePath
Dim Mv
Dim PageNo
Dim j
Dim i

' Map authors database to physical path

filePath = Server.MapPath("authors.mdb")

' Create ADO Connection Component to connect with
' sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

' Create ADO Recordset Component

Set oRs = Server.CreateObject("ADODB.Recordset")

' Determine what PageNumber the scrolling currently is on

Mv = Request("Mv")

If Request("PageNo") = "" Then
PageNo = 1
Else
PageNo = Request("PageNo")
End If

' Setup Query Recordset (4 records per page)

oRs.Open "SELECT * FROM Authors", oConn, adOpenStatic
oRs.PageSize = 4

' Adjust PageNumber as Appropriate

If Mv = "Page Up" or Mv = "Page Down" Then
Select Case Mv
Case "Page Up"
If PageNo > 1 Then
PageNo = PageNo - 1
Else
PageNo = 1
End If
Case "Page Down"
If oRs.AbsolutePage < oRs.PageCount Then
PageNo = PageNo + 1
Else
PageNo = oRs.PageCount
End If
Case Else
PageNo = 1
End Select
End If

oRs.AbsolutePage = PageNo
%>

<%
oRs.MoveNext

' Don't try to print the EOF record.
If oRs.EOF Then
Exit For
End If
Next %>
</TABLE>

<% If PageNo > 1 Then %>
<INPUT TYPE="Submit" Name="Mv" Value="Page Up">
<% End If %>

</Form>
</BODY>
</HTML>

Os resultados são como os exemplos que se seguem:

Seguinte

ANÚNCIOS