以下程序在2000下运行没问题，98下有异常。各位高手帮忙看看

Question

lbCaption.Caption :=Caption;
  dm.ado_lb.open;
  dm.ADO_lb.Sort:='编号';
  while not dm.ado_lb.Eof do
    begin
     e_lbx.items.add(dm.ADO_lb.fieldbyname('类别').AsString);
     dm.ADO_lb.Next;
    end;
    dm.ado_lb.close;
好象问题出在while里面，多谢

Answer 1

不好意思，是新手，怎么升级ADO

Answer 2

//下载 mdac_typ.exe 安装;lbCaption.Caption :=Caption;
with dm.ado_lb do
begin
  Close ;
  Sql.Text := 'select 类别 from TableName order by 编号 Desc' ;
  Open ;
  First ;
  while Not Eof do
  begin
    e_lbx.items.add(FieldByName('类别'').AsString) ;
    Next ;
  end ;
end ;

Answer 3

你到微软中国下一MDAC2.7试一下

Answer 4

升级你的MDAC
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/dataaccess.asp