請問各位大大: 我放的一個Database元件連上Foxpro database,然後再把table連上Database元件,Table元件連上Foxpro的DBF檔案,Foxpro的DBF檔案有50筆記錄,而且Database元件已經登錄使用者和密碼 但是無法利用Table元件讀取FOXPRO正確的RecordCount,程式執行時Table.RecordCount的結果是-1,不知道是怎麼回事 如下程式碼 Label1.Caption := IntToStr(Table.RecordCount);

其他方面(如顯示在DBGrid,Next,Last等)正常嗎? Help 說 RecordCount 最好只用在 Paradox 及 DBase Table

引言: 請問各位大大: 我放的一個Database元件連上Foxpro database,然後再把table連上Database元件,Table元件連上Foxpro的DBF檔案,Foxpro的DBF檔案有50筆記錄,而且Database元件已經登錄使用者和密碼 但是無法利用Table元件讀取FOXPRO正確的RecordCount,程式執行時Table.RecordCount的結果是-1,不知道是怎麼回事 如下程式碼 Label1.Caption := IntToStr(Table.RecordCount);

如果不行的話，就用其他的替代方法吧!

var
  qry: TQuery;
begin
  qry := TQuery.Create(nil);
  with qry do
  try
    DatabaseName := Your Alias Name;
    Close;
    SQL.Clear;
    SQL.Add('Select Count(*) RecordCount From TableName');
    Open;
    Label1.Caption := qry.FieldByName(RecordCount).AsString;
  finally
    FreeAndNil(qry);
  end;
end;

~小弟淺見，參考看看~ 發表人 - channel 於 2003/04/02 17:46:35

謝謝大大: 用Tabel元件可以讀取正確的FieldCount屬性值,用DBGrid也可以顯示,至於為什麼不能讀取正確的RecordCount?我讀取的recordset值都是-1ㄝ,好奇怪喔

我也碰過同樣的問題 在此提供小弟的淺見 //因FoxPro對於RecordCount取出值會有問題,故改用下列方法 //用新的Query, Query.Fields[0].AsInteger取代RecordCount,即可使用下列SQL語法,如 FoxproQUERY.SQL.Clear; FoxproQUERY.SQL.Add('Select * From product '); FoxproQUERY.SQL.Add('Order by no'); FoxproQUERY.CLOSE; FoxproQUERY.OPEN; FoxproQUERY.SQL.Clear; FoxproQUERY.SQL.Add('SELECT Count(*) FROM Product '); FoxproQUERY.CLOSE; FoxproQUERY.OPEN; Panel_P1.Caption := '資料筆數：共 ' IntToStr(FoxproQuery.Fields[0].AsInteger) ' 筆'; 提供您作參考

更正 我也碰過同樣的問題 在此提供小弟的淺見 //因FoxPro對於RecordCount取出值會有問題,故改用下列方法 //用新的Query, Query.Fields[0].AsInteger取代RecordCount,即可使用下列SQL語法,如下 //FoxproQUERY1為有取出Field FoxproQUERY1.SQL.Clear; FoxproQUERY1.SQL.Add('Select * From product '); FoxproQUERY1.SQL.Add('Order by no'); FoxproQUERY1.CLOSE; FoxproQUERY1.OPEN;    //FoxproQUERY2無取出Field FoxproQUERY2.SQL.Clear; FoxproQUERY2.SQL.Add('SELECT Count(*) FROM Product '); FoxproQUERY2.CLOSE; FoxproQUERY2.OPEN; Panel_P1.Caption := '資料筆數：共 '+IntToStr(FoxproQuery2.Fields[0].AsInteger)+' 筆';    提供您作參考    

主要原因應是 BDE 對 FoxPro 的支援不是很足。用TTable 時讀 RecordCount 應是經過 DBF 內建的 Recno 來讀取但可能因為 FozPro 的格式稍有不同所以讀不到罷。 你可試試用 TQuery 來代替試試可否讀取 Record Count (因Query 取 RecordCount 的手法應有不同)，若不成的話只好按其他網友提議給你的辦法用 Select Count(*) as RecordCount from TableName 了。

在使用vb的dao 我也曾遇到相同的問題 解決方法是 table.last table.first 也是就讓recordset 從最後一筆又跑到第一筆,如此即可 計算出筆數了