Question

我已经扫描了类似的问题，但它们似乎指的是其他数据库和/或外部语言。

我希望通过SQL以编程方式提取表DDL，其结果是“足够好”以重新导入和重新构建表。

DBArtisan产生我正在寻找的确切结果，但我有一个动态列表，包含几十个我需要使用的表，并且希望有一个编程解决方案。

我认为DBArtisan必须以某种方式调用API。他们只是在反对systables，还是有一个系统安装了存储过程（类似于产生存储过程文本的那个）我错过了？

Answer 1

最好的解决方案是将它包装成一个很好的存储过程，但你应该从下面的代码中得到这个想法。只需替换：

   SELECT @OnlyTableName = 'my_table_name'

使用您的表名并执行代码，您应该在此代码末尾的#rtn表中获取所有DDL语句：

   DECLARE @TableName               varchar(50)
   DECLARE @ObjectID                int
   DECLARE @IndexID                 int
   DECLARE @IndexStatus             int
   DECLARE @IndexName               varchar(30)
   DECLARE @msg                     varchar(255)
   DECLARE @OnlyTableName           varchar(50)
   DECLARE @LastColumnId            int
   DECLARE @i                       int


   SELECT @OnlyTableName = 'my_table_name'


   CREATE TABLE #columns (
      column_name char(30)    NULL,
      type_name   char(30)    NULL,
      length      char(10)    NULL,
      iden_flag   char(10)    NULL,
      null_flag   char(20)    NULL,
      flag        char(1)     NULL
   )

   CREATE TABLE #rtn (
      msg   varchar(255)   NULL
   )



   SELECT @TableName = name,
          @ObjectID  = id
     FROM sysobjects
    WHERE type = 'U'
      AND name = @OnlyTableName
    ORDER BY name

   SELECT @LastColumnId = MAX(colid) FROM syscolumns WHERE id = @ObjectID

   INSERT #columns
   SELECT col.name,
          typ.name,
          CASE WHEN typ.name in ('decimal','numeric') THEN '(' +
convert(varchar, col.prec) + ',' + convert(varchar, col.scale) + ')'
               WHEN typ.name like '%char%'THEN
'('+CONVERT(varchar,col.length)+')'
               ELSE '' END,
          CASE WHEN col.status = 0x80 THEN 'IDENTITY' ELSE '' END,
          CASE WHEN convert(bit, (col.status & 8)) = 0 THEN "NOT NULL"
ELSE "NULL" END + CASE WHEN col.colid = @LastColumnId THEN ')' ELSE
',' END,
          NULL
     FROM syscolumns col, systypes typ
    WHERE col.id = @ObjectID
      AND col.usertype = typ.usertype
    ORDER BY col.colid


   INSERT #rtn
   SELECT "CREATE TABLE " + @TableName + " ("
   UNION ALL
   SELECT '    '+
                    column_name + replicate(' ',30- len(column_name)) +
                    type_name + length + replicate(' ',20 -
len(type_name+length)) +
                    iden_flag + replicate(' ',10 - len(iden_flag))+
                    null_flag
        FROM #columns

   SELECT name, indid, status, 'N' as flag INTO #indexes
   FROM sysindexes WHERE id = @ObjectID

   SET ROWCOUNT 1
   WHILE 1=1
   BEGIN
      SELECT @IndexName = name, @IndexID = indid, @IndexStatus =
status FROM #indexes WHERE flag = 'N'
      IF @@ROWCOUNT = 0
         BREAK

      SELECT @i = 1
      SELECT @msg = ''
      WHILE 1=1
      BEGIN
         IF index_col(@TableName, @IndexID, @i) IS NULL
            BREAK

         SELECT @msg = @msg + index_col(@TableName, @IndexID, @i) +
CASE WHEN index_col(@TableName, @IndexID, @i+1) IS NOT NULL THEN ','
END
         SELECT @i = @i+1
      END

      IF @IndexStatus & 2048 = 2048 --PRIMARY KEY
         INSERT #rtn
         SELECT "ALTER TABLE " + @TableName +
                " ADD CONSTRAINT " + @IndexName +
                " primary key "+
                CASE WHEN @IndexID != 1 THEN 'nonclustered ' END +
'('+ @msg +')'
      ELSE
         IF (@IndexStatus & 2048 = 0 AND @IndexID NOT IN (0, 255))
--NOT PRIMARY KEY
            INSERT #rtn
            SELECT 'CREATE '+
            CASE WHEN @IndexStatus & 2 = 2 THEN 'UNIQUE ' ELSE '' END +
            CASE WHEN @IndexID = 1 THEN 'CLUSTERED ' ELSE 'NONCLUSTERED ' END +
            'INDEX ' + @IndexName + ' ON ' + @TableName + ' ('+ @msg +')'

      UPDATE #indexes SET flag = 'Y' WHERE indid = @IndexID

   END
   SET ROWCOUNT 0

   SELECT * FROM #rtn

   DROP TABLE #columns
   DROP TABLE #rtn

让我知道它是否有帮助。

（积分转到ROCKY这个; - ）

Answer 2

IIRC有一个名为DBSchema的工具（peppler.org/downloads/dbschema-2_4_2.zip是我能找到的最好的URL） - 如果URL没有响铃，Mike Peppller是sybperl的作者。如果您愿意自行编写，可以对该脚本的代码进行反向工程。

就SQL而言，表信息位于sysobjects表中，列信息位于Sybase的syscolumns中。

您还可以使用存储过程：http://www.razorsql.com/articles/sybase_admin_queries.html

Answer 3

是的，但比表名和列更多。您需要约束，索引，键，默认值，分区，权限...... 值得注意的是，地面资源对于执行此操作的sybase代码有多么薄弱（sp_help并未涵盖所有内容 - 要测试，使用像DBArtisan Extract DDL工具这样的东西，你会看到THAt是多么全面！）

Answer 4

ASE使用DDL脚本生成器实用程序 - ddlgen

该实用程序可用于为整个数据库，表等创建脚本备份。示例命令在Sybase帮助站点中提供。

在Windows下，可以在％sybase％/ ASE-15_0 / bin

中找到实用程序

如何通过SQL提取Sybase（12.5）表DDL？

4 个答案: