| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

@Ujin ©   (2002-10-17 12:09:00) 

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

---

Карелин Артем   (2002-10-17 12:44:00) [1]

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

---

sniknik   (2002-10-17 12:36:00) [2]

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

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;

---

Наверх