Добрый день!

Подскажите, пожалуйста, создаем таблицу VFP через BDE+ODBC. Таблица создается в том же каталоге, что и исполняемая программа, которая ее создает. Как можно задать путь, если мы хотим создать таблицу в другой папке?

Заранее благодарен!

Sergey Sizov, приветствую!

Вот весь код:

procedure TForm1.CreateDatabase;
var
List: TStringList;
AliasName,DriverName,DatabasePath: string;
begin
AliasName := 'Test3';
DriverName := 'Driver para o Microsoft Visual FoxPro';
DatabasePath := 'D:\OBVED\F155NEW\DATA\';
try
List := TStringList.Create;
with List do
begin
Add('LANGDRIVER=dBASE RUS cp866');
Add('ODBC DSN=Test');
end;
dbODBC.Session.AddAlias(AliasName,DriverName,List);
dbODBC.AliasName := AliasName;
dbODBC.Connected := True;
CreateTable('Test.dbf');
finally
dbODBC.Session.DeleteAlias(AliasName);
List.Free;
end;
end;

Подскажите, если в функцию CreateTable передать полный путь D:\OBVED\F155NEW\DATA\ то программа вылетает с ошибкой "Invalid table name".

Код функции CreateTable:

procedure TForm1.CreateTable(ATableName: string);
var
Table: TTable;
begin
Table := TTable.Create(nil);
with Table do
try
FieldDefs.Clear;
IndexDefs.Clear;
DatabaseName := dbODBC.DataBaseName;
TableName := ATableName;
FieldDefs.Add('f1',ftString,10,False);
CreateTable;
finally
Table.Free;
end;
end;