Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование для администраторов
 
 

Получить учебные материалы по этому курсу


<-- Назад Читать дальше -->

Лабораторная работа 5.1 Использование внешних объектных моделей в коде Transact - SQL (хранимые процедуры OLE Automation)

Хранимые процедуры OLE Automation в коде Transact-SQL: самостоятельная работа

В каталоге Labs на вашем компакт-диске находится скрипт netdisk.vbs, в котором при помощи программного объекта Wscript.Network производится подключение и удаление сетевого диска S: для каталога \\London\Labs.

Задание:

Используя исходный скрипт netdisk.vbs, напишите свой скрипт TSQL, который бы:

  • назначал сетевой диск S: на вашем компьютере каталогу \\London\Labs;
  • проводил на этот сетевой диск полное резервное копирование базы данных Northwind;
  • удалял сетевой диск S: с вашего компьютера.

Код скрипта netdisk.vbs выглядит так:

Dim oNetwork
Set oNetwork = CreateObject("WScript.Network")
oNetwork.MapNetworkDrive "S:", "\\London1\Labs"
oNetwork.RemoveNetworkDrive "S:", True

Примечание:

иногда после некорректного выполнения скрипта с использованием объекта Wscript.Network на компьютере может появиться сетевой диск, который обычными способами удалить не получается. В этом случае перезагрузите компьютер.

Ответ к лабораторной работе 5.1.

Итоговый код скрипта Transact-SQL может выглядеть так:

DECLARE @object int
DECLARE @hr int
DECLARE @property varchar(255)
DECLARE @return varchar(255)
DECLARE @src varchar(255), @desc varchar(255)

EXEC @hr = sp_OACreate 'Wscript.Network', @object OUT
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END

EXEC @hr = sp_OAMethod @object, 'MapNetworkDrive', NULL, 'S:', '\\London\Labs'
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END

USE MASTER
BACKUP DATABASE [Northwind] TO DISK = N'S:\nwback1.bak' WITH NOINIT , NOUNLOAD , NAME = N'Northwind backup', NOSKIP , STATS = 10, NOFORMAT

EXEC @hr = sp_OAMethod @object, 'RemoveNetworkDrive', NULL, 'S:', True
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

Получить учебные материалы по этому курсу


 

 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru