asp创建表，复制表 字段类型附录

　　在已有数据库中创建表

　　<% set conn=server.CreateObject("adodb.connection")

　　sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("BOOK.mdb")

　　conn.open sql

　　Conn.Execute("create table bbb(id AUTOINCREMENT(1,1),p_id text(100),ee money,ff datetime default date(),gg guid,hh single default 50,ii double,jj smallint,kk long,ll image,mm memo,oo yesno not null,pp TINYINT,qq numeric(18,4),aa binary,bb bit,cc smallint,)")

　　%>

　　'将a表另外复制一个b表（只复制结构，不含数据）

　　<%

　　Set rs= Server.CreateObject("ADODB.Recordset")

　　sql="select * into b from a where 1=0"

　　rs.open sql,conn,1,1

　　rs.update

　　rs.close

　　set rs=nothing

　　%>

　　◆'将a表另外复制一个b表（包括制结构和数据）

　　<%

　　Set rs= Server.CreateObject("ADODB.Recordset")

　　sql="select * into b from a

　　rs.open sql,conn,1,1

　　rs.update

　　rs.close

　　set rs=nothing

　　%>

　　12、新建数据库并新建表

　　<%

　　'首先建立一个数据库文件

　　set  conn=server.createobject("adox.catalog")

　　conn.create  "provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("lifeda1.mdb")

　　%>

　　<%

　　'向该数据库中建立相应表格

　　set  rs=server.createobject("adox.table")

　　'该表格名称

　　rs.name="aaaa"

　　'该表格字段(字段类型见相关附录)

　　rs.columns.append  "id" ,3

　　rs.columns.append  "liuyan",203

　　rs.columns.append  "dt",7

　　conn.tables.append  rs

　　set  rs=nothing

　　%>

　　至此，表格建立完毕。希望能对您有帮助。

　　字段类型附录

　　203  备注

　　7  日期/时间

　　128  二进制

　　11  布尔

　　6  货币

　　133  日期

　　134  时间

　　135  日期时间

　　5  双精度

　　4  单精度

　　3  数字

　　204  二进制

　　202  字符串