注册
登录
转自：linfengxia's blog <% ************ 使用ADODB.Connect对象创建 ************************Dim oConnDim sDatabaseNamesDatabaseName = "CodeCreateDB"Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open "Provider=SQLOLEDB;Data Source=(local);User ID=sa;Password=;"oConn.Execute "CREATE DATABASE " & sDatabaseName%> 方法二： <%@ Language=VBScript %><% ******************* 使用 SQLDMO Object 对象库 *******************Dim oSQLServerDim oDatabaseDim oDBFileDataDim oLogFileDim sDatabaseNameDim sDatapath 数据库名字sDatabaseName = "CodeCreateDBTest"数据文件保存路径sDatapath = "D:\" 创建Sql Server对象并进行链接,(local)处为Server名字Set oSQLServer = Server.CreateObject("SQLDMO.SQLServer") oSQLServer.LoginSecure = True 使用集成验证integrated security oSQLServer.Connect "(local)"oSQLServer.Connect "(local)", "sa", "" 使用标准验证 standard security 创建Database对象Set oDatabase = Server.CreateObject("SQLDMO.Database")oDatabase.Name = sDatabaseName 创建db文件对象Set oDBFileData = Server.CreateObject("SQLDMO.DBFile")With oDBFileData .Name = sDatabaseName & "_data" .PhysicalName = sDatapath & "\" & sDatabaseName & "_data.mdf" .PrimaryFile = True .FileGrowthType = SQLDMOGrowth_MB .FileGrowth = 1End With 创建日志文件对象Set oLogFile = Server.CreateObject("SQLDMO.LogFile")With oLogFile .Name = sDatabaseName & "_log" .PhysicalName = sDatapath & "\" & sDatabaseName & "_log.ldf"End With 把DB文件对象和日志文件对象添加到DataBase数据库对象oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFileDataoDatabase.TransactionLog.LogFiles.Add oLogFile 把数据库添加到Sql server(create the database)oSQLServer.Databases.Add oDatabase 关闭连接oSQLServer.Close 释放对象Set oLogFile = NothingSet oDBFileData = NothingSet oDatabase = NothingSet oSQLServer = Nothing%> |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
