dcsimg
Database Journal
MS SQL Oracle DB2 Access MySQL PostgreSQL Sybase PHP SQL Etc SQL Scripts & Samples Tips Database Forum

» Database Journal Home
» Database Articles
» Database Tutorials
MS SQL
Oracle
DB2
MS Access
MySQL
» RESOURCES
SQL Scripts & Samples
Tips
» Database Forum
» Slideshows
» Sitemap
Free Newsletters:
DatabaseDaily  

By submitting your information, you agree that databasejournal.com may send you databasejournal offers via email, phone and text message, as well as email offers about other products and services that databasejournal believes may be of interest to you. databasejournal will process your information in accordance with the Quinstreet Privacy Policy.

News Via RSS Feed


Database Journal |DBA Support |SQLCourse |SQLCourse2
 

Featured Database Articles

MS SQL

Posted Aug 24, 1999

Automated Database Schema Scripting (DMO) - Page 10

By Bill Wunder


CREATE procedure dmoScriptDatabaseCollection
  @dmoServer int,
  @serverName varchar(255),
  @databaseName varchar(255),
  @collectionName varchar(255),
  @path varchar(255),
  @style int = 0,
  @debug bit = 0
as
/*
  Use this procedure to generate scripts useable to recreate the objects within 
  a database object or the JobServer object 
  STYLE - 0 means to pu all objects in one file, 1 means to put each object in its 
  own file
*/
declare @dmoMethod varchar(255) 
declare @dmoProperty varchar(255) 
declare @file varchar(255)
declare @hr int
declare @boolSystemObject tinyint
declare @objectCount int
declare @curObjectNb int
declare @objectName varchar(256) 
declare @osCmd varchar(255)
declare @msg varchar(255)

set nocount on

If @collectionName not in ("DatabaseRoles","Defaults","FileGroups","FullTextCatalogues","Rules",
          "StoredProcedures","SystemDatatypes","Tables","TransactionLog","UserDefinedDatatypes","Users","Views")
  begin
    select @msg = "The " + @collectionName + " collection is not available from the 
 database object. (admin..dmoScriptDatabaseCollection)"
    raiserror (@msg, 16, 1)
    return
  end

/* clean up existing files */
if @style = 0 
  begin
    select @file = @path + @serverName + "_Database_" + @databaseName + "_" + @collectionName + ".sql"
    select @osCmd = "del " + @file
    exec master..xp_cmdshell @osCmd, no_output
  end

/* get the number of elements in the collection */
select @dmoProperty = 'Databases("' + @databaseName + '").' + @collectionName + '.Count'
exec @hr = master..sp_OAGetProperty @dmoServer,@dmoProperty,@objectCount OUT
if @hr <> 0 
  begin
    exec sp_displayoaerrorinfo @dmoServer, @hr
    return
  end
select @curObjectNb = 1
while @curObjectNb <= @objectCount 
  begin
    if @collectionName in ("Tables", "StoredProcedures","Views","Triggers","Users")
      begin
        /* only script user objects */
        select @boolSystemObject = 0    
        select @dmoProperty = 'Databases("' + @databaseName + '").' + @collectionName
 + '.Item(' + convert(varchar(5),@curObjectNb) + ').SystemObject'
        exec @hr = master..sp_OAGetProperty @dmoServer,@dmoProperty,@boolSystemObject OUT
        if @hr <> 0 
          begin
            exec sp_displayoaerrorinfo @dmoServer, @hr
            return
          end
      end

    if @boolSystemObject = 0
      begin
        /* get the object name */
        select @dmoProperty = 'Databases("' + @databaseName + '").' + @collectionName 
+ '.Item(' + convert(varchar(5),@curObjectNb) + ').Name'
        exec @hr = master..sp_OAGetProperty @dmoServer,@dmoProperty,@objectName OUT
        if @hr <> 0 
          begin
            exec sp_displayoaerrorinfo @dmoServer, @hr
            return
          end  
        select @dmoMethod = 'Databases("' + @databaseName + '").' + @collectionName + '("' + @objectName + '").Script'
        if @style = 0 
          begin  
            /* put all object scripts in a single file */
            exec @hr = master..sp_OAMethod @dmoServer,@dmoMethod,NULL,295,@file
          end
        else
          begin 
            /* put each object script in its own file */
            select @file = @path + @serverName + "_Database_" + @databaseName + "_" + 
substring(@collectionName,1,DATALENGTH(@collectionName)-1)  + "_" + @objectName + ".sql"
            exec @hr = master..sp_OAMethod @dmoServer,@dmoMethod,NULL,39,@file
          end
        if @hr <> 0 
          begin
            exec sp_displayoaerrorinfo @dmoServer, @hr
            return
          end
      end
    select @curObjectNb = @curObjectNb + 1
  end




MS SQL Archives

Comment and Contribute

 


(Maximum characters: 1200). You have characters left.

 

 




Latest Forum Threads
MS SQL Forum
Topic By Replies Updated
SQL 2005: SSIS: Error using SQL Server credentials poverty 3 August 17th, 07:43 AM
Need help changing table contents nkawtg 1 August 17th, 03:02 AM
SQL Server Memory confifuration bhosalenarayan 2 August 14th, 05:33 AM
SQL Server Primary Key and a Unique Key katty.jonh 2 July 25th, 10:36 AM











×
We have made updates to our Privacy Policy to reflect the implementation of the General Data Protection Regulation.