Скачать: CL | DM;

Мастера! Как программно создать базу 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;

---

← →
Карелин Артем ©   (2002-10-17 12:44) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c