<%
************Criar usando o objeto ADODB.Connect************************
Dim oConn
DimsDatabaseName
sDatabaseName = "CodeCreateDB"
Definir oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB;Fonte de dados=(local);ID do usuário=sa;Senha=;"
oConn.Execute "CRIAR BANCO DE DADOS" & sDatabaseName
%>
Método 2:
<%@ Linguagem=VBScript %>
<%
******************* Usando a biblioteca de objetos SQLDMO Object************************
Dim oSQLServer
Dim oDatabase
Dim oDBFileData
Dim oLogFile
DimsDatabaseName
Nome do banco de dados
DimsDatapath
sDatabaseName = "CodeCreateDBTest"
Caminho para salvar o arquivo de dados
sDatapath = "D:"
cria um objeto Sql Server e o vincula, (local) é o nome do servidor
Definir oSQLServer = Server.CreateObject("SQLDMO.SQLServer")
oSQLServer.LoginSecure = True usa segurança integrada
oSQLServer.Connect "(local)"
oSQLServer.Connect "(local)", "sa", ""
Crie um objeto de banco de dados
usando autenticação padrão segurança padrão
Definir oDatabase = Server.CreateObject("SQLDMO.Database")
oDatabase.Name = sDatabaseName
cria objeto de arquivo db
Definir oDBFileData = Server.CreateObject("SQLDMO.DBFile")
Com oDBFileData
.Name = sDatabaseName & "_data"
.PhysicalName = sDatapath & "" & sDatabaseName & "_data.mdf"
.PrimaryFile = Verdadeiro
.FileGrowthType = SQLDMOGrowth_MB
.FileGrowth = 1
End With
cria objeto de arquivo de log
Definir oLogFile = Server.CreateObject("SQLDMO.LogFile")
Com oLogFile
.Name = sDatabaseName & "_log"
.PhysicalName = sDatapath & "" & sDatabaseName & "_log.ldf"
End With
adiciona o objeto de arquivo DB e o objeto de arquivo de log ao objeto de banco de dados DataBase
oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFileData
oDatabase.TransactionLog.LogFiles.Add oLogFile
adiciona o banco de dados ao servidor Sql (cria o banco de dados)
oSQLServer.Databases.Add
conexão
oDatabaseClose
oSQLServer.Close libera
o objeto
Definir oLogFile = Nada
Definir oDBFileData = Nada
Definir oDatabase = Nada
Definir oSQLServer = Nada
%>