[wi11]

Вот так создаю БД, но она всегда создается в одном и том же месте, в моих документах, как можно изменить путь и создать её в другом каталоге?

прописывать так неполучаеться --> AccessApplication1.NewCurrentDatabase('c:\db\db.md b')

Код:

AccessApplication1.Connect;
 AccessApplication1.Visible:=true;
  AccessApplication1.NewCurrentDatabase('db.mdb');

[Страдалецъ]

Уберите первые две строчки:

Код:

AccessApplication1.Connect;
 AccessApplication1.Visible:=true;

и создавайте новую бд в уже существующем каталоге.
А так все верно.

[wi11]

Непомогает

[Страдалецъ]

Ну как не помогает? Прекрасно создается одной строчкой кода:

Код:

 AccessApplication1.NewCurrentDatabase('c:\db.mdb');
или так:
AccessApplication1.NewCurrentDatabase('d:\1\db.mdb');
или так:
 AccessApplication1.NewCurrentDatabase('d:\Мои документы\db.mdb');

На что хоть ругается?
Акцесс установлен в системе?
Какая ось? Может прав на создание файла не хватает в папке?

[newbas]

А зачем в системе акцесс? И так все работает через DAO

Код:

var dbe, wksp,db :variant;

// ...
dbe = CreateOleObject("DAO.DBEngine.36"); 
wksp	= dbe.Workspaces(0);                        
db = wksp.CreateDataBase(ПутьКФайлу,";LANGID=0x0419;CP=1251;COUNTRY=0");
db.Execute("CREATE TABLE Auto (KOD Integer, MarkaAuto TEXT, NumberAuto TEXT );");

[Страдалецъ]

Затем, что автор пытается это сделать через TAccessApplication.
А создавать лучше через AdoX при отсутствии установленного акцеса.

[wi11]

Да все создаеться, но можно ли прописать путь таким образов
чтобы при перемещении программы путь оставался актуальным

например
AccessApplication1.NewCurrentDatabase('db\db.mdb') ;

[wi11]

Все я так зделал

s:= ExtractFilePath(ParamStr(0)) + 'db';
AccessApplication1.CreateAccessProject(s+'\db.mdb' );

и AccessApplication1.Connect; тоже нужно, а о вкакомто неизвестном формате создается