Crear y recorrer una tabla

[magm2000]

Hola:
Necesito crear y recorrer una tabla, bien en un procedimiento almacenado o en una función definida por el usuario. He visto que una función puede devolver una tabla pero no sé como se puede recorrer dicha tabla dentro de la función.
Un saludo.

[Investment]

En la ayuda de Delphi tienes un ejemplo de como craer una tabla:
Mira CreateTable del componente TTable

Otra forma de hacerlo es mediante un asentencia SQL:
CREATE TABLE ...

Para recorrer una tabla:
Table1.Open

while not Table1.Eof do
  Table1.Next;

[magm2000]

Ya lo sé, pero el problema es en un procedimiento almacenado o función definida por el usuario de SQL SERVER.
Salu2.

[[__hector]]

Para recorrer una tabla tienes que utilizar un cursor.

Se utiliza de la siguiente forma:

DECLARE CURSOR nombrecursor FOR
Sentencia SQL

Luego, lo abres :

OPEN cursor_puestos

y lo recorres

FETCH NEXT FROM cursor_puestos

WHILE @@FETCH_STATUS = 0
BEGIN
....
FETCH NEXT FROM cursor_puestos
END

CLOSE cursor_puestos
DEALLOCATE cursor_puestos

Si quieres recuperar los valores de los campos del cursor, declaras variables de ese tipo de datos, e insertas los valores del cursor en las variables. Mas o menos como:

DECLARE @Campo int

DECLARE 	nombrecursor CURSOR FOR

	SELECT 	Campo
	FROM 	Tabla

OPEN nombrecursor

FETCH NEXT FROM nombrecursor
INTO @Campo

WHILE @@FETCH_STATUS = 0
BEGIN
 -- aqui puedes trabajar con @Campo, que tendra el valor de cada
 -- campo en la consulta

   FETCH NEXT FROM nombrecursor
   INTO @Campo
END

CLOSE nombrecursor
DEALLOCATE nombrecursor

Si tienes mas dudas, consulta el tema en SQL Books Online