ASP編程入門(mén)進(jìn)階（廿一）：DAO SQL之建立數(shù)據(jù)庫(kù)表

熱門(mén)標(biāo)簽：云南便宜外呼系統(tǒng)平臺(tái) 沈陽(yáng)三五防封電銷(xiāo)卡 長(zhǎng)春公司外呼系統(tǒng)中心 虛擬電話外呼系統(tǒng) 鄢陵學(xué)校如何做地圖標(biāo)注 廣東語(yǔ)音外呼系統(tǒng)公司 成都ai外呼系統(tǒng)線路 沈陽(yáng)電話機(jī)器人公司 鄭州智能外呼電銷(xiāo)機(jī)器人廠家

你是否為自己設(shè)計(jì)的數(shù)據(jù)庫(kù)感到滿(mǎn)足了呢？你確信就不要對(duì)其再處理？比如新建立數(shù)據(jù)庫(kù)表，比如建立或者修改某個(gè)字段……當(dāng)然這些都屬于設(shè)計(jì)數(shù)據(jù)庫(kù)之列。

那么，你正常的操作又是不是下載數(shù)據(jù)庫(kù)到本機(jī)，然后打開(kāi)之進(jìn)行修改，接著再上傳上去？十有八九都是如此-_-!

現(xiàn)在，你可以接觸下有關(guān)于此的信息了，畢竟代碼的功能是為手動(dòng)的操作省了不少時(shí)間。不過(guò)代碼的生成也還不是手工？呵呵：）

1，建立數(shù)據(jù)庫(kù)文件cnbruce.mdb（不設(shè)計(jì)任何表）

建立數(shù)據(jù)庫(kù)的代碼：

% Option Explicit dim databasename '定義數(shù)據(jù)庫(kù)名稱(chēng) databasename="cnbruce.mdb" '數(shù)據(jù)庫(kù)名稱(chēng) dim databasepath '定義數(shù)據(jù)庫(kù)存放路徑 databasepath="e:\cnbruce\database\" '數(shù)據(jù)庫(kù)絕對(duì)路徑 dim databasever '定義數(shù)據(jù)庫(kù)版本 2000 或者 97 databasever = "2000" Function Createdfile(FilePath,FileName,Ver) Dim cnbruce,dbver select case ver case "97" dbver = "3.51" case "2000" dbver = "4.0" end select if dbver > "" then Set cnbruce = Server.CreateObject("ADOX.Catalog") call cnbruce.Create("Provider=Microsoft.Jet.OLEDB." dbver ";Data Source=" filepath filename) end if End Function Call Createdfile(databasepath,databasename,databasever) '創(chuàng)建數(shù)據(jù)庫(kù) %>

那么，再看如何設(shè)計(jì)建立一個(gè)新的數(shù)據(jù)庫(kù)表吧

2，建立數(shù)據(jù)庫(kù)的連接文件conn.asp

% db_path = "cnbruce.mdb" Set conn= Server.CreateObject("ADODB.Connection") connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Server.MapPath(db_path) conn.Open connstr %>

3，建立新數(shù)據(jù)庫(kù)表的程序頁(yè)面addtable.asp

!--#include file="conn.asp" --> % Set rs = Server.CreateObject ("ADODB.Recordset") sql = "create table aboutme (id integer primary key,name text,Birthday datetime)" rs.Open sql,conn,2,3 %> 數(shù)據(jù)庫(kù)表文件建立完畢。

create table aboutme (id integer primary key,name text,Birthday datetime)
建立新的表aboutme，設(shè)計(jì)其字段有id（主關(guān)鍵字）、name（備注）、Birthday（時(shí)間日期）