怎样实现把一个库里的所有关系列出来。

Question

用VB+ADO在SQL上，怎样把一个库里的所有关系列出来。

Answer 1

strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
pubConn.Open strConn
   
rsTable.CursorLocation = adUseClient
strSQL = "select  * from Table1 left join Table2 on..."
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTable

Answer 2

declare @Object_Name varchar(50)set @Object_Name='p1'--这里可以是任何对象名，如表名，存储过程名，视图，函数-----------------------------------------依附于该对象的所有对象
select b.name 对象名 ,a.id 标识,(case b.type 
                                     When 'TR' then '触发器' 
                                     When 'P' then '存储过程' 
                                     When 'V' then '视图'
                                     When 'U' then '用户表'
                                     When 'TF' then '表函数'
                                         
                                     else '嵌无'
                                 end  ) 类型 ,a.depnumber 相关参数号 
From sysdepends as a  inner join sysobjects as b on a.id=b.id
where depid in (Select [id] From sysobjects Where name=@Object_Name)------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--该对象所依附的该‘对象’
select b.name 对象名 ,b.id 标识,(case b.type 
                                     When 'TR' then '触发器' 
                                     When 'P' then '存储过程' 
                                     When 'V' then '视图'
                                     When 'U' then '用户表'
                                     When 'TF' then '表函数'
                                     else '嵌无'
                                 end  ) 类型 ,a.depnumber 相关参数号 
From sysdepends as a  inner join sysobjects as b on a.depid=b.id
where a.[id] in (Select [id] From sysobjects Where name=@Object_Name)