Discussion :

[codial]

Bonjour,

J'ai Delphi 7 Pro et je cherche à automatiser au lancement d'une application la recherche de ma base access et si celle ci à changer de place demander ou elle se trouve.

Du style:

Si pas trouvé table.mdb demander ou ce trouve cette base et mettre à jour la connection. Est ce possible ?

D'avance merci.

Cordialement

Codial

[codial]

RE Bonjour,

Excuses!!! j'ai oublié de préciser dans mon post précédent que j'utilise ADOConnection.

Cordialement

Codial

[Graffito]

Bonjour,

Voir la fonction "fileexists" et le "Opendialog" (composant VCL du volet dialogs).

[codial]

Bonjour,

merci d'avoir répondu mais ce n'est pas ce que je cherche.

Ce que je cherche à faire c'est soit au lancement de l'appli ou en cours d'utilisation pouvoir changer de base access à partir d'un opendialog et mettre à jour la connection.

Cordialement

Codial

[Rayek]

Tu peux passer par l'unité AdoConEd

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Uses AdoConEd
 
...
 
procedure ...
begin
  AdoConnection.Connected := False;
  if EditConnectionString(AdoConnection) then
    Showmessage('Affiche la version modifiée '  + Adoconnection.ConnectionString;
end;

[codial]

Bonjour,

Merci pour cette reponse bien que je n'est pas compris le code
if EditConnectionString(AdoConnection) then ???? A expliquer !!

mais j'ai trouvé une solution qui semble me satisfaire:

Code :

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

1
2
3
4
5
6
7
8
9
opendialog1.execute;
  ADOConnection1.Connected:=false;
  ADOConnection1.LoginPrompt := False;//Pas de mot de passe exigé
  ADOConnection1.Mode := cmReadWrite;//Mode lecture/ecriture
  ADOConnection1.ConnectionString:='provider=Microsoft.Jet.OLEDB.4.0;Data Source='+OpenDialog1.FileName+';mode=readwrite;Persist Security Info=False';
  ADOConnection1.Connected:=true;
  {Composant ADOTable : Connection de la table}
  ADOQuery1.connection:=ADOconnection1;
  ADOQuery1.Active:=true;

Cordialement

Codial

[codial]

Bonjour,


j'ai compris le code (Uses AdoConEd) et je vais l'inclure dans le mien.

Encore merci

Codial

[codial]

Bonjour,

j'ai fais un test de mon "appli test" sur un autre PC et logiquement il ne trouve pas le chemin de ma base de donner et naturellement me renvoie un message d'erreur!!!

Comment je peux faire pour gérer cette erreur??

D'avance merci

Codial

[Rayek]

Code :

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

1
2
3
4
5
6
7
8
9
 
Try
  Adoconnection.connected := True;
Except on E:Exception do
  begin
    // Mettre ce que tu veux à la place du showmessage
    Showmessage('Erreur' + E.Message');
  end;
end;

[codial]

Re Bonjour,

merci pour la reponse mais quand je lance mon test sur l'autre PC j'ai toujours le message d'erreur de Delphi.

J'ai oublié quelque chose?


Cordialement

Codial

[Rayek]

Si tu nous disais exactement l'erreur qu'il t'indique ca aiderai un peu plus ^^