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

兴宁A8网

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

复制代码