如何从各种数据库中取出存在的存储过程？

Question

我要写一个应用，用户具体连接什么数据库不能确定，但需要取出所连接数据库中的存储过程。
也就是说，我想在程序中取出oracle、db2、sql server等数据库中的存储过程的列表，该怎么做呢？

Answer 1

rs.Open "Select * From sysobjects where xtype = 'p'"
  Do While Not rs.EOF
     cmbStoredproc.AddItem rs.Fields("name")
     rs.MoveNext
  Loop
  rs.Close

Answer 2

你可以使用工具软件如:Microsoft Visio(需要企业版),Power Design等