ASP源码
PHP源码
.NET源码
JSP源码
<%
************ 使用AD***.Connect对象创建 ************************
Dim oConn
Dim sDatabaseName
sDatabaseName = "CodeCreateDB"
Set oConn = Se***r.CreateObject("AD***.Connection")
oC***.Open "Provider=SQLOLEDB;Data Source=(local);User ID=sa;Password=;"
oC***.Execute "CREATE DATABASE " & sDatabaseName
%>
方法二:
<%@ Language=VBScript %>
<%
******************* 使用 SQLDMO Object 对象库 *******************
Dim oSQLServer
Dim oDatabase
Dim oDBFileData
Dim oLogFile
Dim sDatabaseName
Dim sDatapath
数据库名字
sDatabaseName = "CodeCreateDBTest"
数据文件保存路径
sDatapath = "D:"
创建Sql Server对象并进行链接,(local)处为Server名字
Set oSQLServer = Se***r.CreateObject("SQ***O.SQLServer")
oS***erver.LoginSecure = True 使用集成验证integrated security
oS***erver.Connect "(local)"
oS***erver.Connect "(local)", "sa", "" 使用标准验证 standard security
创建Database对象
Set oDatabase = Se***r.CreateObject("SQ***O.Database")
oD***base.Name = sDatabaseName
创建db文件对象
Set oDBFileData = Se***r.CreateObject("SQ***O.DBFile")
With oDBFileData
.Name = sDatabaseName & "_data"
.PhysicalName = sDatapath & "" & sDatabaseName & "_d***.mdf"
.PrimaryFile = True
.FileGrowthType = SQLDMOGrowth_MB
.FileGrowth = 1
End With
创建日志文件对象
Set oLogFile = Se***r.CreateObject("SQ***O.LogFile")
With oLogFile
.Name = sDatabaseName & "_log"
.PhysicalName = sDatapath & "" & sDatabaseName & "_log.ldf"
End With
把DB文件对象和日志文件对象添加到DataBase数据库对象
oD***base.FileGroups("PRIMARY").D***les.Add oDBFileData
oD***base.TransactionLog.LogFiles.Add oLogFile
把数据库添加到Sql server(create the database)
oS***erver.Databases.Add oDatabase
关闭连接
oS***erver.Close
释放对象
Set oLogFile = Nothing
Set oDBFileData = Nothing
Set oDatabase = Nothing
Set oSQLServer = Nothing
%>