Discussion :

[vg-matrix]

Salut tout le monde, j'aimerais gérer au mieux la connexion à ma base de données ainsi que
les messages d'erreur lors de la connexion à la base de données.

J'effectue une connexion manuelle avec mot de passe dans le OnCreate de mon DataModule du genre

Code :

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

1
2
3
4
CheminDB := getcurrentdir + '\';
    DataModule1.Adoconnection1.Close;
    DataModule1.Adoconnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ CheminDB +'DataBase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=mypass';
    DataModule1.Adoconnection1.Connected := True;

Mais lorsque la base de données est introuvable, j'ai un nombre important de message d'erreur:

Le fichier ......\DataBase.mdb est introuvable.

Ce que j'aimerais faire, c'est afficher tout simplement "Impossible de se connecter à la base de données"
lorsque le fichier de données est introuvable puis fermer l'application ensuite mais j'ignore comment faire
exactement.

[evarisnea]

essaie avec un traditionnel bloc try catch

Code :

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

1
2
3
4
5
6
7
8
CheminDB := getcurrentdir + '\';
    DataModule1.Adoconnection1.Close;
    DataModule1.Adoconnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ CheminDB +'DataBase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=mypass';
    try
      DataModule1.Adoconnection1.Connected := True;
    catch
      ShowMessage('Impossible de se connecter à la base de données');
    end;

[vg-matrix]

J'ai le message suivant:

Undeclared Identifier 'catch'

[Cl@udius]

Salut

P'tite erreur d'inattention d'Evarisnea:

Code :

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

1
2
3
4
5
6
 
try
  ..
except
  ..
end;

@+

[vg-matrix]

Quand je fais un Try..Except, j'ai le message qui s'affiche puis après avoir cliqué sur 'OK', j'ai un nombre important de message d'erreur comme indiqué plus haut avec par la suite des erreurs d'accès à la mémoire.

[Just-Soft]

Quand je fais un Try..Except, j'ai le message qui s'affiche puis après avoir cliqué sur 'OK', j'ai un nombre important de message d'erreur comme indiqué plus haut avec par la suite des erreurs d'accès à la mémoire.

messages d'erreurs sous IDE Delphi mais si tu lances l'application depuis l'explorateur windows (p.e) tu n'as que ton message qui s'affiche.

[edam]

Salut tout le monde, j'aimerais gérer au mieux la connexion à ma base de données ainsi que
les messages d'erreur lors de la connexion à la base de données.

J'effectue une connexion manuelle avec mot de passe dans le OnCreate de mon DataModule du genre

Code :

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

1
2
3
4
CheminDB := getcurrentdir + '\';
    DataModule1.Adoconnection1.Close;
    DataModule1.Adoconnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ CheminDB +'DataBase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=mypass';
    DataModule1.Adoconnection1.Connected := True;

Mais lorsque la base de données est introuvable, j'ai un nombre important de message d'erreur:

1-remplace getcurrentdir par extractfilepath(params(0)) par exemple, ou met le chemain dans un fichier ini ou autre, si par hasard tu veux l'utilité dans un réseau
2-je vois que tu utilise acces (base non client/serveur) alors tu peut tester l'existence de ta base par fileexiste

[vg-matrix]

messages d'erreurs sous IDE Delphi mais si tu lances l'application depuis l'explorateur windows (p.e) tu n'as que ton message qui s'affiche.

J'ai les mêmes messages d'erreurs sous Delphi et depuis l'explorateur Windows.

2-je vois que tu utilise acces (base non client/serveur) alors tu peut tester l'existence de ta base par fileexiste

Je peux avoir plus d'explication s'il vous plaît?

[edam]

FileExists, fonction
Teste si le fichier spécifié existe.

function FileExists(const FileName: string): Boolean;

Description
La fonction FileExists renvoie True si le fichier FileName existe. Dans le cas contraire, FileExists renvoie False.

[evarisnea]

@Claudius :
effectivement une erreur d'inattention de ma part

@Vg-matrix :
tu parles d'erreurs mais tu ne nous dis pas lesquelles