OracleExcel VBA写获取表字段类型及约束语句

Oracle：

   select /*字段及注释*/t1.owner,t1.table_name,t2.comments,t1.column_name,t3.comments,/*字段类型*/t1.data_type,t1.DATA_LENGTH,t1.DATA_PRECISION, /*字段约束*/t1.nullable,t6.c_unique,t6.c_primary,t6.c_relafrom all_tab_columns t1 left join all_tab_comments t2 on t1.owner=t2.owner and t1.table_name=t2.table_name left join all_col_comments t3 on t1.owner=t3.owner and t1.table_name=t3.table_name and t1.column_name=t3.column_nameleft join (select * from (select t4.OWNER,t4.TABLE_NAME,t4.COLUMN_NAME,t5.CONSTRAINT_TYPE from all_cons_columns t4 left join all_constraints t5 on t4.constraint_name=t5.constraint_name and t4.owner=t5.owner and t4.table_name=t5.table_namewhere t4.TABLE_NAME= v_table_name and CONSTRAINT_TYPE<>'C' --******传表名) pivot (max(CONSTRAINT_TYPE) for CONSTRAINT_TYPE in ('U' as c_unique,'P' as c_primary,'R' as c_rela)) ) t6on t1.owner=t6.owner and t6.TABLE_NAME=t1.TABLE_NAME and t1.column_name=t6.column_name where t1.OWNER= v_owner and t1.TABLE_NAME=v_table_name ORDER BY T1.COLUMN_ID ;  --******传表名

Excel VBA

Dim conn As New ADODB.Connection
Dim strConn As String
Dim strconn1 As String
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.recordset")
sqls = ""
sqls = sqls & "select "
sqls = sqls & "t1.owner as ""用户名"",t1.table_name as ""表名称"",t2.comments as ""表注释"",t1.column_name as ""字段名称"",t3.comments as ""字段注释"", "
sqls = sqls & "t1.data_type as ""字段类型"",t1.data_length as ""字段长度"" ,t1.data_precision as ""字段精度"", "
sqls = sqls & "t1.nullable as ""是否允许为空"",t6.c_primary as ""是否为空"" , t6.c_unique as ""是否唯一"",t6.c_rela as ""是否关联外键"" "
sqls = sqls & "from all_tab_columns t1 "
sqls = sqls & "left join all_tab_comments t2 on t1.owner=t2.owner and t1.table_name=t2.table_name "
sqls = sqls & "left join all_col_comments t3 on t1.owner=t3.owner and t1.table_name=t3.table_name and t1.column_name=t3.column_name "
sqls = sqls & "Left Join "
sqls = sqls & "(select * from "
sqls = sqls & "(select t4.OWNER,t4.TABLE_NAME,t4.COLUMN_NAME,t5.CONSTRAINT_TYPE from all_cons_columns t4 "
sqls = sqls & "left join all_constraints t5 on t4.constraint_name=t5.constraint_name and t4.owner=t5.owner and t4.table_name=t5.table_name "
sqls = sqls & "  where t4.TABLE_NAME= '" & v_table_name & "' and CONSTRAINT_TYPE<>'C' "
sqls = sqls & ") pivot (max(CONSTRAINT_TYPE) for CONSTRAINT_TYPE in ('U' as c_unique,'P' as c_primary,'R' as c_rela)) "
sqls = sqls & ") t6 "
sqls = sqls & "on t1.owner=t6.owner and t6.TABLE_NAME=t1.TABLE_NAME and t1.column_name=t6.column_name "
sqls = sqls & "where t1.OWNER= '" & v_owner & "' and t1.TABLE_NAME= '" & v_table_name & "' ORDER BY T1.COLUMN_ID " '注意传参'On Error GoTo excetpion
Set rst = conn.Execute(sqls)Do While Not rst.EOF()'Next 下一行rst.MoveNextnum = num + 1
Loop '结束每行数据的处理

OracleExcel VBA写获取表字段类型及约束语句相关推荐

access vba表字段_Access获取表字段的所有属性信息
在Access表设计中,我们都会对每个字段做一些属性修改.比如修改文本大小节省内容,修改标题方法显示字段信息等等. 前面我们讲过< 下面的函数可以获取表字段的字段大小,格式,掩码,小数位数,标题 ...
如何从jdbc中获取数据库建表语句信息(表字段名称/表字段类型/表字段注释信息/表字段长度等等)
* 如何从jdbc中获取数据库建表语句信息(表字段名称/表字段类型/表字段注释信息/表字段长度等等) * 1,表字段名称 * 2,表字段类型 * 3,表字段注释信息这里介绍3种方式,如下: 第 ...
mysql oradba,使用SQL语句查询表及表字段类型说明
今天突然遇到有人要数据库表及表字段说明,数据库表太多又不能一个个表去找,就想想SQL是否能直接查询出来. 经过查询资料,加上一些自己的一些调整写了一个sql语句,在此记录一下,以方便日后查找使用. S ...
数据库设计之设计表字段类型
2019独角兽企业重金招聘Python工程师标准>>> 数据库设计之设计表字段类型博客分类: sql 之前没有数据库设计的一些经验. 这次数据库设计.由于需求原因和没经验原因 ...
php mysql 表字段_php mysql获取表字段名称和字段信息的三种方法
php mysql获取表字段名称和字段信息的三种方法先给出本实例中使用的表的信息: 使用desc获取表字段信息 php代码如下: mysql_connect("localhost" ...
Oracle应用之修改表字段类型
Mysql对于有数据和没数据的表字段类型都可以随意修改,不过oracle就不一样. 假如表A有个字段a,本来为number类型,然后我们想修改为varchar2类型. (1)字段a没数据的情况,改为v ...
修改表字段类型长度_PG修改字段
今天又遇到一个需求,要把PG中的字段类型修改一下.本来以为是个很简单的事情,毕竟Oracle就是一条指令就行了.但是在PG中改字段真的真的太难了. 当你修改表字段的时候,会报ERROR: cannot ...
html 字段類型控制,db2修改表字段类型
db2 如何向表中增加,修改字段如果此回答对楼主有帮助,给个喜欢好吗?啦 db2表字段修改 1:删除字段非空属性alter table XXX alter column XXX drop not n ...
oralce 增加表字段命令|oralce 增加表字段类型命令
oralce 增加表字段命令语法 alter table 表明 add 字段名类型 alter table aqcuser add email varchar(36) 转载于:https://ww ...

OracleExcel VBA写获取表字段类型及约束语句

OracleExcel VBA写获取表字段类型及约束语句相关推荐

最新文章

热门文章