Supprimer un alias ODBC dans le BDE

Bonjour,

Je fais un programme sous Delphi 7. J'aimerai savoir si il y a moyen de supprimer un alias ODBC automatiquement. Je m'explique pourquoi.

J'aimerai rendre mon programme portable, mais lors de la création de l'ODBC automatiquement, tous ce passe bien. Par contre, dés que je déplace le dossier, il me dit que ma base est bien créer. Super je me dis, mais je me rend vite compte que le lien de l'ODBC est dirigé vers l'encien emplacement et c'est pas ce que je veux!!

Merci de votre attention

P.S. Lien vers l'ODBC automatique

Bonjour ;-)

Il y a une autre solution qui peut remplacer l'utilisation de l'alias.

Placez vos tables (bases de données) dans le même répertoire de l'éxécutable;
dans l'option de TableName mettez '.\' ;

Je pense que c'est claire, bonne chance et bonne programmation.

HAFTARI Fouad

La réponse de Nono40 (voir ton lien ci-dessus) est éminemment claire à ce sujet et tient en une phrase. Je te conseille de la relire et d'en tirer les conclusions qui s'imposent.

May Delphi be with you !

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

May it's  Usefull for ya

var
  GAlias:    string  = 'ES';
  GDriver:   string = szPARADOX;
  GAliasDir: string;
  FParams:   string;
  FDrvName:  string;
  FDelete:   boolean;


Procedure Modif_alias(chemin:string);
var i:integer;
   begin
  for i := 1 to ParamCount do
  begin
    case i of
      1: GAlias    := ParamStr(1);
      2: GAliasDir := ParamStr(2);
      3: GDriver   := ParamStr(3);
    end;
  end;

    if GAliasDir = '' then
 GAliasDir := chemin;

 begin
 GAlias := 'ES' ; //exemple alias ici c'est ES comme nom

    FDelete := True;
  // GAlias := Copy(GAlias, 1, Length(GAlias));
    Delete(GAlias, 0, 2);                    //it's what you seek
end ;

  FDrvName := GDriver;
  //Your driver and server name
  if      (CompareText(GDriver, szPARADOX) = 0)     then
 begin
    if (CompareText(GDriver, szCFGDBSTANDARD) = 0) then FDrvName := szPARADOX;
    FParams := Format('%s:"%s"',  [szCFGDBPATH, GAliasDir]) +
               Format(';%s:"%s"', [szCFGDBDEFAULTDRIVER, GDriver]) +
               Format(';%s:"%s"', [szCFGDBENABLEBCD, szCFGFALSE]);
 end ;
  DbiInit(nil);
  try
    if FDelete then
      try
        DbiDeleteAlias(nil, PChar(GAlias));
      except
      end;

    try
      DbiAddAlias(nil, PChar(StrToOem(GAlias)),
                       PChar(StrToOem(FDrvName)),
                       PChar(FParams), True);
      DbiCfgSave(nil, nil, True);
    except
    end;

  finally
    DbiExit();
  end;
end;

Bonjour à tous,
La remarque de Nono40 dans le lien itachi1988 précise qu'il faut supprimer le lien ODBC via le gestionnaire.
Dois-t-on en conclure qu'il est impossible de supprimer proprement ces liens par du code ?
Si non, pourquoi ?
Merci de votre réponse.
Xpmich

Re Bonjour à tous,
Après consultation du site et principalement des codes, j'ai trouvé la perle qui résout tout :
http://www.delphifr.com/codes/AJOUT-SUPPRESSION-ODBC-SOUS-DELPHI_12227.aspx

PS: la source date de 2002, je l'ai personnellement tester et observer (registre...) et elle fonctionne au poil...
Cordialement,
Xpmich