Delphi 连接数库报错

1.TADODataSet.RecordCount 报错 

问题描述： delphi 连接dbf， 在TADODataSet.RecordCount 报错：" 数据提供程序或其他服务返回 E_FAIL 状态"。

解决办法：添加一行 qryDataSet.CursorLocation := clUseServer;

 

var
  qryDataSet:TADODataSet;
begin
  qryDataSet:=TADODataSet.Create(nil);// 创建实例
  qryDataSet.Connection  := con_ado; // 设定数据库
  qryDataSet.CommandType := cmdText; // 执行指令方式
  qryDataSet.CursorLocation := clUseServer;   //解决qryDataSet.RecordCount报错
  qryDataSet.CommandText := strSql; // 查询命令行字符串
  try
    qryDataSet.Open;// 开始查询
    sgReturnData.ColCount := qryDataSet.FieldCount;// 取得列数
    sgReturnData.RowCount := qryDataSet.RecordCount +1 ; // 取得行数,+1 是标题    //在这行qryDataSet.RecordCoun报错
   .................................................
end;