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

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› ASP.NET›ASP.NET编程经验

原作者: [db:作者] 来自: [db:来源] 收藏邀请

在已有数据库中创建表
<% 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  字符串