Personal WebSite of Leonardo Sasso

Declare @vTabla VarChar (50),

@vColumna VarChar (50)

Set @vTabla = Null --'%RENGLON'

Set @vColumna = '%ts_desc%'

-- Recupera todas las columnas de la tabla informada.

If Not @vTabla Is Null

Select Convert (VarChar (30), SO.Name) NombreTabla,

Convert (VarChar (30), SC.Name) NombreColumna,

Convert (VarChar (30), ST.Name) TipoDato,

SC.Length, SC.xPrec

From SysObjects SO,

SysColumns SC,

SysTypes ST

Where SO.xType = 'U'

And SO.Name Like @vTabla

And SC.Id = SO.Id

And ST.xType = SC.xType

Order By SO.Name, SC.ColID

-- Recupera la tabla de la columna informada.

If Not @vColumna Is Null

Select Convert (VarChar (30), SO.Name) NombreTabla,

Convert (VarChar (30), SC.Name) NombreColumna,

Convert (VarChar (30), ST.Name) TipoDato,

SC.Length, SC.xPrec

From SysObjects SO,

SysColumns SC,

SysTypes ST

Where SO.xType = 'U'

And SC.Name Like @vColumna

And SC.Id = SO.Id

And ST.xType = SC.xType

Order By SO.Name, SC.ColID