請問各位! 我要讀取一個 dbf檔, 該檔原先已建立一個 mdx索引檔, 因程式需要重建索引, 所以我先刪除 mdx索引檔, 但此時如果我以程式 table1.open 會造成 index does not exist 的錯誤而無法開啟 但如果我以 desktop database 系統來開該支 dbf檔, 會有一個視窗出現要求我 Open Read Only Fail Open Open and Detach 只要我選第三個打開並分離索引檔, table就可以開啟沒有問題, 請問 我要如何將這個功能以程式來做, 也就是當索引被刪除時, 我可以利用程式將其資料庫與索引檔分開同時打開而不會造成錯誤! 謝謝!

dbf檔在第28byte記錄著是否有index,將其設為0就不會去找index了    

function disableIndex(fname:string):integer;
//attempts disable .mdx by clear .dbf's byte 28
// return 1 if it has intex file 
var
    F:File of byte;
    old,value :byte;
begin
  value := 0;
  try
    assignFile(F, fname);
  except
    showmessage('can not open file:'  fname);
  end;
  Reset(F);
  Seek(F, 28);
  read(F, old);
  if old = 1 then begin
    Seek(F, 28);
    Write(F, value);
    result := 1;
    end
  else
    result := 0;
  CloseFile(F);
end;

引言: dbf檔在第28byte記錄著是否有index,將其設為0就不會去找index了

function disableIndex(fname:string):integer;
//attempts disable .mdx by clear .dbf's byte 28
// return 1 if it has intex file 
var
    F:File of byte;
    old,value :byte;
begin
  value := 0;
  try
    assignFile(F, fname);
  except
    showmessage('can not open file:'  fname);
  end;
  Reset(F);
  Seek(F, 28);
  read(F, old);
  if old = 1 then begin
    Seek(F, 28);
    Write(F, value);
    result := 1;
    end
  else
    result := 0;
  CloseFile(F);
end;

版主, 感謝你, 另外再和你請教一個問題 是否所有定義 .dbf 的檔都是一樣, 因為我的資料來源有可能是 foxpro, dbase, clipper 等早期 dos 下的 DBF檔! 如果我改錯了BYTE, 會不會造成所有DATA毀損, 抑或再改回原來的BYTE資料就可以恢復?

是否所有定義 .dbf 的檔都是一樣 不同版本是有些差異, foxpro, dbase, clipper則除index外差異不大 dbf之檔案格式可看 http://www.wotsit.org/download.asp?f=ti838d 如果我改錯了BYTE, 會不會造成所有DATA毀損 會 抑或再改回原來的BYTE資料就可以恢復 當然 我在Delphi1.0時還直接用blockwrite方式用binary寫dbf檔頭來create DBF檔

版主, 您好 想請問一個問題 我要將 .DBF 的檔案轉入 SQL server 會出現 "index not found" 奇怪的是之前曾成功過 但現在卻每次都出現錯誤訊息 我參考您寫的 function function TForm1.disableIndex(fname:string):integer; //attempts disable .mdx by clear .dbf's byte 28 // return 1 if it has intex file var F:File of byte; old,value :byte; begin value := 0; try assignFile(F, fname); except showmessage('can not open file:' fname); end; Reset(F); Seek(F, 28); read(F, old); if old = 1 then begin Seek(F, 28); Write(F, value); result := 1; end else result := 0; CloseFile(F); end; 結果第28byte OLD=174 請問可以給我一點建議嗎? ps, dbf 同一目錄下有同檔名的 mtx file Tks

我要將 .DBF 的檔案轉入 SQL server 為何需要執行DisableIndex?

版主您好 謝謝! 我之前的問題已藉由您的disableIndex 解決了 問題的前因後果應該是 1. 開始時 dbf 轉入 SQL 會出現 index not found (該目錄存有mtx 索引檔, 但 SQL server 找不到, 此時未執行disableindex function) 2. 執行disableindex function 後, SQL server 已不會再去找 index file, 也不再出現index not found 訊息, 而順利將資料轉入 SQL server. 世事真奇妙, 您幾年前寫的function 卻幫了我一個大忙 Thanks again! hhchen