project1.~dpr

《Delphi 7应用编程150例》源码（全）

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  comobj;

var
    Engine:OLEVariant;
    TestDB:OLEVariant;

begin
  { TODO -oUser -cConsole Main : Insert code here }
    Engine:=CreateOLEObject('DAO.DBEngine.36');
    TestDB:=Engine.CreateDatabase('test.mdb');
    
end.