ASP创建SQL Server数据库的两种方法

assassin

<%
************ 使用ADODB.Connect对象创建 ************************
Dim oConn
Dim sDatabaseName
sDatabaseName = "CodeCreateDB"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "rovider=SQLOLEDB;Data Source=(local);User ID=saassword=;"
oConn.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 = 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 = 1
End With

创建日志文件对象
Set oLogFile =  Server.CreateObject("SQLDMO.LogFile")
With oLogFile
    .Name = sDatabaseName & "_log"
    .PhysicalName = sDatapath & "\" & sDatabaseName & "_log.ldf"
End With

把DB文件对象和日志文件对象添加到DataBase数据库对象
oDatabase.FileGroups("RIMARY").DBFiles.Add oDBFileData
oDatabase.TransactionLog.LogFiles.Add oLogFile

把数据库添加到Sql server(create the database)
oSQLServer.Databases.Add oDatabase

关闭连接
oSQLServer.Close

释放对象
Set oLogFile = Nothing
Set oDBFileData = Nothing
Set oDatabase = Nothing
Set oSQLServer = Nothing
%>

worldstarhr

8错,谢谢楼主,又长知识了

assassin

呵呵。你小子对我得肯定就是对我最大的鼓励。。。朕定当加倍努力

admin

那我也支持，呵呵

empliyhome2

赞了









__________________
Designer Jewelry defuse a crisis over the country\'\'s nuclear program