在已有數(shù)據(jù)庫中創(chuàng)建表 
<% 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表另外復(fù)制一個(gè)b表（只復(fù)制結(jié)構(gòu)，不含數(shù)據(jù)） 
　　<% 
　　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表另外復(fù)制一個(gè)b表（包括制結(jié)構(gòu)和數(shù)據(jù)） 
　　<% 
　　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、新建數(shù)據(jù)庫并新建表 
<%   
'首先建立一個(gè)數(shù)據(jù)庫文件   
set  conn=server.createobject("adox.catalog")   
conn.create  "provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("lifeda1.mdb")   
%>   
<%   
'向該數(shù)據(jù)庫中建立相應(yīng)表格   
set  rs=server.createobject("adox.table")   
'該表格名稱   
rs.name="aaaa"   
'該表格字段(字段類型見相關(guān)附錄)   
rs.columns.append  "id" ,3 
rs.columns.append  "liuyan",203     
rs.columns.append  "dt",7   
conn.tables.append  rs   
set  rs=nothing   
%>   
至此，表格建立完畢。希望能對(duì)您有幫助。   
字段類型附錄   
203  備注   
7  日期/時(shí)間   
128  二進(jìn)制   
11  布爾   
6  貨幣   
133  日期   
134  時(shí)間   
135  日期時(shí)間   
5  雙精度   
4  單精度  
3  數(shù)字  
204  二進(jìn)制   
202  字符串

最新評(píng)論