請問各位大大: 如何建立Access table,利用CreateOleObject來產生OLE Server的方式來寫出來

http://www.delphi3000.com/articles/article_1830.asp http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20933 --- 每個人都是一本書 發表人 - hagar 於 2003/04/21 10:13:44

既然是資料庫, 怎麼會想用 oleobject 的方式來建立 table 呢?? 請問你是要用 ADODB 資料模型的 OLE 還是 ACCESS 應用程式的 OLE??

謝謝大大: 是用ADO資料模型的OLE Server 能寫給我看嗎

寫個簡單的範例, 你可以自己試試看.. 先建立好一個空白資料庫, 開啟一個新的 delphi project, 放上按鈕寫入:    

uses ComObj;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  adoconnection: Variant;
begin
  adoconnection := CreateOleObject('ADODB.Connection');
  adoconnection.open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db2.mdb;Persist Security Info=False');
  adoconnection.execute('create table t2 ( sid int not null, pname varchar(20) not null)');
  adoconnection.execute('alter table t2 add constraint PK_t2 PRIMARY KEY ( sid, pname )');
  adoconnection := Unassigned;
end;

其中 adoconnection.open 後傳入的就是 connection string, 若是 access 檔的話, 就這樣寫就可以了, 記得將檔名及路徑改為你的空白資料庫, 接下來的就是一般的 sql command 執了, 使用的是 adoconnection.execute sql command 即可. 最後要記得釋放.. 將該 adoconnection 設為 Unassigned. 建立 table 的語法為

CREATE TABLE TABLE_NAME (
  COL_NAME1 DATATYPE NOT NULL,
  COL_NAME2 DATATYPE ,
  ..
)

若是單一欄位為 primary key的話可以這樣建:

CREATE TABLE TABLE_NAME (
  sid int PRIMARY KEY,
  pname varchar(20),
  ..
)

若是複合 primary key 時, 則必須利用 alter table 指令才行:

CREATE TABLE TABLE_NAME (
  sid int,
  pname varchar(20),
  used char(1),
  ..
)
ALTER TABLE TABLE_NAME ADD CONSTRAINT PK_t2 PRIMARY KEY ( 
  sid, 
  pname,
  ..
)