Delphi 7 Pro avec ADOConnection

Version imprimable

01/02/2006, 17h27
codial

D7 Pro avec ADO

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
01/02/2006, 17h30
codial

Delphi 7 Pro avec ADOConnection

RE Bonjour,

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

Cordialement

Codial
01/02/2006, 21h17
Graffito

Bonjour,

Voir la fonction "fileexists" et le "Opendialog" (composant VCL du volet dialogs).
02/02/2006, 11h15
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

Tu peux passer par l'unité AdoConEd

Code:

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;

Bonjour,

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

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

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

02/02/2006, 15h50
codial

Bonjour,

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

Encore merci

Codial
02/02/2006, 15h59
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

Code:

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;

02/02/2006, 16h29
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
06/02/2006, 08h31
Rayek

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