怎么在用asp代码来创建Access数据库

2015-08-12 16:00:46来源:作者:人点击

   尽管我们可以通过设计器来创建数据库, 但是我们也可以在asp的代码中创建数据库,这里我们就一起来看一下如何在asp中创建数据库.

  在ASP中创建数据库,我们需要用到ADOX(Microsoft ADO Extensions for DDL and Security), 这个ADO的扩展可以帮助我们创建和修改数据库结构信息, 也包括数据库对象的安全策略. 它随着ADO 2.1 出现, 所以它能够在大多数的Windows平台上工作. 您可以到MS的官方网站去获取最新的ADO版本,当然,里边包括了ADOX.

  创建数据库

  在我们开始代码编写之前,确定IIS所对应的帐号IUSER_[MachineName](MachineName:一般是你的计算机名) 拥有对您要创建数据库的目录有写入权限。你也可以打开要保存数据库文件的目录的属性对话框,找到安全选项,添加上述用户的写入权限。

  为了顺利创建数据库,我们首先需要创建一个空的数据库对象,然后我们才能创建一个新表和定义表的各列。这里有个重要的一点儿就是说,我们创建表的时候,必须在创建完数据库后关闭数据连接。否则我们将没有办法创建数据库和定义数据列。这就是为什么,我会在接下来创建两个方法:CreateAccessDB(创建数据库), CreateAccessTB(创建数据表),变量DBName用来定义要添加数据库的名字,phyPath用来定义存放数据库文件的路径。下边我们来看代码:

1.jpg

  这段代码包含了一个adovbs.inc文件,这是个非常有用的文件,它定义了ADO和ADOX中用到的所有数值型变量,你可以在代码中找到该文件,也可以去你自己电脑上:C:Program FilesCommon FilesSystemado下找到。如果需要在你的页面中间引用,需要复制到网站自己的目录下边。

  下边是创建数据库的代码:

怎么在用asp代码来创建Access数据库  第七城市

  数据库创建完了,接下来该表了,否则我们要一个没有表的数据库是毫无意义的。下边是创建表的代码:

  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

  然后,可以在需要的地方调用:

  1' First call the Create Database method

  2 CreateAccessDB DBName

  3

  4 ' Then add a table and columns to this database

  5 CreateAccessTB DBName

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台