Текущий архив: 2004.08.22;
Скачать: CL | DM;

Вниз

Как создать БД Акцез программно?????   Найти похожие ветки 

← →
46_55_41_44 ©   (2004-08-02 14:19) [0]

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

---

← →
V-A-V   (2004-08-02 14:28) [1]

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;

---

← →
46_55_41_44 ©   (2004-08-02 15:15) [2]

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

---

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

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.058 c