home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / SQLING.EXE / Disk1 / data1.cab / Program_Executable_Files / DropDatabase.sql < prev    next >
Encoding:
Text File  |  1999-05-24  |  955 b   |  29 lines
  1. -- usage : executing file will create procedure DropDatabase in SQLing database
  2. -- example application : exec DropDatabase '#pubs_psu'
  3. -- drops downsized database from outside of SQLing
  4. USE SQLing
  5. GO
  6. IF EXISTS (SELECT * FROM sysobjects WHERE name='DropDatabase')
  7. DROP PROCEDURE DropDatabase
  8. GO
  9. create procedure DropDatabase(@db sysname)
  10. as
  11.    declare @db1 sysname, @name sysname
  12.    select @db1=substring(@db, 2, 32)
  13.    declare cr cursor for select name from sysobjects where type='U' and name like 'sys%'
  14.    open cr
  15.    fetch next from cr into @name
  16.    while @@fetch_status=0 begin
  17.        if right(@name, datalength(@db1))=ltrim(rtrim(@db1))
  18.            exec ('DROP TABLE '+@name)
  19.       fetch next from cr into @name
  20.    end
  21.    close cr
  22.    deallocate cr
  23.    delete workdb where name=@db1
  24.    delete conspects where db=@db
  25.    delete notes where db=@db
  26.    delete keysadd where db=@db
  27.    delete rel where db=@db
  28.    delete rel_view where db=@db
  29.