DELPHI 异常调用 EAccess Violation

Question

有一个类似的问题，但是用户使用的是更高级的东西，所以我很困惑。

这是异常爆发的过程。特别是在 ADOCon.connected 行。我正在为我的数据库使用 dbgo 的东西和 Microsoft 访问权限。

我得到的例外是：EAcessViolation。我想知道我犯了什么错误导致它以及如何解决它。我已经使用预先存在的数据库和新数据库运行了该过程。当有一个预先存在的数据库时，例外是第 19 行之一，没有它是第 14 行。正如用户所提到的，我已经阅读了文档，但是我仍然对如何解决错误感到困惑。错误肯定在这里，因为这是我调用的第一个访问权限。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,DB, ADODB,ComObj;

type
 TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
ADOCom:TADOcommand;
ADOCon:TADOConnection;
ADOQ:TADOQuery;
nameDB:string;
db:OLEVariant;

begin
namedb:='Brill.accdb';
if not fileexists(namedb) then
  begin
    db:=createOLEObject('ADOX.Catalog');
    db.create('Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+nameDB+';');
    db:=null;
  ADOCon.connectionstring:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+
    nameDB+';';
    ADOCon.connected:=True;
    ADOCon.loginprompt:=False;
  end
else
  ADOCon.connectionstring:='Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+
  nameDB+';';
end.

Answer 1

您的代码充满了错误。

当您在代码中声明特定类类型的变量时，您有责任创建该类的实例并在使用之前将其分配给该变量，并在使用完毕后进行清理。

var
  ADOCon: TAdoConnection;
  ADOCom:TADOcommand;
  ADOQ:TADOQuery;

begin
  ADOCon := TADOConnection.Create(nil);
  try
    // Set up connection properties here 
    ADOQ := TADOQuery.Create(nil);
    try
      // Set up ADOQ properties and use query here
    finally
      ADOQ.Free;
    end;
  finally
    ADOCon.Free;
  end;
end;

此外，您对db: OleVariant（以及与之相关的所有代码）的使用完全没有任何作用。您获得一个实例，为该实例分配属性，然后将其丢弃，这意味着您可以删除该变量以及与它完全相关的三行代码；它们的用途为零。

当然，比上述任何一个更好的解决方案是在表单中添加一个 TDataModule，在其上放置一个 TADOConnection 和 TADOQuery，在 Object Inspector 或数据模块的 OnCreate 中设置属性。然后，您可以将该数据模块移动到可用表单列表中，将其上移以在主表单之前创建，并且可以从应用程序中使用该数据模块的任何位置进行访问，当您退出应用程序时，该数据模块将正确释放所有内容。它还将所有数据库代码从您的用户界面中分离出来，大大地清理了您的代码。