Не прет БД

[Potrashitel]

Здраствуйте, я 2 день учу БД,парадокс (сейчас уже на SQL)
Написал тел справочник, передал другу а у него не прет,пишет не нашел базу данных
Скажите пожалуйста что сделать чтоб на др компах перло?
BDE у него установлен.
А вообще, когда пишут парадокс,файлы БД запихивают в папку с прогой?

[artemavd]

В компоненте TTable уберите все алисы. Укажите там только имя вашей таблицы, например, tab.db, а в событии OnCreate формы напишите:

 try 
  Table1.Active:=False;
  Table1.DatabaseName:=(ExtractFilePath(Application.Exename));
  Table1.TableName:='tab.db';
  Table1.Active:=True;
 except
  on EDatabaseError do
    Application.MessageBox('Нельзя открыть БД','Имя1',MB_ICONERROR);
    Halt;
 end;

Должно работать с флэшки. Если где то ошибся, то не пинайте. Писал на память.

[Yurk@]

если файлы БД лежат в папке с прогой, то достаточно и:

 try 
  Table1.Close;
  Table1.TableName:='tab.db';
  Table1.Open;
 Except
  on EDatabaseError do
    Application.MessageBox('Нельзя открыть БД','Имя1',MB_ICONERROR);
    Halt;
 end;