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

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

КАК програмно СОЗДАТЬ файл БД ACESS-a ? [D4, D5, D6]

ao1973 ©   (2002-04-18 11:44:00) 

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

---

Den_   (2002-04-18 13:11:00) [1]

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

---

sniknik   (2002-04-18 11:48:00) [2]

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("

---

Наверх