線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1592
推到 Plurk!
推到 Facebook!

原 DBF 結構用SQL新增欄位會出現錯誤

缺席
css
一般會員


發表:24
回覆:17
積分:8
註冊:2006-08-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-07-14 02:20:32 IP:66.222.xxx.xxx 訂閱
Query1.SQL.Clear;
Query1.SQL.Add('Select * from ACC.DBF');
Query1.Open;
if Query1.FindField('turndate') = nil then begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE ACC ADD turndate CHAR(6) ');
// 本行會出現錯誤
Query1.ExecSQL;
end;
// 如果改寫
with Table1 do begin
Active := False;
DatabaseName := 'D:\';
TableType := ttDBase;
TableName := 'ACC';
if Table1.Exists then begin
with FieldDefs do begin
with AddFieldDef do begin
Name := 'turndate';
DataType := ftString;
Size :=6;
end;
Table1.CreateTable; // 本行會把原結構刪除,只剩 trundate 不知用什麼
end;
end;
end;
編輯記錄
css 重新編輯於 2010-07-14 05:59:01, 註解 無‧
css
一般會員


發表:24
回覆:17
積分:8
註冊:2006-08-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-07-16 07:12:12 IP:66.222.xxx.xxx 訂閱
我已找到答案
Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE ''' 'aac.dbf' ''' add ano1 char(6) ');
Query1.ExecSQL;
ann0509
一般會員


發表:19
回覆:42
積分:12
註冊:2010-08-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2010-08-16 15:08:19 IP:60.248.xxx.xxx 訂閱
請問如果需要兩個以上的欄位 應該怎麼寫呢
老大仔
尊榮會員


發表:77
回覆:835
積分:1082
註冊:2006-07-06

發送簡訊給我
#4 引用回覆 回覆 發表時間:2010-08-16 15:17:01 IP:59.120.xxx.xxx 未訂閱
再寫一行Query1.SQL.Add....不就行了?
ann0509
一般會員


發表:19
回覆:42
積分:12
註冊:2010-08-09

發送簡訊給我
#5 引用回覆 回覆 發表時間:2010-08-16 15:20:27 IP:60.248.xxx.xxx 訂閱
可是我只是要再新增資料表的時候 有兩個以上的欄位
如果再打一行 會變變成 我新增了兩個依樣名稱的資料表

===================引 用 老大仔 文 章===================
再寫一行Query1.SQL.Add....不就行了?
tobylin
一般會員


發表:1
回覆:15
積分:18
註冊:2009-12-25

發送簡訊給我
#6 引用回覆 回覆 發表時間:2010-08-17 09:07:33 IP:59.125.xxx.xxx 未訂閱
Query1.SQL.Clear;
Query1.SQL.Add('ALTER TABLE ''' 'aac.dbf' ''' add (ano1 char(6),ano2 char(7)) ');
Query1.ExecSQL;
**
Try It!
系統時間:2017-12-19 2:14:38
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!