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

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

Как создать БД Акцез программно????? [D7, MS Access]

46_55_41_44 ©   (2004-08-02 14:19:00) 

Ну помогите ааа..
Ничто не помогает...
Может кто-нибудь привести конкретный пример????????

---

46_55_41_44   (2004-08-02 15:15:00) [1]

Сппсибо брат...
очень помогло...
На самом деле работает

---

V-A-V   (2004-08-02 14:28:00) [2]

Function Create_Access_DB(sBase: String = 'AccessDB.mdb'): Boolean;
var
 AdoEngine: Variant;

begin
 Result:= FileExists(sBase);
 if Result then exit;
 AdoEngine:= CreateOleObject('ADOX.Catalog');
 try
   AdoEngine.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
                    sBase +
                    ';Jet OLEDB:Engine Type=5;');
   AdoEngine.ActiveConnection.Close;
   Result:= True;
 finally
   AdoEngine:= Null;
 end;
end;

---

Наверх