用TAdoQuery 中的Next就可以了。with TAdoQuery.Create(nil) do
begin
   //设置连接属性
    ConnectionString := '';
  
  try
    //初始化SQL语句,并打开记录集
    Close;
    SQL.Clear;
    SQL.Add(strSQL);
    Open;
  
    //读取记录
    First;
    while not eof do
     begin
      //......codes.
      Next;
    end;
  
  finally
    Free;
  end;
end;

解决方案 »

  1.   

    用TAdoQuery 中的Next就可以了。
    //用个样式,看得舒服点。with TAdoQuery.Create(nil) do
    begin
       //设置连接属性
        ConnectionString := '';
      
      try
        //初始化SQL语句,并打开记录集
        Close;
        SQL.Clear;
        SQL.Add(strSQL);
        Open;
      
        //读取记录
        First;
        while not eof do
         begin
          //......codes.
          Next;
        end;
      
      finally
        Free;
      end;
    end;