Ado, Создание базы

[Normann]

Есть ли у ADO средство для создания файла базы (mdb)?

 

[European]

Про ADO не скажу, но вот используя DAO можно. Вот парочка примеров на Дельфи

procedure CreateMSAccessDatabase(filename: string); 
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;

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;

Код стырен из "Delphi Russian Knowledge Base from Vit" пару лет назад скачанной с

Ссылка скрыта от гостей

 

[Normann]

Большое спасибо, мужики.