¡¡¡Si puedes pasa de Paradox!!!
Tienes que añadir al Uses la unidad DBIProcs y depues prueba esto:
Sustituye TecnoFoto poe el alias que tu quieras crear y en el evento OnCretae del TDataModule llamas al procedimiento UseLocalData;
function TModulo.DataDirectory: string;
begin
Result := ExtractFilePath(ParamStr(0));
Result := ExpandFileName(Result + 'Bases\');
end;
function TModulo.DataDirectorySegur: string;
begin
{ Assume data is in ..\..\data relative to where we are }
Result := ExtractFilePath(ParamStr(0));
Result := ExpandFileName(Result + 'Seguridad\');
end;
procedure TModulo.SetDatabaseAlias(AliasName: string);
begin
Screen.Cursor := crHourGlass;
try
Database1.Close;
Database1.AliasName := AliasName;
Database1.Open;
finally
Screen.Cursor := crDefault;
end;
end;
procedure TModulo.UseLocalData;
var
DataDir: string;
DataDirSegur: string;
begin
if not Session.IsAlias('TecnoFoto') then
begin
DataDir := DataDirectory;
Session.AddStandardAlias('TecnoFoto', DataDir, 'PARADOX');
Session.SaveConfigFile;
end;
if not Session.IsAlias('TecnoFotoSegur') then
begin
DataDirSegur := DataDirectorySegur;
Session.AddStandardAlias('TecnoFotoSegur', DataDirSegur, 'PARADOX');
Session.SaveConfigFile;
end;
SetDatabaseAlias('TecnoFoto');
end;
