1
2************ 使用ADODB.Connect对象创建 ************************
3Dim oConn
4Dim sDatabaseName
5sDatabaseName = "CodeCreateDB"
6Set oConn = Server.CreateObject("ADODB.Connection")
7oConn.Open "Provider=SQLOLEDB;Data Source=(local);User ID=sa;Password=;"
8oConn.Execute "CREATE DATABASE " & sDatabaseName
方法二:
1@ Language=VBScript
1
2******************* 使用 SQLDMO Object 对象库 *******************
3Dim oSQLServer
4Dim oDatabase
5Dim oDBFileData
6Dim oLogFile
7Dim sDatabaseName
8Dim sDatapath
9
10数据库名字
11sDatabaseName = "CodeCreateDBTest"
12数据文件保存路径
13sDatapath = "D:\"
14
15创建Sql Server对象并进行链接,(local)处为Server名字
16Set oSQLServer = Server.CreateObject("SQLDMO.SQLServer")
17oSQLServer.LoginSecure = True 使用集成验证integrated security
18oSQLServer.Connect "(local)"
19oSQLServer.Connect "(local)", "sa", "" 使用标准验证 standard security
20
21创建Database对象
22Set oDatabase = Server.CreateObject("SQLDMO.Database")
23oDatabase.Name = sDatabaseName
24
25创建db文件对象
26Set oDBFileData = Server.CreateObject("SQLDMO.DBFile")
27With oDBFileData
28.Name = sDatabaseName & "_data"
29.PhysicalName = sDatapath & "\" & sDatabaseName & "_data.mdf"
30.PrimaryFile = True
31.FileGrowthType = SQLDMOGrowth_MB
32.FileGrowth = 1
33End With
34
35创建日志文件对象
36Set oLogFile = Server.CreateObject("SQLDMO.LogFile")
37With oLogFile
38.Name = sDatabaseName & "_log"
39.PhysicalName = sDatapath & "\" & sDatabaseName & "_log.ldf"
40End With
41
42把DB文件对象和日志文件对象添加到DataBase数据库对象
43oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFileData
44oDatabase.TransactionLog.LogFiles.Add oLogFile
45
46把数据库添加到Sql server(create the database)
47oSQLServer.Databases.Add oDatabase
48
49关闭连接
50oSQLServer.Close
51
52释放对象
53Set oLogFile = Nothing
54Set oDBFileData = Nothing
55Set oDatabase = Nothing
56Set oSQLServer = Nothing