如何動態產生資料表?? |
|
答題得分者是：領航天使
|
|
ayukawa
一般會員   發表：16 回覆：5 積分：4 註冊：2002-07-13 發送簡訊給我 |
|
|
delphiwww
資深會員  發表：145 回覆：363 積分：368 註冊：2002-03-13 發送簡訊給我 |
|
|
ayukawa
一般會員 發表：16 回覆：5 積分：4 註冊：2002-07-13 發送簡訊給我 |
|
|
delphiwww
資深會員 發表：145 回覆：363 積分：368 註冊：2002-03-13 發送簡訊給我 |
|
|
ayukawa
一般會員 發表：16 回覆：5 積分：4 註冊：2002-07-13 發送簡訊給我 |
我已經有寫一點點程式了，如下
但是一直有一個bug，而無法新增
好像是有關primary key的關係
但是抓了很久的bug還是抓不出來
麻請各位網友幫我看看這段程式，幫我抓bug Table:=TTable.Create(Self);
with Table do
begin
DatabaseName:='ayuDB';
TableType:=ttDbase;
TableName:=Edit4.Text; with FieldDefs do
begin
Clear;
Add('CustNo',ftstring,10,false);
Add('CustName',ftString,10,false);
Add('CustTel',ftString,20,false);
AddCustAddr'ftString,60,false);
Add('CustMemo',ftMemo,0,false);
end;
With IndexDefs do
begin
Clear;
Add('Primary','CustNo',[ixPrimary,ixUnique]);
end;
CreateTable;
------
哈哈哈！我是天才 |
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
delphiwww
資深會員 發表：145 回覆：363 積分：368 註冊：2002-03-13 發送簡訊給我 |
好久沒有使用DBase的資料庫了
Add('Primary','CustNo',[ixPrimary,ixUnique]);
記得好像無法使用Primary,paradox好像就可以
引言: 我已經有寫一點點程式了，如下 但是一直有一個bug，而無法新增 好像是有關primary key的關係 但是抓了很久的bug還是抓不出來 麻請各位網友幫我看看這段程式，幫我抓bug Table:=TTable.Create(Self); with Table do begin DatabaseName:='ayuDB'; TableType:=ttDbase; TableName:=Edit4.Text; with FieldDefs do begin Clear; Add('CustNo',ftstring,10,false); Add('CustName',ftString,10,false); Add('CustTel',ftString,20,false); AddCustAddr'ftString,60,false); Add('CustMemo',ftMemo,0,false); end; With IndexDefs do begin Clear; Add('Primary','CustNo',[ixPrimary,ixUnique]); end; CreateTable; |
|
ayukawa
一般會員 發表：16 回覆：5 積分：4 註冊：2002-07-13 發送簡訊給我 |
引言: Add('Primary','CustNo',[ixPrimary,ixUnique]); 紅色部分Primary是不是保留字阿??? 另外換一個名字試看看.... 我的寫法是這樣 Add('', 'YY;SA02', [ixUnique, ixPrimary]);//YY;SA02是我的key 可以成功.... 試看看吧.. 發表人 - chih 於 2002/10/24 08:44:38不行耶！你的程式是用那一種資料庫 我想會不會跟資料庫有關係丫 我用的是SQL 2000耶！ 會不會是資料庫的關係 那SQL 2000的指令會是啥呢？？ 參數是啥呢？
------
哈哈哈！我是天才 |
|
領航天使
站長  發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 不行耶！你的程式是用那一種資料庫 我想會不會跟資料庫有關係丫 我用的是SQL 2000耶！ 會不會是資料庫的關係 那SQL 2000的指令會是啥呢？？ 參數是啥呢？可以用SQL指令去Create嗎? 可以參考如下的方式: Query1.close; Query1.sql.clear; Query1.sql.add('CREATE TABLE PERSON' PCNo ' (SERIAL CHAR(10) NOT NULL, NAME CHAR(6),ID CHAR(10),BDAY CHAR(10),TEL CHAR(11),PRIMARY KEY(SERIAL))'); try Query1.execsql; Query1.sql.text:='CREATE INDEX PERSON1 ON PERSON' PCNo ' (NAME)'; Query1.execsql; Query1.sql.text:='CREATE INDEX PERSON2 ON PERSON' PCNo ' (ID)'; Query1.execsql; Query1.sql.text:='CREATE INDEX PERSON3 ON PERSON' PCNo ' (TEL)'; Query1.execsql; Query1.sql.text:='CREATE INDEX PERSON4 ON PERSON' PCNo ' (BDAY)'; Query1.execsql; ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
發表時間：2002-10-23 10:38:12
IP:163.28.xxx.xxx 未訂閱
系統時間：2024-05-14 16:04:52
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |