Создание новой MS Access базы данных

Previous  Top  Next

    
 

 

Приведенная ниже процедура создает пустую базу данных MS Access

 

Code:

procedure CreateMSAccessDatabase(filename: string);

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

 

var DAO: Variant;

i: integer;

const Engines: array[0..2] of string = ('DAO.DBEngine.36', 'DAO.DBEngine.35', 'DAO.DBEngine');

 

function CheckClass(OLEClassName: string): boolean;

var Res: HResult;

begin

   Result := CoCreateInstance(ProgIDToClassID(OLEClassName), nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IDispatch, Res) = S_OK;

end;

begin

for i := 0 to 2 do

   if CheckClass(Engines[i]) then

     begin

       DAO := CreateOleObject(Engines[i]);

       DAO.Workspaces[0].CreateDatabase(filename, ';LANGID=0x0409;CP=1252;COUNTRY=0', 32);

       exit;

     end;

raise Exception.Create('DAO engine could not be initialized');

end;

 

 

 

 

Кусочек кода, который должен распознавать какая версия DAO установлена на компьютере мной не мог быть оттестирован, так как только одна работающая версия DAO может быть установлена на компьютере. У меня установлен Office XP (DAO36) и на нем все работает нормально. Интересно было бы узнать работает ли логика для Office 2000 (DAO35) и Office 97 (DAO30)

 

©Drkb::02770

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Взято с Vingrad.ru http://forum.vingrad.ru

 


 

Here is an OP function that will do it for you:

Code:

procedure CreateMSAccessDB(filename: string);

var

DBEngine, Workspace: Variant;

const

{Important to use the following constant as is}

dbLangGeneral = '';

LANGID = 0x0409;

CP = 1252;

COUNTRY = '0';

dbVersion30 = 32;

begin

DBEngine := CreateOleObject('DAO.DBEngine');

{DBEngine := CreateOleObject('DAO.DBEngine.35'); For DAO 3.5}

Workspace := DBEngine.Workspaces[0];

try

   Workspace.CreateDatabase(filename, dbLangGeneral, dbVersion30);

except

   on EOleException do

     ShowMessage('Database already exists');

end;

end;

 

©Drkb::02771

Взято с Delphi Knowledge Base: http://www.baltsoft.com/

 


 

It's very simple to create a empty Access-Database (*.mdb File) using OLE. It's not necessary to have MS-Access installed on your computer. If an exception occures the error message will returned. After creating the DB you can create Tables with simple SQL-Statements.

Code:

uses comobj, sysutils;

 

function CreateAccessDatabase(FileName: string): string;

var

cat: OLEVariant;

begin

result := '';

try

   cat := CreateOleObject('ADOX.Catalog');

   cat.create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';');

   cat := NULL;

except

   on e: Exception do

     result := e.message;

end;

end;

 

 

©Drkb::02772

Взято с Delphi Knowledge Base: http://www.baltsoft.com/


Code:

const

CLASS_DBEngine: TGUID = '{00000100-0000-0010-8000-00AA006D2EA4}';

dbLangCyrillic = ';LANGID=0x0409;CP=1252;COUNTRY=0';

dbOption       =     0

//                  or $20 // ? похоже создание в формате Access 97

               ;

 

procedure CreateMSAccessDatabase(FileName :String);

begin

Variant(CreateOleObject(ClassIDToProgID(CLASS_DBEngine)))

   .Workspaces[0]

     .CreateDatabase (FileName, dbLangCyrillic, dbOption);

end;

 

 

©Drkb::02773

Автор: Петрович

Взято из http://forum.sources.ru