Código Fuente >> SQL >> Trasponer una tabla usando un campo pivote

Comunidad de Programadores

LWP >> Código Fuente >> SQL >> Trasponer una tabla usando un campo pivote



	Información

Cursos

Biblioteca de Temas

Código Fuente

Diccionario

Noticias/Artículos

Encuestas/Estadísticas


	Buscar

Buscador para Prog.

Buscar en Internet

Direcciones Interés


	Servicios

Foros de Consulta

Preguntas/Respuestas

Tablón de Notas

Drivers

Iconos y Cursores

Postales

Libros


	Programadores

Programadores

Ofertas de Trabajo

Lista de Correo


	Programas

Programas/Utilidades

Nuestros Programas

Solicitudes


	Otros

Mercadillo

Chat

Colaboradores

Tienda OnLine

Contactar

Trasponer una tabla usando un campo pivote

Autor:

Ubeimar Vergara (ubeimarvg@Interlan.com.co)

Comentarios: 5

80%

20%

Query en SQL Server que permite trasponer una Tabla. Código a manera de Script muy simple para convertirlo en Procedimiento Almacenado o en una función de usuario.

/*
// Funcion: Trasponer una tabla usando un campo pivote.
//
// Parametros:
//   @Tabla - Nombre de la Tabla a pivotear.
//   @CampoPivote - Columna que se desea usar como pivote.
//
// Restricciones:
//   - La tabla no debe tener muchas filas (probado hasta 10 filas).
//   - La tabla no debe tener columnas tipo BIT.
//   - La columna Pivote, debe tener todos los valores diferentes.
//
// Fecha de Creacion:
//   22/ENE/2003
*/

DECLARE @I INT -- Se usa para generar los alias de las tablas en el @SQL.
DECLARE @Registros INT -- Para obtener el numero de registros (filas) de la tabla.

DECLARE @Campo VARCHAR(50)
DECLARE @CampoPivote VARCHAR(50)
DECLARE @Tabla VARCHAR(20)
DECLARE @SQL VARCHAR(8000)

SET @Tabla = 'tblEstado'
SET @CampoPivote = 'EST_Regional'

CREATE TABLE ##Campos
( Campo VARCHAR(50) )
	EXEC('INSERT INTO ##Campos SELECT ' + @CampoPivote + ' FROM ' + @Tabla)

DECLARE Tabla CURSOR FOR
	SELECT * FROM ##Campos

SET @SQL = 'CREATE TABLE ##Pivote ( A VARCHAR(50),'

OPEN Tabla
FETCH NEXT FROM Tabla INTO @Campo
	WHILE @@FETCH_STATUS = 0
	BEGIN
		SET @SQL = @SQL + @Campo + ' VARCHAR(50)'	
		FETCH NEXT FROM Tabla INTO @Campo
		IF @@FETCH_STATUS = 0
			SET @SQL = @SQL + ','
	END
	EXEC(@SQL + ' )')
CLOSE Tabla
DEALLOCATE Tabla

DROP TABLE ##Campos

CREATE TABLE ##Registros
( Cantidad INT )
	EXEC ('INSERT INTO ##Registros SELECT COUNT(1) FROM ' + @Tabla)
	SELECT @Registros = Cantidad FROM ##Registros
	DROP TABLE ##Registros

DECLARE Campos CURSOR FOR
	SELECT B.name FROM sysobjects A
	INNER JOIN syscolumns B ON
	A.ID = B.ID
	WHERE A.name = @Tabla
	ORDER BY B.colid

OPEN Campos
FETCH NEXT FROM Campos INTO @Campo
	WHILE @@FETCH_STATUS = 0
	BEGIN
		IF UPPER(@Campo) <> UPPER(@CampoPivote)
		BEGIN
			SET @SQL = 'INSERT INTO ##Pivote SELECT ''' + @Campo + ''','
			SET @I = 1
			WHILE @I <= @Registros
			BEGIN
				SET @SQL = @SQL + 'CAST(MIN(A' + RTRIM(LTRIM(CAST(@I AS VARCHAR))) + '.' + @Campo + ') AS VARCHAR)'
				IF @I < @Registros
					SET @SQL = @SQL + ','
				SET @I = @I + 1
			END
			SET @SQL = @SQL + ' FROM ' + @TABLA + ' A1 '
			SET @I = 2
			WHILE @I <= @Registros
			BEGIN
				SET @SQL = @SQL + 'INNER JOIN ' + @Tabla + ' A'+ RTRIM(LTRIM(CAST(@I AS VARCHAR))) + ' ON '
				SET @SQL = @SQL + 'A' + RTRIM(LTRIM(CAST((@I - 1) AS VARCHAR))) + '.' + @CampoPivote + '<A' + RTRIM(LTRIM(CAST(@I AS VARCHAR))) + '.' + @CampoPivote + ' '
				SET @I = @I + 1
			END
			EXEC(@SQL)
		END
		FETCH NEXT FROM Campos INTO @Campo
	END
CLOSE Campos
DEALLOCATE Campos

SELECT * FROM ##Pivote
DROP TABLE ##Pivote