ASP中使用SQL语句动态创建Access基本表

有时为了需要，我们要在程序中动态的为数据库添加基本表，本文介绍了在ASP中使用SQL语句动态创建Access表的方法，其基本过程如下：

（1）首先指定要创建表的名字。为了避免重复可以使用一定的方法给表命名，如使用当前的日期与时间等。

（2）连接数据库；

（3）执行SQL语句创建基本表。

源代码如下：

<%
'指定基本表的名字
dim tableName
tableName = "biye5u_com"

dim db_path  '数据存储路径
db_path = "db/biye5u.mdb"

'建立连接
dim conn
dim connString
connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
Set conn= Server.CreateObject("ADODB.Connection")
'打开连接
conn.Open connstr
'定义记录集
dim rs
Set rs = Server.CreateObject ("ADODB.Recordset")
'定义创建基本表的SQL语句
dim sql
sql = "create table "& tableName &" (ID integer primary key,Sname text,Birthday datetime)"
'执行SQL语句
rs.Open sql,conn,2,3
'释放记录集，关闭连接
rs.Close:set rs = nothing
conn.Close : set conn = nothing
%>

只要将上面的代码进行适当修改后就可以达到你要的表。