|
--用以下脚本,可以得到任意对象的创建时的脚本,网上好像也流传有,但属于自己的东西用着还是感觉舒坦.
--增加快捷键后,然后在查询分析器中按相应的快捷键就能显示对象的脚本.
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
ALTER procedure sp_script
@objectname varchar(50)
as
declare @databasename varchar(50)
set @databasename = DB_NAME(DB_ID())
declare @str varchar(4000)
DECLARE @object int
declare @objectdatabase int
DECLARE @hr int
DECLARE @src varchar(255), @desc varchar(255)
DECLARE @DataBaseCount int, @Current int, @DataBase int
declare @table int, @tables int
EXEC @hr = sp_OACreate ''''SQLDMO.SQLServer'''', @object OUT
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END
EXEC @hr = sp_OAMethod @object, ''''Connect'''', NULL, @@servername,
''''sa'''', ''''''''
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object
RETURN
END
EXEC @hr = sp_OAGetProperty @object, ''''Databases'''', @objectdatabase output
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @objectdatabase, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END
EXEC @hr = sp_OAGetProperty @objectdatabase, ''''count'''', @DataBaseCount output
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @objectdatabase, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END
set @Current = 1
loop1:
EXEC @hr = sp_OAMethod @objectdatabase, ''''Item'''', @Database output, @databasename
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @objectdatabase
RETURN
END
EXEC @hr = sp_OAMethod @Database, ''''GetObjectByName'''', @table output, @objectname
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @Database
RETURN
END
Exec @hr = sp_OAMethod @table, ''''Script'''', @str output, 5
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @table
RETURN
END
print @str
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
[Sql Server]在VB.NET中应用SQLDMO [Sql Server]关 SQLDMO 组件在一些用法!
[Sql Server]在SQL Server 中使用SQLDMO
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
