【IT168技術(shù)文檔】
盡管我們可以通過設(shè)計器來創(chuàng)建數(shù)據(jù)庫, 但是我們也可以在asp的代碼中創(chuàng)建數(shù)據(jù)庫,這里我們就一起來看一下如何在asp中創(chuàng)建數(shù)據(jù)庫.
在ASP中創(chuàng)建數(shù)據(jù)庫,我們需要用到ADOX(Microsoft ADO Extensions for DDL and Security), 這個ADO的擴展可以幫助我們創(chuàng)建和修改數(shù)據(jù)庫結(jié)構(gòu)信息, 也包括數(shù)據(jù)庫對象的安全策略. 它隨著ADO 2.1 出現(xiàn), 所以它能夠在大多數(shù)的Windows平臺上工作. 您可以到MS的官方網(wǎng)站去獲取最新的ADO版本,當(dāng)然,里邊包括了ADOX.
創(chuàng)建數(shù)據(jù)庫
在我們開始代碼編寫之前,確定IIS所對應(yīng)的賬號IUSER_[MachineName]（MachineName：一般是你的計算機名） 擁有對您要創(chuàng)建數(shù)據(jù)庫的目錄有寫入權(quán)限,。你也可以打開要保存數(shù)據(jù)庫文件的目錄的屬性對話框,，找到安全選項,，添加上述用戶的寫入權(quán)限,。
為了順利創(chuàng)建數(shù)據(jù)庫,，我們首先需要創(chuàng)建一個空的數(shù)據(jù)庫對象,，然后我們才能創(chuàng)建一個新表和定義表的各列,。這里有個重要的一點兒就是說,，我們創(chuàng)建表的時候,，必須在創(chuàng)建完數(shù)據(jù)庫后關(guān)閉數(shù)據(jù)連接。否則我們將沒有辦法創(chuàng)建數(shù)據(jù)庫和定義數(shù)據(jù)列,。這就是為什么,，我會在接下來創(chuàng)建兩個方法：CreateAccessDB(創(chuàng)建數(shù)據(jù)庫), CreateAccessTB(創(chuàng)建數(shù)據(jù)表)，變量DBName用來定義要添加數(shù)據(jù)庫的名字,，phyPath用來定義存放數(shù)據(jù)庫文件的路徑,。下邊我們來看代碼：
1<!--#include virtual="/Includes/adovbs.inc"-->
2<%
3 Dim DBName,phyPath
4 DBName= "DB.mdb"
5 phyPath=Server.Mapath(DBName)
6 DTName="Contacts"
這段代碼包含了一個adovbs.inc文件，這是個非常有用的文件,，它定義了ADO和ADOX中用到的所有數(shù)值型變量,，你可以在代碼中找到該文件，也可以去你自己電腦上：C:\Program Files\Common Files\System\ado下找到,。如果需要在你的頁面中間引用,，需要復(fù)制到網(wǎng)站自己的目錄下邊。
下邊是創(chuàng)建數(shù)據(jù)庫的代碼：
1Sub CreateAccessDB(DBToCreate)
2 Dim catNewDB ' As ADOX.Catalog
3 Set catNewDB = Server.CreateObject("ADOX.Catalog")
4 catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
5 "Data Source=" & Server.Mapath(DBToCreate) & _
6 ";Jet OLEDB:Engine Type=5;"
7 ' Engine Type=5 = Access 2000 Database
8 ' Engine Type=4 = Access 97 Database
9 Set catNewDB = Nothing
10 End Sub
數(shù)據(jù)庫創(chuàng)建完了,，接下來該表了,，否則我們要一個沒有表的數(shù)據(jù)庫是毫無意義的。下邊是創(chuàng)建表的代碼：
1 Sub CreateAccessTB(DBToCreate)
2 Dim catDB ' As ADOX.Catalog
3 Set catDB = Server.CreateObject("ADOX.Catalog")
4 ' Open the catalog
5 catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
6 "Data Source=" & Server.Mapath(DBToCreate)
7 Dim tblNew ' As ADOX.Table
8 Set tblNew = Server.CreateObject("ADOX.Table")
9 tblNew.Name = TBName
10 ' First Create an Autonumber column, called ID.
11 ' This is just for demonstration purposes.
12 ' You could have done this below with all the other columns as well
13 Dim col ' As ADOX.Column
14 Set col = Server.CreateObject("ADOX.Column")
15 With col
16 ParentCatalog = catDB
17 .Type = adInteger
18 .Name = "ID"
19 .Properties("Autoincrement") = True
20 End With
21 ' Now add the rest of the columns
22 With tblNew
23 ' Create fields and append them to the
24 ' Columns collection of the new Table object.
25 With .Columns
26 .Append "NumberColumn", adInteger
27 .Append "FirstName", adVarWChar
28 .Append "LastName", adVarWChar
29 .Append "Phone", adVarWChar
30 .Append "Notes", adLongVarWChar
31 End With
32
33 Dim adColNullable ' Is not defined in adovbs.inc,
34 ' so you need to define it here.
35 ' The other option is adColFixed with a value of 1
36 adColNullable = 2
37 With .Columns("FirstName")
38 .Attributes = adColNullable
39 End With
40 End With
41 ' Add the new Table to the Tables collection of the database.
42 catDB.Tables.Append tblNew
43 Set col = Nothing
44 Set tblNew = Nothing
45 Set catDB = Nothing
46 End Sub
然后,，可以在需要的地方調(diào)用：
1' First call the Create Database method
2 CreateAccessDB DBName
3
4 ' Then add a table and columns to this database
5 CreateAccessTB DBName
|
