Generar programaticamente script CREATE TABLE de tabla ya existente con T-SQL

[albert2stein]

Hola,

me gustaría saber si es posible generar una sentencia en T-SQL mediante la cual se genere un script CREATE TABLE basado en una tabla ya existente con sus correspondientes columnas, constraints, tipos de datos, etc.

Manualmente, conseguiría generar este script del siguiente modo:

1. Click derecho sobre mi tabla
2. Click en "Script Table as"
3. Click en "Create to"
4. Click en "New Query Editor Window"

No obstante, me gustaría tener un script que leyera automáticamente la estructura de la tabla y generase programáticamente un script CREATE TABLE. Es eso posible mediante algún comando de T-SQL o se puede alcanzar lo mismo mediante algo de código en C#?

Gracias por adelantado

[iislas]

Si manejas vb.net

descárgate «SQL Server Export» de la sección «Aplicaciones» de http://www.mvp-access.com/rubenvigon y échale un vistazo al código fuente (Visual Basic 6.0)

[Joch_pa]

acabo de generar el siguiente script(con mucha imaginacion), aun falta algunos datos que pides(solo genera el script de la tabla), pero creo lo puedes complementar o mejorar (ya me dio flojera terminarlo) [espero te sirva]

Código SQL:

CREATE PROCEDURE dbo.generaScript_sp
    @tabla VARCHAR(40)
AS
    DECLARE @id INT
    --obtener el id de la tabla
        SET @id = isnull((SELECT id FROM dbo.sysobjects WHERE id = object_id(N'[dbo].['+ @tabla +']') AND OBJECTPROPERTY(id, N'IsUserTable') = 1),0)
 
    IF @id<>0
    BEGIN
        SELECT 
            campo 
        FROM (
            SELECT 'create table dbo.' + @tabla + '( campo numeric(9) null' AS campo, 0 AS colorder
            UNION
            SELECT ', ['+CONVERT(sysname,c.name) + '] ' + 
                t.name + CASE t.name WHEN 'datetime' THEN ' ' ELSE '('+CONVERT(VARCHAR,CASE WHEN d.DATA_TYPE IN (6,7) THEN d.data_precision ELSE OdbcPrec(c.xtype,c.LENGTH,c.xprec) END) + ') ' END + (
                CASE CONVERT(INT, ColumnProperty (c.id, c.name, 'AllowsNull')) WHEN 1 THEN 'NULL' WHEN 0 THEN '' END)+ ' Default ' + isnull(text,'NULL') AS Campo,c.colorder
            FROM
                sysobjects o,
                master.dbo.spt_datatype_info d,
                systypes t,
                syscolumns c
                LEFT OUTER JOIN syscomments m ON c.cdefault = m.id AND m.colid = 1
            WHERE
                o.id = @id
                AND c.id = o.id
                AND t.xtype = d.ss_dtype
                AND c.LENGTH = isnull(d.fixlen, c.LENGTH)
                AND (d.ODBCVer IS NULL OR d.ODBCVer = 2)
                AND (o.TYPE NOT IN ('P', 'FN', 'TF', 'IF') OR (o.TYPE IN ('TF', 'IF') AND c.NUMBER = 0))
                AND isnull(d.AUTO_INCREMENT,0) = isnull(ColumnProperty (c.id, c.name, 'IsIdentity'),0)
                AND c.xusertype = t.xusertype
            UNION 
            SELECT ')',9999998 AS colorder
            UNION
            SELECT 'alter table ' + @tabla + ' drop column [campo]',9999999 AS colorder
        )B 
        ORDER BY colorder
    END
 
GO
 
EXEC generaScript_sp 'tutabla'
 

[albert2stein]

Muchísimas gracias a los dos, voy a intentar la soluciones que me habéis propuesto.