請問為何 BCB製造的 dbf 在 excel 上無法辨識？

發文回覆瀏覽次數：1661

推到 Plurk!

推到 Facebook!

請問為何 BCB製造的 dbf 在 excel 上無法辨識？

答題得分者是：andychang1690

jtain
一般會員

發表：16
回覆：18
積分：6
註冊：2005-01-03

發送簡訊給我

#1 引用回覆回覆

發表時間：2007-02-15 18:49:26

IP:211.21.xxx.xxx 訂閱

請問一下我在程式中產生一個 dbf 檔，但那個 dbf 在 excel 或 access 上卻無法識別該檔的格式

但我用 bcb 的 Database Desktop 或 DBF ViewerEditor 卻可以正常讀取？
請問我該怎樣才能產生可以通用的 dbf 檔？
底下是我的程式
Table2->Active=false;
Table2->TableType = ttDBase;
Table2->TableName = "NewJap.dbf";
Table2->FieldDefs->Clear();
for(i = 0; i < Table1->FieldCount; i ){
Table2->FieldDefs->Add(Table1->Fields->Fields[i]->FieldName,
Table1->Fields->Fields[i]->DataType,
Table1->Fields->Fields[i]->Size, false);
}
Table2->FieldDefs->Add("jongEXP",
Table1->FieldByName("SPLIT_EXP")->DataType,
Table1->FieldByName("SPLIT_EXP")->Size,false);
Table2->CreateTable();
Table2->Active=true;

------
無所不在

andychang1690
資深會員

發表：20
回覆：694
積分：442
註冊：2003-03-14

發送簡訊給我

#2 引用回覆回覆

發表時間：2007-03-03 11:37:49

IP:221.169.xxx.xxx 訂閱

建議你使用ADO
舉一例子
Memo1內容為
Create Table Test.dbf
(
a1 char(10),
a2 memo,
a3 smallint,
a4 integer,
a5 number,
a6 float,
a7 long
)
程式
ADOConnection1->Close();
AnsiString ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\;Extended Properties=dBASE IV;User ID=Admin;Password=";
ADOConnection1->Provider="Microsoft.Jet.OLEDB.4.0";
ADOConnection1->ConnectionString = ConnStr;
ADOConnection1->Open();
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
for (int j=0; j < Memo1->Lines->Count; j )
ADOQuery1->SQL->Add(Memo1->Lines->Strings[j]);
ADOQuery1->ExecSQL();
ADOQuery1->Close();
-------------------------------------------------------------------------------------------------------------------------------------------------------------
BCB6測試OK!

------
Andy Chang

系統時間：2024-04-25 23:30:21

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！