本文來源于網頁設計愛好者web開發社區http://www.html.org.cn收集整理，歡迎訪問。
/*
在查詢分析器中調用sqldmo生成腳本--存儲過程
鄒建 2003.07-----------------*/
/*--調用實例
declare @str varchar(8000)
exec sp_getscript 'zj','','','xzkh_sa','地區資料',@str output
print @str
*/
if exists(select 1 from sysobjects where id=object_id('sp_getscript') and objectproperty(id,'isprocedure')=1)
drop procedure sp_getscript
go
create procedure sp_getscript
@servername varchar(50) --服務器名
,@userid varchar(50) --用戶名,如果為nt驗證方式,則為空
,@password varchar(50) --密碼
,@databasename varchar(50) --數據庫名稱
,@objectname varchar(250) --對象名
,@re varchar(8000) output --返回腳本
as
declare @srvid int,@dbsid int --定義服務器、數據庫集id
declare @dbid int,@tbid int --數據庫、表id
declare @err int,@src varchar(255), @desc varchar(255) --錯誤處理變量
--創建sqldmo對象
exec @err=sp_oacreate 'sqldmo.sqlserver',@srvid output
if @err<>0 goto lberr
--連接服務器
if isnull(@userid,'')='' --如果是 nt驗證方式
begin
exec @err=sp_oasetproperty @srvid,'loginsecure',-1
if @err<>0 goto lberr
exec @err=sp_oamethod @srvid,'connect',null,@servername
end
else
exec @err=sp_oamethod @srvid,'connect',null,@servername,@userid,@password
if @err<>0 goto lberr
--獲取數據庫集
exec @err=sp_oagetproperty @srvid,'databases',@dbsid output
if @err<>0 goto lberr
--獲取要取得腳本的數據庫id
exec @err=sp_oamethod @dbsid,'item',@dbid output,@databasename
if @err<>0 goto lberr
--獲取要取得腳本的對象id
exec @err=sp_oamethod @dbid,'getobjectbyname',@tbid output,@objectname
if @err<>0 goto lberr
--取得腳本
exec @err=sp_oamethod @tbid,'script',@re output
if @err<>0 goto lberr
--print @re
return
lberr:
exec sp_oageterrorinfo null, @src out, @desc out
declare @errb varbinary(4)
set @errb=cast(@err as varbinary(4))
exec master..xp_varbintohexstr @errb,@re out
select 錯誤號[email protected], 錯誤源[email protected], 錯誤描述[email protected]
return
go
