[Antidelphik]

Очень прошу помогите, завтра сдавать эту БД, пишу как могу но в ней много ошибок, прошу помочь исправить их. Вот код:

Код:

unit Unit2;

interface

uses
  SysUtils, Classes, DBTables, DB;

type
  TDataModule2 = class(TDataModule)
    Table1: TTable;
    Session1: TSession;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const my_alias = 'instruments';
      datapth = 'C:\Documents and Settings\1\Ðàáî÷èé ñòîë\ìîÿ ðàáîòà â delphi\ÁÄ';

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
 with session do
  begin
   Active:=false;
   PrivateDir:=ExstractFilePath(PARAMSTR(0));
   Active:=true;
   if not (IsAlias(my_alias)) then
    begin
     ConfigMode:=cmPersistent;
     AddStandartAlias(my_alias,ExstractFilePath(PARAMSTR(0))+datapth,'PARADOX');
     SaveConfigFile
    end;
   DataBase.AliasName:=my_alias;
   DataBase.Connected:=true;
   with instruments do
    begin
     Prepare;
     Open
    end;
  end;

end;

procedure TDataModule2.DataModuleDestroy(Sender: TObject);
begin
 with datebase do
  if connected then
   begin
    CloseDataSets;
    Connected:=false;
   end;
 with session do
  if active then
   close

end;

end.

[Antidelphik]

Саму БД писала в Datebase Desktop, пытаюсь начать с азов, пробую алиас для неё через delphi создать, но кучу ошибок типа

Код:

[Error] Unit2.pas(34): Undeclared identifier: 'ExstractFilePath'

к примеру, и ещё там многое не узнает =( мне очень нужно это понять

[SawA]

Сообщение от Antidelphik

:

Код:

      datapth = 'C:\Documents and Settings\1\Ðàáî÷èé ñòîë\ìîÿ ðàáîòà â delphi\ÁÄ';

шот мне эта строчка не нравится я мало работал с БД и в основнома в аксесе поэтому толкового мало чего могу подсказать но мне чет кажется что в адо Конектид следует удалить весь путь до БД переподключить ее и все Адо Квери и Адо тейбл актив поставить заного труе в общем попробуйте

[Кодер]

Если не ошибаюсь то это функция такая ExtractFilePath. И она не имеет никакого отношения к БД
А среда разработки просто напросто не находит ее в ваших модулях

[Antidelphik]

ExtractFilePath - что значит не имеет никакого отношения, у меня же препод так программирует,я кстати всё таки не в свой раздел залезла =) мне просто наверное теперь надо в БД писать =) если хотите помочь, я там =) у меня ещё мнооого вопросов по БД =(

[ApxaHGe1]

ExtractFilePath извлекает путь до файл .. не ?)

[ApxaHGe1]

AddStandartAlias(my_alias,ExstractFilePath(PARAMST R(0)),'PARADOX');

Если разбирать эту строку, то, по-моему.
при добавление алиаса, вы 1. задаете его имя
2.путь к таблицам(в данном случаи таблицы должны лежать рядом с ЕХЕ проекта)
3. Тип базы данных.
Возможно я ошибаюсь, но

ExstractFilePath(PARAMSTR(0))+datapth

будет = например

Код:

С:\Project\C:\Documents and Settings\1\Рабочий стол\моя работа в delphi\БД

так как вы задаете значение переменной datapth выше в коде другое, и потом пытаетесь пострить путь, которого не может существовать