delph疑惑

Question

使用adoif not ADOConnection1.Connected then
      ADOConnection1.Connected := True;    strQuery := 'SELECT * FROM User';
   ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(strQuery);
    ADOQuery1.Open;    ADOQuery1.RecordCount;---------->这句话也会产生异常？
我在登陆窗口中也是这样使用的，没有出现异常。异常信息如下：data provider or other service returned an E_FAIL status
怎么回事？

Answer 1

就用到了TADOConnection和TADOQuery组件

Answer 2

if not qry1.IsEmpty then 
  to do  sth....

Answer 3

数据库中有记录集的，为什么IsEmpty还是False呢？

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
begin
  s := 'select * from jobs';
  if not con1.Connected then
    con1.Open;
  with qry1 do
  begin
    close;
    sql.Clear;
    sql.Add(s);
    open;
    self.Caption := IntToStr(RecordCount);
  end;
end;没有问题。
再不行。把机器重新启动一下。
还不行。找一台机器再试一下。 如果另一台面器上也出错。就是你的程序的问题。

Answer 5

用baidu查下。
data provider or other service returned an E_FAIL status
答案太多了。