КАК програмно СОЗДАТЬ файл БД ACESS-a ?

← →
ao1973 (2002-04-18 11:44) [0]

← →
sniknik © (2002-04-18 11:48) [1]

procedure TForm1.Button1Click(Sender: TObject);
var AdoEngine: Variant;
begin
if not FileExists(PathBase+"\MyBase.Mdb") then
try
AdoEngine:= CreateOleObject("ADOX.Catalog");
AdoEngine.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+PathBase+"\MyBase.Mdb;Jet OLEDB:Engine Type=5;");
AdoEngine.ActiveConnection.Close;
AdoEngine:= Null;
except
on E: EADOError do DoIfError(E.Message);
on E: EOleException do DoIfError(E.Message);
on E: EDataBaseError do DoIfError(E.Message);
else DoIfError("

← →
Den_ (2002-04-18 13:11) [2]

или использовать компонент KADAO - очень легко и просто создаст БД и все необходимое

КАК програмно СОЗДАТЬ файл БД ACESS-a ? Найти похожие ветки