如何建立 foxpro table ??? |
|
尚未結案
|
|
sklui82
一般會員   發表：18 回覆：8 積分：5 註冊：2004-12-15 發送簡訊給我 |
請教各位前輩
小弟須要以Delphi 連接一個唯讀的foxpro 的資料庫. 在資料庫中的多張table (.dbf 檔) 裏搜索數據作一些計算, 再將結果導出至excel檔案. 由於牽涉太多計算, 所以我希望程式能在運行時建立一些table 暫存計算結果. 我用BDE 的Tdatabase, Tquery, Tdatasource 連接.
嘗試用 select * into newtable from table 等語句建立新表但不成功(運行時出現錯誤). 請問有什麼方法. 可在運行時建立 table (dbf 檔)??? table 存放的位置最好在本機. 因為server是唯讀的.
是否有更好方法暫存計算結果???? 萬分感激~~~~~
|
|
bruce
中階會員  發表：19 回覆：121 積分：83 註冊：2002-04-16 發送簡訊給我 |
|
|
sklui82
一般會員 發表：18 回覆：8 積分：5 註冊：2004-12-15 發送簡訊給我 |
|
|
bruce
中階會員 發表：19 回覆：121 積分：83 註冊：2002-04-16 發送簡訊給我 |
那... 請參考使用本函數 procedure DataSetToExecl(TT : TDataSet; FileName, Delimiter : String);
var
i : integer;
line : string;
M : TStringList;
begin
TT.Active := true;
TT.First;
M := TStringList.Create;
Line := TT.Fields[0].DisplayName;
For i := 1 to TT.FieldCount -1 do
Line := Line Delimiter TT.Fields[i].DisplayLabel;
M.Add(Line);
while not TT.Eof do
begin
Line := TT.Fields[0].AsString;
For i := 1 to TT.FieldCount -1 do
Line := Line Delimiter StringReplace(StringReplace(TT.Fields[i].AsString,
#13#10,' ',[rfReplaceAll]),#9,' ',[rfReplaceAll]);
M.Add(Line);
TT.Next;
end;
M.SaveToFile(FileName); end;
|
|
sklui82
一般會員 發表：18 回覆：8 積分：5 註冊：2004-12-15 發送簡訊給我 |
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
發表時間：2004-12-21 22:42:29
IP:221.127.xxx.xxx 未訂閱
系統時間：2024-11-25 6:48:03
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |