Discussion :

[damene]

Bonjour tout le monde.

Pour récupérer le chemin de l'Alias dans lequel se trouve ma Base de Données,
j'utilise le bout de Code préconisé par Fares Belhaouas dans la discussion du 31/07/2004 'Récupérer le chemin de l'alias a partir du database' :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
function  GetAliasDataBasePath() : string ;
 var lsParamsDirectory : string ;
 var tStr: array[0..100] of char;
 var Description: DBDesc;
begin
 lsParamsDirectory := 'ALIAS' ;
 StrPLCopy(tStr, lsParamsDirectory, High(tStr));
 DbiGetDatabaseDesc(tStr, @Description);
 result:= StrPas(Description.szPhyName);
end ;

sans oublier de mettre dans les USES, l'unité 'BDE' après avoit supprimé du programme l'instruction 'Abort' que j'utilise pour annuler une opération.

je détermine alors mon chemin.

Surgit pour moi un autre problème lorsque je remets l'instruction 'Abort'.

j'ai le message d'erreur suivant :

instruction attendue, mais expression du type 'Integer' trouvé
erreur fatale 11.

où se situe l'erreur?

Merci.

[Papy214]

et ça se produit en mettant ce Abort à quel endroit ?

[damene]

Bonjour

et ça se produit en mettant ce Abort à quel endroit ?

Abort est utilisé dans le bout de code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForme.tabChoixPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  MessageDlg('Insertion Impossible, ce Libellé existe déjà.'
  ,mtWarning, [mbOk], 0);
  if FormAntecConsult.pnMajTabChoix.Visible=True then
  begin
    FormAntecConsult.pnAjouModifSuppTabChoix.Visible:=True;
    FormAntecConsult.pnValiderAbandonTabChoix.Visible:=false;
  end;
  tabChoix.Cancel;
  Abort;
end;

Dans l'événement OnPostError lorsqu'on insere une donnée qui exite déjà dans la table 'TabChoix' et à la validation par l'intermédiaire d'un navigateur.

[Papy214]

Je ne comprends pas pourquoi ça déclenche cette erreur mais il vaut mieux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Action := daAbort;

[damene]

Je ne comprends pas pourquoi ça déclenche cette erreur mais il vaut mieux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Action := daAbort;

merci