Automatiser la connection ADOConnectionRésolu

Question

Bonjour,

Quelqu'un peut m'expliquer, ou un bout de code, comment faire pour automatiser une connection ADOConnection vers une base access &#224; partir d'un OpenDialog?

Je m'explique: ce que je cherche &#224; faire c'est soit au d&#233;marrage ou en cours d'utilisation de l'appli de pouvoir s&#233;lectionner ou changer, &#224; partir d'un opendialog, de base access.

Dans l'attente

Cordialement

Codial

yannba · Accepted Answer

1 - {A partir d'ici, comment tu fais pour rcuperer ta table ? }
---  mais je n'ai pas bien saisi le sens de la question:
Mon code fonctionne si la table a le meme nom pour toutes tes bases access .... CQFD

2 - Sinon c'est bon &#231;a &#224; l'air de fonctionner!!!
Penses alors &#224; cliquer sur reponse accept&#233;e ...

yannba · Answer

et tu comptes faire comment pour recuperer ta table dans ton fichier mdb ? car sinon voici un bout de code ...
if opendialog1.execute then
assignfile(F,opendialog1.filename)
else exit;
  ADOConnection1.LoginPrompt := False;//Pas de mot de passe exig&#233;
  ADOConnection1.Mode := cmReadWrite;//Mode lecture/ecriture
  ADOConnection1.ConnectionString:='provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilepath(application.ExeName)+ 'MaBase.MDB;mode=readwrite;Persist Security Info=False';
  ADOConnection1.Connected:=True;
  {Composant ADOTable : Connection de la table}
  ADOTable1.connection:=ADOconnection1;
  ADOTable1.TableName:='table1';
  ADOTable1.Active:=True;

yannba · Answer

Autant pour moi :
Pour recuperer ta base *.mdb :

 opendialog1.execute;
ADOConnection1.LoginPrompt := False;//Pas de mot de passe exig&#233;
  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}
  ADOTable1.connection:=ADOconnection1;

{A partir d'ici, comment tu fais pour rcuperer ta table ? }
  ADOTable1.TableName:='compte';
  ADOTable1.Active:=True;

codial · Answer

Bonjour,

merci pour ta r&#233;ponse, mais je n'ai pas bien saisi le sens de la question:

{A partir d'ici, comment tu fais pour rcuperer ta table ? }
  ADOTable1.TableName:='compte';
  ADOTable1.Active:=True;


il me semble que la r&#233;ponse est dans la question, non ?

Sinon c'est bon &#231;a &#224; l'air de fonctionner!!!

Cordialement

Codial

codial · Answer

Bonjour,

Oui c'est exact et c'est le cas, il faut que toutes les bases access aient les m&#234;mes tables avec les m&#234;me structures. En fait je dois pouvoir cr&#233;er une nouvelle base ( ce que je fais &#224; partir d'un mod&#232;le) ou lire des bases archives, lesquelles, il est vrai, ont la m&#234;me struture.

Une question encore:

je cherche &#224; faire un test au d&#233;marrage de l'appli pour voir si la base access existe mais je ne trouve pas le bon code! Tu as une id&#233;e ?


D'avance merci


Codial

codial · Answer

Encore une question sur mon probl&#232;me initial:

Est qu'il y a moyen de mettre &#224; jour la ConnectionString du TADOConnection apr&#232;s l'OpenDialog1.FileName de mani&#232;re &#224; garder la m&#234;me base au prochain lancement?

Cordialement

Codial

yannba · Answer

var filename:string;
begin
//     opendialog1.execute;
     filename:='MaBase.mdb';
     ADOConnection1.LoginPrompt := False;//Pas de mot de passe exig&#233;
     ADOConnection1.Mode := cmReadWrite;//Mode lecture/ecriture
     ADOConnection1.ConnectionString:='provider=Microsoft.Jet.OLEDB.4.0;Data Source='+FileName+';mode=readwrite;Persist Security Info=False';
     if FileExists(filename) then
        begin { le fichier existe }
             ADOConnection1.Connected:=True;
             {Composant ADOTable : Connection de la table}
             ADOTable1.connection:=ADOconnection1;
             ADOTable1.TableName:='compte';
             ADOTable1.Active:=True
        end
     else // le fichier n'existe pas
exit;

yannba · Answer

Est qu'il y a moyen de mettre &#224; jour la ConnectionString du TADOConnection apr&#232;s l'OpenDialog1.FileName de mani&#232;re &#224; garder la m&#234;me base au prochain lancement?

A part de sauvegarder dans un fichier et de le rappeler lorsque tu demarres ton appli ...

codial · Answer

Bonsoir,

merci pour tes r&#233;ponses :

A part de sauvegarder dans un fichier et de le rappeler lorsque tu demarres ton appli ... 

oui c'est ce que je pensais aussi!

cordialement a+

Codial

Automatiser la connection ADOConnection

9 réponses

Votre réponse

Discussions similaires