Discussion :

[pitango]

Bonjour,

J'ai besoin d'utiliser un TADOConnexion dynamique.

J'essaye déja d'executer ce code en vain.

Code :

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

1
2
3
 
uses
  ...., ADODB, activex;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.Button1Click(Sender: TObject);
var
  ado1: TADOConnection;
begin
  activex.CoInitialize(nil);
  ado1 := TADOConnection.Create(nil);
  try
    ado1.name := 'ado1';
    ado1.Connected := false;
    ado1.LoginPrompt := false;
    ado1.ConnectionString := Machaine; 
    ado1.Connected := true;
  finally
    ado1.Free;
  end;
  activex.CoUnInitialize;
end;

Pour info : cela ne vient pas de machaine , je pense , qui me pose aucun problème avec un tAdoconnection posé un datamodule.

Sur le connected:=true ,je rencontre le message suivant

---------------------------
Project1
---------------------------
Impossible d'ouvrir la base de données demandée dans la connexion 'ETMAD_CEC_FPY'. Échec de la connexion.
---------------------------
OK
---------------------------


Auriez vous une idée d'où pourrait venir le problème ?

Merci

[pitango]

Bon le code que je vous ai posté fonctionne. J'avais un problème de droit d'accès sur la base de données que j'avais restauré.

Merci.