Código
Normalmente no Delphi usamos:
Tabela.first;
while not Tabela.eof do
begin
.
.
.
Tabela.next;
end;
Em um script para Sql Server é um puco diferente, mas nada complicado.Seria mais ou menos assim:
--Script Sql Server
Declare @Codigo integer
Declare @Descricao varchar(20)
--Criacao de um Cursor virtual
DECLARE MyCursor CURSOR FAST_FORWARD FOR
SELECT codigo,descricao FROM Tabela
OPEN MyCursor
FETCH NEXT FROM MyCursor
INTO @Codigo,@Descricao
WHILE @@FETCH_STATUS = 0
BEGIN
.
.
.
.
.
FETCH NEXT FROM MyCursor
INTO @Codigo,@Descricao
END
CLOSE MyCursor
DEALLOCATE MyCursor
--Fim do Script
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009