алиас? Опции

[SS]

Как сделать так чтобы, при запуске проги с БД, прога знала где искать файлы БД. Или создавала бы сама папку допустим C:/d , а в этой папке создавала или копировала файлы БД.

[Ozzя]

1. http://forum.sources.ru/index.php?showtopic=62261
2. Можно через ADO
Я делал так

Код

OpenDialog1.Filter := 'Ôàéëû ÁÄ Access (*.mdb)|*.mdb|All files (*.*)|*.*';
  OpenDialog1.FilterIndex := 1; { start the dialog showing all files }
  if OpenDialog1.Execute then
    fn := Opendialog1.FileName;
  DataModule2.ADOConnection1.ConnectionString :=
  '"Provider=MSDASQL.1;'+
  'Persist Security Info=False;'+
  'Extended Properties="'+
  'DBQ='+fn+';'+
  'DefaultDir='+ExtractFilePath(fn)+';'+
  'Driver={Driver do Microsoft Access (*.mdb)};'+
  'DriverId=25;'+
  'FIL=MS Access;'+
  'FILEDSN='+ExtractFilePath(fn)+'\db1.mdb.dsn;'+
  'MaxBufferSize=2048;'+
  'MaxScanRows=8;'+
  'PageTimeout=5;'+
  'SafeTransactions=0;'+
  'Threads=3;'+
  'UID=admin;'+
  'UserCommitSync=Yes;"';
  DataModule2.ADOConnection1.Connected := True;
  DataModule2.ADOTable1.Active := True;
  DataModule2.ADOTable3.Active := True;
  DataModule2.ADOTable2.Active := True;
  DataModule2.ADOTable4.Active := True;
  DataModule2.ADOTable5.Active := True;