如何调用该存储过程？

Question

在DELPHI中如何调用？SELECT 
表名=case when a.colorder=1 then d.name else '' end,
表说明=case when a.colorder=1 then isnull(f.value,'') else '' end,
字段序号=a.colorder,
字段名=a.name,
标识=case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else '' end,
主键=case when exists(SELECT 1 FROM sysobjects where xtype='PK' and name in (
SELECT name FROM sysindexes WHERE indid in(
SELECT indid FROM sysindexkeys WHERE id = a.id AND colid=a.colid
))) then '√' else '' end,
类型=b.name,
占用字节数=a.length,
长度=COLUMNPROPERTY(a.id,a.name,'PRECISION'),
小数位数=isnull(COLUMNPROPERTY(a.id,a.name,'Scale'),0),
允许空=case when a.isnullable=1 then '√'else '' end,
默认值=isnull(e.text,''),
字段说明=isnull(g.[value],''),
索引名称=isnull(h.索引名称,''),
索引顺序=isnull(h.排序,'')
FROM syscolumns a
left join systypes b on a.xtype=b.xusertype
inner join sysobjects d on a.id=d.id  and d.xtype='U' and d.status>=0
left join syscomments e on a.cdefault=e.id
left join sysproperties g on a.id=g.id and a.colid=g.smallid  
left join sysproperties f on d.id=f.id and f.smallid=0
left join(--这部分是索引信息,如果要显示索引与表及字段的对应关系,可以只要此部分
select 索引名称=a.name,c.id,d.colid
,排序=case indexkey_property(c.id,b.indid,b.keyno,'isdescending')
when 1 then '降序' when 0 then '升序' end
from sysindexes a
join sysindexkeys b on a.id=b.id and a.indid=b.indid
join (--这里的作用是有多个索引时,取索引号最小的那个
select id,colid,indid=min(indid) from sysindexkeys
group by id,colid) b1 on b.id=b1.id and b.colid=b1.colid and b.indid=b1.indid
join sysobjects c on b.id=c.id and c.xtype='U' and c.status>=0
join syscolumns d on b.id=d.id and b.colid=d.colid
where a.indid not in(0,255)
) h on a.id=h.id and a.colid=h.colid
--where d.name='要查询的表'    --如果只查询指定表,加上此条件
order by a.id,a.colorder

Answer 1

这是一个查询语句,直接用query----------------------
这个脚本很有水平的!保存一份!

Answer 2

若是BDE则用TQuery，若是ADO则用TADOQuery

Answer 3

学习
up
存储过程ADOStoredProc
这个脚本的确很不错

Answer 4

当然之返回结果集
用query就行了

Answer 5

用存储过程也可以的
只是
最后
ADOStoredProc.open就行
如果ADOStoredProc.execproc不行，不能返回结果集

Answer 6

你可以利用ADOQUER的SQL属性来调用此过程就行了

Answer 7

用存储过程也可以的
只是
最后
ADOStoredProc.open就行
如果ADOStoredProc.execproc不行，不能返回结果集

Answer 8

首先，你这个SQL写得不太好，
表名=case when a.colorder=1 then d.name else '' end
完全可以用：
decode(a.colorder,1,d.name,'') 来代替，这样可以提高执行效率，也可以更加简洁；
left join systypes b on a.xtype=b.xusertype
inner join sysobjects d on a.id=d.id  and d.xtype='U' and d.status>=0
left join syscomments e on a.cdefault=e.id
left join sysproperties g on a.id=g.id and a.colid=g.smallid  
left join sysproperties f on d.id=f.id and f.smallid=0
left join(--这部分是索引信息,如果要显示索引与表及字段的对应关系,可以只要此部分。
也可以采用更加直观的写法。（+）二、如果你这是写成一个存储过程，我没有看出来你的参数在哪？你这只是一个QUERY
三、如果是要写成一个存储过程，可以以cursor的方式返回记录集，将参数传入后台即可。

Answer 9

decode?
有这个函数吗?你说的是什么数据库阿!