刚好对Oracle数据字典这块比较熟悉，来给你详细解答这两个问题：

要获取这些信息，核心是查询Oracle的数据字典视图——这些视图存储了数据库的所有元数据：

• 列名与数据类型：从user_tab_columns视图获取，包含列名、数据类型、长度、精度/刻度等细节
• 约束信息：通过user_constraints（约束基本属性）和user_cons_columns（约束关联的列）关联查询，约束类型通过constraint_type区分：
  • P：主键约束
  • U：唯一约束
  • C：检查约束/非空约束
  • R：外键约束
• 外键依赖表：外键约束（R类型）的r_constraint_name字段对应父表的主键/唯一约束，通过关联user_constraints可以拿到父表的名称

第一步：查询表的完整结构信息 #

下面的SQL会一次性列出指定表的列名、数据类型、约束类型、外键关联表等所有关键信息：

SELECT
    tc.column_name,
    tc.data_type,
    tc.data_length,
    tc.data_precision,
    tc.data_scale,
    cc.constraint_name,
    cc.constraint_type,
    -- 外键关联的父表名称
    CASE 
        WHEN cc.constraint_type = 'R' THEN (SELECT table_name FROM user_constraints uc WHERE uc.constraint_name = cc.r_constraint_name)
        ELSE NULL
    END AS referenced_table,
    -- 非空状态
    CASE 
        WHEN tc.nullable = 'N' THEN 'NOT NULL'
        ELSE 'NULL'
    END AS nullable_status
FROM
    user_tab_columns tc
LEFT JOIN
    user_cons_columns ucc ON tc.table_name = ucc.table_name AND tc.column_name = ucc.column_name
LEFT JOIN
    user_constraints cc ON ucc.constraint_name = cc.constraint_name
WHERE
    tc.table_name = UPPER('your_table_name') -- 替换成目标表名，UPPER兼容小写输入
ORDER BY
    tc.column_id;

注意：如果查询其他用户的表，需要替换user_开头的视图为all_或dba_前缀，同时要有对应的查询权限。

第二步：基于查询结果程序化创建表 #

这里用Oracle的PL/SQL编写一个块，自动生成并执行建表语句（也可以只打印语句验证）：

DECLARE
    v_table_name VARCHAR2(100) := UPPER('your_table_name'); -- 替换成目标表名
    v_create_stmt VARCHAR2(4000);
    v_temp VARCHAR2(1000);
    v_first_col BOOLEAN := TRUE;
BEGIN
    -- 初始化建表语句
    v_create_stmt := 'CREATE TABLE ' || v_table_name || ' (';

    -- 拼接列定义与非空约束
    FOR col_rec IN (
        SELECT column_name, data_type, data_length, data_precision, data_scale, nullable
        FROM user_tab_columns
        WHERE table_name = v_table_name
        ORDER BY column_id
    ) LOOP
        IF NOT v_first_col THEN
            v_create_stmt := v_create_stmt || ', ';
        ELSE
            v_first_col := FALSE;
        END IF;

        -- 基础列定义
        v_create_stmt := v_create_stmt || col_rec.column_name || ' ' || col_rec.data_type;

        -- 处理数值类型的精度和刻度
        IF col_rec.data_type IN ('NUMBER', 'FLOAT') AND col_rec.data_precision IS NOT NULL THEN
            v_create_stmt := v_create_stmt || '(' || col_rec.data_precision;
            IF col_rec.data_scale IS NOT NULL THEN
                v_create_stmt := v_create_stmt || ', ' || col_rec.data_scale;
            END IF;
            v_create_stmt := v_create_stmt || ')';
        -- 处理字符类型的长度
        ELSIF col_rec.data_type LIKE '%CHAR%' THEN
            v_create_stmt := v_create_stmt || '(' || col_rec.data_length || ')';
        END IF;

        -- 添加非空约束
        IF col_rec.nullable = 'N' THEN
            v_create_stmt := v_create_stmt || ' NOT NULL';
        END IF;
    END LOOP;

    -- 拼接主键、唯一约束、检查约束
    FOR cons_rec IN (
        SELECT uc.constraint_name, uc.constraint_type, ucc.column_name, uc.search_condition
        FROM user_constraints uc
        JOIN user_cons_columns ucc ON uc.constraint_name = ucc.constraint_name
        WHERE uc.table_name = v_table_name AND uc.constraint_type IN ('P', 'U', 'C')
        ORDER BY uc.constraint_type, ucc.position
    ) LOOP
        v_create_stmt := v_create_stmt || ', ';

        CASE cons_rec.constraint_type
            WHEN 'P' THEN
                v_create_stmt := v_create_stmt || 'CONSTRAINT ' || cons_rec.constraint_name || ' PRIMARY KEY (' || cons_rec.column_name || ')';
            WHEN 'U' THEN
                v_create_stmt := v_create_stmt || 'CONSTRAINT ' || cons_rec.constraint_name || ' UNIQUE (' || cons_rec.column_name || ')';
            WHEN 'C' THEN
                v_create_stmt := v_create_stmt || 'CONSTRAINT ' || cons_rec.constraint_name || ' CHECK (' || cons_rec.search_condition || ')';
        END CASE;
    END LOOP;

    -- 拼接外键约束
    FOR fk_rec IN (
        SELECT uc.constraint_name, ucc.column_name, uc.r_constraint_name, 
               (SELECT table_name FROM user_constraints WHERE constraint_name = uc.r_constraint_name) AS ref_table,
               uc.delete_rule
        FROM user_constraints uc
        JOIN user_cons_columns ucc ON uc.constraint_name = ucc.constraint_name
        WHERE uc.table_name = v_table_name AND uc.constraint_type = 'R'
        ORDER BY ucc.position
    ) LOOP
        v_create_stmt := v_create_stmt || ', ';
        v_create_stmt := v_create_stmt || 'CONSTRAINT ' || fk_rec.constraint_name || ' FOREIGN KEY (' || fk_rec.column_name || ') REFERENCES ' || fk_rec.ref_table;
        
        -- 添加ON DELETE规则（如果有）
        IF fk_rec.delete_rule IS NOT NULL AND fk_rec.delete_rule != 'NO ACTION' THEN
            v_create_stmt := v_create_stmt || ' ON DELETE ' || fk_rec.delete_rule;
        END IF;
    END LOOP;

    -- 完成建表语句
    v_create_stmt := v_create_stmt || ')';

    -- 打印生成的语句（用于验证）
    DBMS_OUTPUT.PUT_LINE('生成的建表语句：');
    DBMS_OUTPUT.PUT_LINE(v_create_stmt);

    -- 若需直接执行，取消下面的注释（需有CREATE TABLE权限）
    -- EXECUTE IMMEDIATE v_create_stmt;
    -- DBMS_OUTPUT.PUT_LINE('表创建成功！');
END;
/

使用说明：执行前替换v_table_name的值为目标表名，执行时确保有SELECT数据字典的权限和CREATE TABLE权限（如果要执行建表）。

内容的提问来源于stack exchange，提问作者a p