Обработка баз данных на Visual Basic®.NET

/****** Object: Database Novelty Script Date: 10-Jul-02 12:41:09 PM ******/

IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'Novelty')

 DROP DATABASE [Novelty]

GO

CREATE DATABASE [Novelty] ON (NAME = N'novelty_Data',

 FILENAME = N'c:\program files\microsoft sql server\mssql\data\Novelty_Data.mdf',

 SIZE = 3, FILEGROWTH = 10%) LOG ON (NAME = N'novelty_Log',

 FILENAME = N'c:\program files\microsoft sql server\mssql\data\Novelty_Log.LDF', SIZE = 3, FILEGROWTH = 10%)

 COLLATE Latin1_General_CI_AI

GO

Перед попыткой создания любого нового объекта сценарий всегда проверяет его существование, а затем удаляет его. Поэтому в данном сценарии после проверки и удаления существующей базы данных Novelty создается новая база данных.

Код в листинге 3.2 задает параметры базы данных, описание которых приводится в официальной справочной документации SQL Server Books Online.

Листинг 3.2. Сценарий указания параметров базы данных Novelty

exec sp_dboption N'Novelty', N'autoclose', N'false'

GO

exec sp_dboption N'Novelty', N'bulkcopy', N'false'

GO

exec sp_dboption N'Novelty', N'trunc.log', N'false'

GO

exec sp_dboption N'Novelty', N'torn page detection', N'true'

GO

exec sp_dboption N'Novelty', N'read only', N'false'

GO

exec sp_dboption N'Novelty', N'dbo use', N'false'

GO

exec sp_dboption N'Novelty', N'single', N'false'

GO

exec sp_dboption N'Novelty', N'autoshrink', N'false'

GO

exec sp_dboption N'Novelty', N'ANSI null default', N'false'

GO

exec sp_dboption N'Novelty', N'recursive triggers', N'false'

GO

exec sp_dboption N'Novelty', N'ANSI nulls', N'false'

GO

exec sp_dboption N'Novelty', N'concat null yields null', N'false'

GO

exec sp_dboption N'Novelty', N'cursor close on commit', N'false

GO

exec sp_dboption N'Novelty', N'default to local cursor', N'false'

GO

exec sp_dboption N'Novelty', N'quoted identifier', N'false'

GO

exec sp_dboption N'Novelty', N'ANSI warnings', N'false'

GO

exec sp_dboption N'Novelty', N'auto create statistics', N'true'

GO

exec sp_dboption N'Novelty', N'auto update statistics', N'true'

GO

Теперь после создания базы данных можно приступить к работе с ней, т.е. начать выполнять команды по отношению к ней. Для выполнения команд SQL с другой базой данных NoveltyTest (например, для ее тестирования на том же сервере) нужно просто указать другую базу данных с помощью команды USE.

USE [NoveltyTest]

GO

Далее в сценариях создания объектов базы данных также проверяется их наличие и удаление (если они имеются). Это относится к ограничениям, триггерам, хранимым процедурам, представлениям и таблицам. Этот порядок имеет большое значение, потому что таблицу нельзя удалить, если существует какой-то из связанных с ней объектов. Код выполнения этих операций приведен в листинге 3.3.

Листинг 3.3. Сценарий удаления существующих объектов в базе данных Novelty

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_tblOrder_tblCustomer]')

and OBJECTPROPERTY(id, N'IsForeignKey') = 1)

ALTER TABLE [dbo].[tblOrder] DROP CONSTRAINT FK_tblOrder_tblCustomer

GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FK_tblEmployee_tblDepartment]')