当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP编程入门进阶(廿一):DAO SQL之建立数据库表

ASP
微软建议的ASP性能优化28条守则(6)
微软建议的ASP性能优化28条守则(7)
微软建议的ASP性能优化28条守则(8)
微软建议的ASP性能优化28条守则(9)
用ASP建立站内搜索
ASP开发中数据库文件调用(1)
ASP开发中数据库文件调用(2)
ASP开发中数据库文件调用(3)
基于ASP的编程常见问题
asp编写的加密和解密类
模似windows XP 左侧的菜单效果(1)
模似windows XP 左侧的菜单效果(2)
模似windows XP 左侧的菜单效果(3)
web应用程序中的数据库连接(1)
web应用程序中的数据库连接(2)
ASP.net中md5加密码的方法
不能使用asp标记的时候的一个解决办法
asp 用存储过程实现数据分页
ASP 五大高效提速技巧
ASP+Access的安全隐患及对策

ASP编程入门进阶(廿一):DAO SQL之建立数据库表


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 240 ::
收藏到网摘: n/a

你是否为自己设计的数据库感到满足了呢?你确信就不要对其再处理?比如新建立数据库表,比如建立或者修改某个字段……当然这些都属于设计数据库之列。
那么,你正常的操作又是不是下载数据库到本机,然后打开之进行修改,接着再上传上去?十有八九都是如此-_-!
现在,你可以接触下有关于此的信息了,毕竟代码的功能是为手动的操作省了不少时间。不过代码的生成也还不是手工?呵呵:)
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"
Set conn= Server.CreateObject("ADODB.Connection")
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(时间日期)