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

7. В группе параметров Security Scripting Options (Параметры сценария безопасности) установите флажок Script (Включить в сценарий базу данных). Кроме него, можно также установить флажки других параметров для пользователей базы данных, ролей и учетных записей, но здесь мы этого делать не будем, считая это отдельной задачей администрирования базы данных.

8. В группе параметров Table Scripting Options (Параметры сценария таблицы) установите флажки Script indexes (Включить в сценарий индексы), Script triggers (Включить в сценарий триггеры) и Script PRIMARY keys, FOREIGN keys, defaults, and check constraints (Включить в сценарий первичные ключи, внешние ключи, принимаемые по умолчанию значения и ограничения целостности), как показано на рис. 3.30.

РИС. 3.30. Вкладка Options диалогового окна Generate SQL Scripts

9. Щелкните на кнопке OK для запуска процесса генерации сценария. При этом на экране появится стандартное диалоговое окно Save As (Сохранить как), в котором следует ввести имя файла (с расширением .sql) и указать путь к нему. Сделайте это и щелкните на кнопке Save. После успешного создания сценария на экране появится диалоговое окно с сообщением об этом. Щелкните на кнопке OK для его удаления.

НА ЗАМЕТКУ

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

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

SET QUOTED_IDENTIFIER OFF

GO

SET ANSI_NULLS ON

GO

или

SET QUOTED IDENTIFIER ON

GO

SET ANSI_NULLS ON

GO

Они гарантируют корректную (временную) конфигурацию базы данных для выполнения нужной операции и переустановку параметров для выполнения следующих операций.

Далее созданный сценарий предлагается в виде отдельных фрагментов, но на практике его рекомендуется создавать и применять в виде целого файла. В таком случае после создания рабочего сценария можно вставить его текст в окно Query программы SQL Query Analyzer (либо загружая его из тестового файла, либо копируя и вставляя с помощью буфера обмена) и щелкнуть на кнопке Execute для запуска. Можно также использовать отдельные фрагменты сценария или создать на основе единого сценария несколько отдельных сценариев и выполнять каждый из них. При создании сценариев SQL с помощью программы SQL Query Analyzer отдельные команды SQL можно редактировать в диалоговом окне Query, тестировать и проверять результаты их выполнения, а затем сохранять их в файле после завершения этих операций.

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

Листинг 3.1. Сценарий создания физической базы данных Novelty

/****** 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 filesmicrosoft sql servermssqldataNovelty_Data.mdf',

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

 FILENAME = N'c:program filesmicrosoft sql servermssqldataNovelty_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]')

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

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

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

drop procedure [dbo].[InsertEmployeeOrg]

GO

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

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

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

drop procedure [dbo].[LastNameLookup]

GO

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

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

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

drop procedure [dbo].[SelectEmployees]

GO

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

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

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

drop procedure [dbo].[UpdateEmployee]

GO

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

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

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

drop procedure [dbo].[procEmployeesSorted]

GO

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

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