我的应用程序中有一个莫名其妙的错误类错误

问题描述

我遇到了一个大问题，我不知道如何解决。出乎意料的是，当我编译然后尝试运行我的应用程序时 - 我已经研究了六个月 - 我收到一个 Class Not Registered 错误。我还收到一条弹出错误消息，指出未找到 dbx.dbl。在过去的几天里，我没有在程序中添加任何内容，其中包括任何新课程。我使用的是 Delphi 5。我不知道如何识别未注册的类。该程序将无法运行，我花了几个小时试图找出问题，但没有成功。

更多信息：我已将可执行文件和数据文件移动到另一台计算机，并且一切正常。所以好像是我的开发箱有问题。

更多信息：我按照 fpiette 的建议做了，但没有发现任何帮助。所以我创建了一个非常基本的应用程序：

unit Unit1;

interface

uses
  Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Db,ADODB;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   ADOConnection1.Connected := True;
   ADOQuery1.Close;
   ADOQuery1.Connection := ADOConnection1;
   ADOQuery1.sql.Clear;
   ADOQuery1.sql.Add('select * from tblsupplier');
   ADOQuery1.Open;
end;

end.

执行 Class Not Registered 行时发生 ADOQuery1.Open; 错误。

我是否正确地假设，由于程序中没有其他组件，错误必须在 ADO 代码中？ ADOConnection1 指向名为 suppliers 的 Access 数据库，连接测试成功。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）