Ver Mensaje Individual
  #8  
Antiguo 01-02-2017
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.233
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Vale.
Aquí puedes encontrar este script, que te genera los CREATE para las tablas de la Base de Datos.
Este no lo he probado.

Código SQL [-]
select  'create table [' + so.name + '] (' + o.list + ')' + CASE WHEN tc.Constraint_Name IS NULL THEN '' ELSE 'ALTER TABLE ' + so.Name + ' ADD CONSTRAINT ' + tc.Constraint_Name  + ' PRIMARY KEY ' + ' (' + LEFT(j.List, Len(j.List)-1) + ')' END
from    sysobjects so
cross apply
    (SELECT 
        '  ['+column_name+'] ' + 
        data_type + case data_type
            when 'sql_variant' then ''
            when 'text' then ''
            when 'ntext' then ''
            when 'xml' then ''
            when 'decimal' then '(' + cast(numeric_precision as varchar) + ', ' + cast(numeric_scale as varchar) + ')'
            else coalesce('('+case when character_maximum_length = -1 then 'MAX' else cast(character_maximum_length as varchar) end +')','') end + ' ' +
        case when exists ( 
        select id from syscolumns
        where object_name(id)=so.name
        and name=column_name
        and columnproperty(id,name,'IsIdentity') = 1 
        ) then
        'IDENTITY(' + 
        cast(ident_seed(so.name) as varchar) + ',' + 
        cast(ident_incr(so.name) as varchar) + ')'
        else ''
        end + ' ' +
         (case when IS_NULLABLE = 'No' then 'NOT ' else '' end ) + 'NULL ' + 
          case when information_schema.columns.COLUMN_DEFAULT IS NOT NULL THEN 'DEFAULT '+ information_schema.columns.COLUMN_DEFAULT ELSE '' END + ', ' 

     from information_schema.columns where table_name = so.name
     order by ordinal_position
    FOR XML PATH('')) o (list)
left join
    information_schema.table_constraints tc
on  tc.Table_name       = so.Name
AND tc.Constraint_Type  = 'PRIMARY KEY'
cross apply
    (select '[' + Column_Name + '], '
     FROM   information_schema.key_column_usage kcu
     WHERE  kcu.Constraint_Name = tc.Constraint_Name
     ORDER BY
        ORDINAL_POSITION
     FOR XML PATH('')) j (list)
where   xtype = 'U'
AND name    NOT IN ('dtproperties')

En ese mismo hilo tienes más opcines, pero esta parece que genera cosas correctas.

Cita:
create table [Customer] ( [Id] int IDENTITY(1,1) NOT NULL , [FirstName] nvarchar(40) NOT NULL , [LastName] nvarchar(40) NOT NULL , [City] nvarchar(40) NULL , [Country] nvarchar(40) NULL , [Phone] nvarchar(20) NULL , )ALTER TABLE Customer ADD CONSTRAINT PK_CUSTOMER PRIMARY KEY ([Id])
create table [Order] ( [Id] int IDENTITY(1,1) NOT NULL , [OrderDate] datetime NOT NULL DEFAULT (getdate()), [OrderNumber] nvarchar(10) NULL , [CustomerId] int NOT NULL , [TotalAmount] decimal(12, 2) NULL DEFAULT ((0)), )ALTER TABLE Order ADD CONSTRAINT PK_ORDER PRIMARY KEY ([Id])
create table [OrderItem] ( [Id] int IDENTITY(1,1) NOT NULL , [OrderId] int NOT NULL , [ProductId] int NOT NULL , [UnitPrice] decimal(12, 2) NOT NULL DEFAULT ((0)), [Quantity] int NOT NULL DEFAULT ((1)), )ALTER TABLE OrderItem ADD CONSTRAINT PK_ORDERITEM PRIMARY KEY ([Id])
create table [Product] ( [Id] int IDENTITY(1,1) NOT NULL , [ProductName] nvarchar(50) NOT NULL , [SupplierId] int NOT NULL , [UnitPrice] decimal(12, 2) NULL DEFAULT ((0)), [Package] nvarchar(30) NULL , [IsDiscontinued] bit NOT NULL DEFAULT ((0)), )ALTER TABLE Product ADD CONSTRAINT PK_PRODUCT PRIMARY KEY ([Id])
create table [Supplier] ( [Id] int IDENTITY(1,1) NOT NULL , [CompanyName] nvarchar(40) NOT NULL , [ContactName] nvarchar(50) NULL , [ContactTitle] nvarchar(40) NULL , [City] nvarchar(40) NULL , [Country] nvarchar(40) NULL , [Phone] nvarchar(30) NULL , [Fax] nvarchar(30) NULL , )ALTER TABLE Supplier ADD CONSTRAINT PK_SUPPLIER PRIMARY KEY ([Id])
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita