Leigh
Heres a stored proc I uses to clear out all databases
CREATE PROC EmptyTables @TableName VARCHAR(255) = null
AS
BEGIN
DECLARE
@DoTable VARCHAR(255),
@SQL VARCHAR(255)
DECLARE table_cursor CURSOR FOR
SELECT name
FROM sysobjects
WHERE xtype = 'U' and (name = @TableName or @TableName is null)
OPEN table_cursor
FETCH NEXT FROM table_cursor INTO @DoTable
WHILE @@FETCH_STATUS = 0
BEGIN
SET @SQL = 'DELETE FROM '+@DoTable
EXECUTE(@SQL)
FETCH NEXT FROM table_cursor INTO @DoTable
END
CLOSE table_cursor
DEALLOCATE table_cursor
END
change delete from to drop and you got your baby
note the query
SELECT name
FROM sysobjects
WHERE xtype = 'U'
which gives you a list of user tables
Regards Neven
N.K. MacEwan B.E. E&E
[EMAIL PROTECTED]
----- Original Message -----
From: Leigh Wanstead <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Monday, 19 June 2000 21:25
Subject: [DUG]: How to drop database using delphi in MS SQL Server 7?
> Happy day,
>
> I know how to use sql script to drop a database in MS SQL Server 7. But I
> want to develop an application to make that procedure more user friendly.
I
> mean if database does not exist, tell user nothing to do. If got other
user
> using database, SQL server maybe return error message tell me I can not
drop
> it, I want to transfer the message to user.
>
> I am using BDE 5.11.
> Delphi 5 Enterprise 5.01
> MS SQL Server 7
>
> I guess someone already did that. I am happy to not reinvent the wheel if
> someone would like to share their knowledge.
>
> Thanks in advance.
>
> I look forward to hearing from you.
>
> Best Regards
> Leigh Wanstead
> ________________________________________________________________________
> Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
