ASP编程入门进阶（廿一）：DAO SQL之建立数据库表

　　你是否为自己设计的数据库感到满足了呢？你确信就不要对其再处理？比如新建立数据库表，比如建立或者修改某个字段……当然这些都属于设计数据库之列。

那么，你正常的操作又是不是下载数据库到本机，然后打开之进行修改，接着再上传上去？十有八九都是如此-_-!

现在，你可以接触下有关于此的信息了，毕竟代码的功能是为手动的操作省了不少时间。不过代码的生成也还不是手工？呵呵：）

1，建立数据库文件cnbruce.mdb（不设计任何表）

建立数据库的代码：


<%
Option Explicit
dim databasename 定义数据库名称
databasename=cnbruce.mdb 数据库名称
dim databasepath 定义数据库存放路径
databasepath=e:\cnbruce\database\ 数据库绝对路径
dim databasever 定义数据库版本 2000 或者 97
databasever = 2000

Function Createdfile(FilePath,FileName,Ver)

Dim cnbruce,dbver
select case ver
case 97
dbver = 3.51
case 2000
dbver = 4.0
end select

if dbver <> then
Set cnbruce = Server.CreateObject(ADOX.Catalog)
call cnbruce.Create(Provider=Microsoft.Jet.OLEDB. & dbver & ;Data Source= & filepath & filename)
end if

End Function

Call Createdfile(databasepath,databasename,databasever) 创建数据库
%>



那么，再看如何设计建立一个新的数据库表吧

2，建立数据库的连接文件conn.asp



<%
db_path = cnbruce.mdb
connstr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(db_path)
conn.Open connstr
%>



3，建立新数据库表的程序页面addtable.asp



<!--#include file=conn.asp -->

<%
Set rs = Server.CreateObject (ADODB.Recordset)
sql = create table aboutme (id integer primary key,name text,Birthday datetime)
rs.Open sql,conn,2,3
%>
数据库表文件建立完毕。



create table aboutme (id integer primary key,name text,Birthday datetime)
建立新的表aboutme，设计其字段有id（主关键字）、name（备注）、Birthday（时间日期）