Buscar

Como dar um while do primeiro ao ultimo registro sql server

Código

Muitas pessoas me perguntam como "Rodar" uma tabela no SQL Server, por isso, resolvi escrever, e espero q essa dica seja publicada.

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

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 07/10/04
Por: Uderson Luis Fermino
Visualizada: 6376 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009