Создание базы данных посредством кодаПосле соединения с сервером из клиентской части программного обеспечения можно посылать команды серверу на языке T-SQL. В частности, если у вас имеются права на создание баз данных, то вы можете прямо из VB-кода создавать базы данных, используя синтаксис команды CREATE DATABASE. Код листинга 22.5 можно выполнить из VB-приложения и из любого приложения, поддерживающего VBA. Функция ADODB_ConnectedSQL (строки 3–21) полностью совпадает с одноименной функцией из листинга 22.4. Процедура Test_ADODB_Connected (строки 3–21) выполняет очень простую задачу — установив соединение с SQL Server при помощи функции ADODB_ConnectedSQL, передает серверу две инструкции (на языке T-SQL): USE master CREATE DATABASE NEW_BASE Первая инструкция устанавливает текущей системную базу master. Вторая — создает базу данных с именем NEW_BASE и со всеми возможными умолчаниями. Листинг 22.5 Создание базы данных из VB-кода 1: Dim cn As ADODB.Connection 2: 3: Function ADODB_ConnectedSQL() As Boolean 4: ' устанавливает соединение для SQL Server 5: 6: 7: On Error GoTo err_not_connection 8: 9: Set cn = New ADODB.Connection 10: cn.Provider = "SQLOLEDB" 11: cn.ConnectionString = _ 12: "DATABASE=Фирма;SERVER=NATALI;UID=Dmitry;PWD=Dmitry" 13: cn.Open 14: 15: ADODB_ConnectedSQL = True 16: Exit Function 17: 18: err_not_connection: 19: ADODB_ConnectedSQL = False 20: 21: End Function 22: 23: Sub Test_ADODB_Connected() 24: ' тестирует ADODB_ConnectedSQL: устанавливает соединение и 25: ' создает новую базу данных (без таблиц) 26: 27: If ADODB_ConnectedSQL() Then 28: MsgBox "Похоже, соединение установлено..." 29: ' код, использующий установленное соединение: 30: 31: cn.Execute "USE master" 32: cn.Execute "CREATE DATABASE NEW_BASE" 33: cn.Close ' закрыть соединение 34: 35: Else 36: MsgBox "Что-то не получается подключиться к базе данных!" 37: End If 38: 39: End Sub Если у вас имеются на то права, можете из кода удалить «непонравившуюся» вам базу данных, используя инструкцию удаления базы данных:
|
