Тема: Access
Показать сообщение отдельно
  #4  
Старый 26.11.2009, 22:27
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Лучше всего создавать Акцесовскую БД с помощью ADOX.
Выглядит это примерно так:
Код:
Const
  adVarWChar = 202;
Var
  Mdb,Tbl: Variant;
begin
 Mdb := CreateOleObject('ADOX.Catalog');
 Mdb.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\demo.mdb');
 Tbl := CreateOleObject('ADOX.Table');
 Tbl.Name := 'DemoTable';
 Tbl.ParentCatalog := Mdb;
 Tbl.Columns.Append('DemoAutoIncField', adInteger);
 Tbl.Columns['DemoAutoIncField'].Properties['AutoIncrement'].Value := True; 
 Tbl.Columns.Append('DemoTextField', adVarWChar, 50);
 Mdb.Tables.Append(Tbl);
end.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием