por Fernando D'Angelo
25. outubro 1999 00:00
Loops são rotinas que devem ser repetidas até que uma determinada condição seja satisfeita. Existem 3 comandos que permitem tal situação:
Do...Loop
For...Next
While...Wend
Abaixo seguem as características e exemplos de cada comando.
Do...Loop
O comando Do...Loop executa uma determinada rotina até que a condição se torne verdadeira. Observe o exemplo abaixo:
<%
x = 0
Do Until x=10
x = x + 1
Loop
response.write x
%>
para interromper o Loop, usa-se o comando Exit Do
For...Next O comando For...Next executa uma determinada rotina até que o contador (uma variável) atinja o valor determinado. Observe o exemplo:
<%
For i=1 to 50
response.write i
next
%>
observe que não é necessário nenhuma rotina de incrementação de valores em i. A cada ciclo, o valor de i é acrescido de uma unidade, automaticamente.
para interromper o Loop, usa-se o comando Exit For
While...Wend
O comando While...Wend executa uma determinada rotina até que a condição imposta seja alcançada. Observe o exemplo dado:
<%
q
= "SELECT * FROM cadastro where cidade = 'São Paulo'"
connstring = "DBQ=c:\teste.mdb;Driver={Microsoft Access Driver (*.mdb)}"
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open connstring, "",""
Set tabela = Conexao.Execute (q)
While not tabela.EOF
response.write tabela("nome").value
tabela.movenext
wend
%>