<%
************Créer à l'aide de l'objet ADODB.Connect************************
Faible oConn
DimsDatabaseName
sDatabaseName = "CodeCreateDB"
Définir oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB;Data Source=(local);User ID=sa;Password=;"
oConn.Exécuter "CREATE DATABASE" & sDatabaseName
%>
Méthode 2 :
<%@ Language=VBScript %>
<%
********************* Utilisation de la bibliothèque d'objets SQLDMO Object************************
Faible oSQLServer
Dim oBase de données
Faible oDBFileData
Faible oLogFile
DimsDatabaseName
Nom de la base de données
DimsDatapath
sDatabaseName = "CodeCreateDBTest"
Chemin d'enregistrement du fichier de données
sDatapath = "D:"
crée un objet Sql Server et le lie, (local) est le nom du serveur
Définir oSQLServer = Server.CreateObject("SQLDMO.SQLServer")
oSQLServer.LoginSecure = True utilise la sécurité intégrée
oSQLServer.Connect "(local)"
oSQLServer.Connect "(local)", "sa", ""
Créer un objet de base de données
à l'aide de la sécurité standard d'authentification standard
Définir oDatabase = Server.CreateObject("SQLDMO.Database")
oDatabase.Name = sDatabaseName
crée un objet fichier de base de données
Définir oDBFileData = Server.CreateObject("SQLDMO.DBFile")
Avec oDBFileData
.Name = sDatabaseName & "_data"
.PhysicalName = sDatapath & "" & sDatabaseName & "_data.mdf"
.PrimaryFile = Vrai
.FileGrowthType = SQLDMOGrowth_MB
.FileCroissance = 1
Terminer par
crée un objet de fichier journal
Définir oLogFile = Server.CreateObject("SQLDMO.LogFile")
Avec oLogFile
.Name = sDatabaseName & "_log"
.PhysicalName = sDatapath & "" & sDatabaseName & "_log.ldf"
End With
ajoute l'objet fichier DB et l'objet fichier journal à l'objet base de données DataBase.
oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFileData
oDatabase.TransactionLog.LogFiles.Add oLogFile
ajoute la base de données au serveur SQL (créer la base de données)
oSQLServer.Databases.Ajouter oDatabaseFermer
la connexion
oSQLServer.Closelibère
l'objet
Définir oLogFile = Rien
Définir oDBFileData = Rien
Définir oDatabase = Rien
Définir oSQLServer = Rien
%>