Создание новой MS Access базы данных
Приведенная ниже процедура создает пустую базу данных MS Access
{©Drkb v.3(2007): <a href="http://www.drkb.ru" title="www.drkb.ru">www.drkb.ru</a>,
®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)
Автор: 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:
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;
Взято с 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.
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;
Взято с Delphi Knowledge Base: http://www.baltsoft.com/
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;
Автор: Петрович
Взято из http://forum.sources.ru
Отправить комментарий