Обработка баз данных на Visual Basic®.NET, Прайс Кевин Т.

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

на обложку

Прайс Кевин Т.

Шрифт:

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

Далее созданный сценарий предлагается в виде отдельных фрагментов, но на практике его рекомендуется создавать и применять в виде целого файла. В таком случае после создания рабочего сценария можно вставить его текст в окно 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]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

USE [NoveltyTest]

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

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

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

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

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