請問各位大大: 我是要pack foxpro table,而我的foxpro table的欄位名稱是中文,在程式執行時出現錯誤:table is busy running,能告訴我為什麼嗎 Table1,Close; Table1.Exclusive=true; Table1,Open; DbiPackTable(Table.DBHandle,Table.Handle,nil,szFOXPRO,True); //出錯處 Table1,Close; Table1.Exclusive=False;

參考: http://www.priv.bus.at/graf/quell/delphiarchives/bdehlp32/1jhszru.htm http://www.glisp.com.cn/feel/pack.htm --- 每個人都是一本書 發表人 - hagar 於 2003/04/07 09:41:17

引言: 請問各位大大: 我是要pack foxpro table,而我的foxpro table的欄位名稱是中文,在程式執行時出現錯誤:table is busy running,能告訴我為什麼嗎 Table1,Close; Table1.Exclusive=true; Table1,Open; DbiPackTable(Table.DBHandle,Table.Handle,nil,szFOXPRO,True); //出錯處 Table1,Close; Table1.Exclusive=False;

請把 TABLE1.OPEN移除, 執行PACK時是不可以OPEN的, 因為 DBIPACKTABLE 會自動對OPEN做處理機制!

謝謝大大: 我也把Table.Open拿掉ㄌ,可是並無法做到pack功能,被刪的紀錄在Visual Foxpro底下還是看的到 不知道是不是BDE不支援Foxpro還是還要加入一些程式來執行

引言: 謝謝大大: 我也把Table.Open拿掉ㄌ,可是並無法做到pack功能,被刪的紀錄在Visual Foxpro底下還是看的到 不知道是不是BDE不支援Foxpro還是還要加入一些程式來執行

這是 help 中關於 dbiPackTable 中的 pszDriverType 參數的一段: pszDriverType Type: pCHAR (Input) Pointer to the driver type. Optional. This parameter is required if pszTableName has no extension. The only valid pszDriverType is szDBASE. --- 每個人都是一本書

謝謝大大: 那是不是只適用於DBASE而不適用於FOXPRO啊 我用的的是Visual Foxpro 6

引言: 謝謝大大: 那是不是只適用於DBASE而不適用於FOXPRO啊 我用的的是Visual Foxpro 6

把 pszDriverType 參數值改成 szDBASE 試試 不過我沒用過, 也沒有東西可以試. --- 每個人都是一本書

謝謝大大: 有把參數設訂成szDBASE,可是還是不行ㄝ

還是一樣的錯誤訊息嗎？ 以下是參考連結中的方法:

procedure PackTable(Table: TTable);
var
  Props: CURProps;
  hDb: hDBIDb;
begin
  if not Table.Active then
    raise EDatabaseError.Create('Table 須已開啟');
   
  if not Table.Exclusive then
    raise EDatabaseError.Create('Table 須以獨占方式開啟');
   
  Check(DbiGetCursorProps(Table.Handle, Props));
  if (Props.szTableType = szDBASE) then
    Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
  else
    raise EDatabaseError.Create('Table必需是 dBASE 或 FoxPro 類型');
   
  Table.Open;
end;

--- 每個人都是一本書