請教各位前輩，小弟將資料庫資料取出來處理 放在StringList內，要存成DBF檔案格式，由於沒用過DBF不知從何著手 希望有經驗的前輩指點一下 ~~應無所住而生其心~~

引言: 請教各位前輩，小弟將資料庫資料取出來處理 放在StringList內，要存成DBF檔案格式，由於沒用過DBF不知從何著手 希望有經驗的前輩指點一下

terrychen 你好 基本上DBF與paradox的使用上沒什麼差別，只要在建立資料庫別名時指定Default Driver為'DBASE'或'PARADOX' 或'FOXPRO' 即可 if Session.IsAlias('TEST') then Session.DeleteAlias('TEST'); Session.AddStandardAlias('TEST','d:\....\TEST','DBASE'); 或是BDE中新增別名,指定Default Driver為DBASE亦可。 從此後所以連結到此別名的TTable、TQuery．．等，皆是以DBASE的檔案格式操作，除非你特別指定副檔名。 雖然如此，因為DBASE的基本限制，有些操作還是要注意,如欄位的型態(dbase好像只支援五種型態)、DBASE不支援Primary Key... _______________________________________ 深藍的魚，祝您好運..........連連

你的目的如果是要把資料庫--->轉成DBF 那不用轉成TstringList uses bde 假如沒記錯的話 呼叫這個function fDbiQExec('select * from XXX',savedialog1.FileName,database1.handle);

procedure fDbiQExec(sql,tblname:string;db:HDBIDB;dbtype:string='DBASE');
var hStmt: hDBIStmt;
    hQryCur, hNewCur: hDBICur;
begin
  hQryCur := nil;
  hNewCur := nil;
  hStmt := nil;
  try
    Check(DbiQAlloc(Db, QrylangSQL, hStmt));
    Check(DbiQPrepare(hStmt, PChar(sql)));
    Check(DbiQExec(hStmt, @hQryCur));;
    Check(DbiQInstantiateAnswer(hStmt,hQryCur,PChar(TblName),PCHAR(dbtype),true,@hNewCur));
  finally
    if hStmt<>nil then Check(DbiQFree(hStmt));
    if hNewCur<>nil then Check(DbiCloseCursor(hNewCur));
  end;
end;

就可以把資料庫中的資料抓成dbf檔 如要處理這箇DBF,如Chance36所言....< >< > 星期一,星期二...星期日..星期一..無窮迴圈@@ 發表人 - pgdennis 於 2004/08/05 23:59:36

------
星期一,二...無窮迴圈＠＠

感謝兩位前輩回應 因為小弟的資料需在經過處理，然後在存入DBF中 所以需暫存在StringList中 還有一點很奇怪，小弟動態建立的DBF用EXCEL及FOXPRO都開不起來，開起來是亂碼 小弟公司有些DBF可以用EXCEL開啟，請前輩指點一下 ~~應無所住而生其心~~