Мастера! Как программно создать базу MSAccess?

← →
@Ujin © (2002-10-17 12:09) [0]

Вопрос в теме. Я видел, кто-то уже отвечал на него...

← →
sniknik © (2002-10-17 12:36) [1]

сто раз отвечали и в фаге наверняка есть (а вот поиск по форуму базы данных не работает! до сих пор)

function TDMod.CreateMDBBase(BaseName: string): boolean;
var AdoEngine: Variant;
begin
result:= false;
if Length(BaseName)=0 then begin
DoIfError("Не определено имя базы");
exit;
end;
try
if Copy(UpperCase(BaseName), Length(BaseName)-3, 4) <> ".MDB" then BaseName:= BaseName + ".MDB";
AdoEngine:= CreateOleObject("ADOX.Catalog");
AdoEngine.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Trim(BaseName)+";Jet OLEDB:Engine Type=5;");
AdoEngine.ActiveConnection.Close;
AdoEngine:= Null;
result:= true;
except
on E: Exception do DoIfError(E.Message);
end;
end;

МММ. А мне проще создать пустую базу, засунуть ее в ресурс и записывать оттуда при необходимости.

Мастера! Как программно создать базу MSAccess? Найти похожие ветки