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  字串