<%
************Создать с использованием объекта ADODB.Connect************************
Дим оКонн
Имя базы данных DimsDatabaseName
sDatabaseName = "CodeCreateDB"
Установите oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB;Источник данных=(локальный);ID пользователя=sa;Пароль=;"
oConn.Execute «CREATE DATABASE» и sDatabaseName
%>
Способ 2:
<%@ Language=VBScript %>
<%
******************** Использование библиотеки объектов SQLDMO************************
Тусклый oSQLServer
Тусклая база данных
Тусклый oDBFileData
Тусклый файл журнала
Имя базы данных DimsDatabaseName
Имя базы данных
DimsDatapath
sDatabaseName = "CodeCreateDBTest"
Путь сохранения файла данных
sDatapath = "D:"
создает объект Sql Server и связывает его, (локальный) — имя сервера.
Установите oSQLServer = Server.CreateObject("SQLDMO.SQLServer")
oSQLServer.LoginSecure = True использует встроенную безопасность.
oSQLServer.Connect "(локальный)"
oSQLServer.Connect "(local)", "sa", ""
Создание объекта базы данных
с использованием стандартной аутентификации и стандартной безопасности.
Установите oDatabase = Server.CreateObject("SQLDMO.Database")
oDatabase.Name = sDatabaseName
создает объект файла базы данных.
Установите oDBFileData = Server.CreateObject("SQLDMO.DBFile")
С помощью oDBFileData
.Name = sDatabaseName & «_data»
.PhysicalName = sDatapath & "" & sDatabaseName & "_data.mdf"
.PrimaryFile = Истина
.FileGrowthType = SQLDMOGrowth_MB
.FileGrowth = 1
End With
создает объект файла журнала.
Установите oLogFile = Server.CreateObject("SQLDMO.LogFile")
С oLogFile
.Name = имя_базы_данных и «_log»
.PhysicalName = sDatapath & "" & sDatabaseName & "_log.ldf"
End With
добавляет объект файла БД и объект файла журнала к объекту базы данных DataBase.
oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFileData
oDatabase.TransactionLog.LogFiles.Add oLogFile
добавляет базу данных на сервер Sql (создает базу данных).
oSQLServer.Databases.Добавить
соединение
oDatabaseClose
oSQLServer.Closeосвобождает
объект
Установить oLogFile = Ничего
Установить oDBFileData = Ничего
Установить oDatabase = Ничего
Установить oSQLServer = Ничего
%>