<%
************Buat menggunakan objek ADODB.Connect************************
Redupkan oConn
DimsDatabaseName
sDatabaseName = "CodeCreateDB"
Setel oConn = Server.CreateObject("ADODB.Connection")
oConn.Buka "Penyedia=SQLOLEDB;Sumber Data=(lokal);ID Pengguna=sa;Kata Sandi=;"
oConn.Jalankan "BUAT DATABASE" & sDatabaseName
%>
Metode 2:
<%@ Bahasa=VBScript %>
<%
********************* Menggunakan perpustakaan objek Objek SQLDMO************************
Redupkan oSQLServer
Redupkan oDatabase
Redupkan oDBFileData
Redupkan oLogFile
DimsDatabaseName
Nama basis data
DimsDatapath
sDatabaseName = "Tes KodeBuatDB"
Jalur penyimpanan file data
sDatapath = "D:"
membuat objek Sql Server dan menghubungkannya, (lokal) adalah nama Server
Setel oSQLServer = Server.CreateObject("SQLDMO.SQLServer")
oSQLServer.LoginSecure = True menggunakan keamanan terintegrasi
oSQLServer.Connect "(lokal)"
oSQLServer.Connect "(lokal)", "sa", ""
Buat objek Database
menggunakan keamanan standar otentikasi standar
Setel oDatabase = Server.CreateObject("SQLDMO.Database")
oDatabase.Name = sDatabaseName
membuat objek file db
Setel oDBFileData = Server.CreateObject("SQLDMO.DBFile")
Dengan oDBFileData
.Nama = sDatabaseName & "_data"
.PhysicalName = sDatapath & "" & sDatabaseName & "_data.mdf"
.PrimaryFile = Benar
.FileGrowthType = SQLDMOGrowth_MB
.Pertumbuhan File = 1
Akhiri Dengan
membuat objek file log
Setel oLogFile = Server.CreateObject("SQLDMO.LogFile")
Dengan oLogFile
.Nama = sDatabaseName & "_log"
.PhysicalName = sDatapath & "" & sDatabaseName & "_log.ldf"
End With
menambahkan objek file DB dan objek file log ke objek database DataBase
oDatabase.FileGroups("PRIMARY").DBFiles.Tambahkan oDBFileData
oDatabase.TransactionLog.LogFiles.Add oLogFile
menambahkan database ke server Sql (membuat database)
oSQLServer.Databases.Tambahkan
koneksi
oDatabaseTutup
oSQLServer.Close melepaskan
objek
Setel oLogFile = Tidak Ada
Setel oDBFileData = Tidak Ada
Setel oDatabase = Tidak Ada
Setel oSQLServer = Tidak Ada
%>