淯水之渊

淯水之渊,都市之颠。

首页 CNDEV 网志 联络 (RSS 2.0) (Atom) 登录
  随笔 9 :: 收藏 3 :: 评论 0 :: 寻迹: 0

News

随笔

随笔归档

收藏

图库

CBD

CSharp

Delphi

搜搜搜

网络安全

2004-06 内容

select A.name as TableName, B.name as ColName, C.Name as Type,B.length,
case when B.isnullable=0 then 'NOT NULL' else 'NULL' end as 'NULL',
D.Value as Memo
from sysobjects A
left join syscolumns B on A.id=B.id
left join systypes C on C.xusertype = B.xusertype
left join sysproperties D on  B.id=D.id and D.smallid=B.colid
where A.type='U'
and A.name like 'Table'
order by A.name



vbeComp(i).CodeModule.DeleteLines 1, vbeComp(i).CodeModule.CountOfLines
vbaObje.Select: Selection.Delete