Джеффри Мак-Манус - Обработка баз данных на Visual Basic®.NET

Сначала нужно создать физическую базу данных, с помощью сценария, который представлен в листинге 3.1.

/****** 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.

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.

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]')

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

ALTER TABLE [dbo].[tblEmployee] DROP CONSTRAINT FK_tblEmployee_tblDepartment

GO

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

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

ALTER TABLE [dbo].[tblOrderltem] DROP CONSTRAINT FK_tblOrderItem_tblInventory

GO

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

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

ALTER TABLE [dbo].[tblOrderltem] DROP CONSTRAINT FK_tblOrderItem_tblOrder

GO

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

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

ALTER TABLE [dbo].[tblCustomer]

DROP CONSTRAINT FK_tblCustomer_tblRegion

GO

/****** object: Trigger dbo.trCustomerI Script Date: 10-Jul-02 12:41:09 PM ******/

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

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

drop trigger [dbo].[trCustomerI]

GO

/****** Object: Stored Procedure dbo.DeleteEmployee Script Date: 10-Jul-02 12:41:09 PM ******/

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

and OBJECTPPOPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[DeleteEmployee]

GO

/****** object: Stored Procedure Script Date: 10-Jul-02 12:41:09 PM ******/

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

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

drop procedure [dbo].[GetCustomerFromID]

GO

/****** Object: Stored Procedure dbo.insertEmployee Script Date: 10-Jul-02 12:41:09 PM ******/

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

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

drop procedure [dbo].[InsertEmployee]

GO

/****** Object: Stored Procedure dbo.InsertEmployeeOrg Script Date: 10-Jul-02 12:41:09 PM ******/