Discussion :

[chaours]

Bonjour,
J'écris un programme dans le fichier .DPR de mon projet et j'ai une procédure qui doit créer un composant dynamique "TADOConnection" :

uses
ADODB, DB;

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  Connection : TAdoConnection;
begin
  Connection := TADOConnection.Create(nil);
  Connection.ConnectionString := ConnStrProvider + ConnStrData + PathApp + ConnStrInfo;
  Connection.Open;
....
  Connection.Free;

Lorsque j'arrive sur le "Connection := TADOConnection.Create(nil);
", Delphi me génère une erreur d'exception "Exception EOleSysError dans le module Test.exe dans 0006242D.
CoInitialize n'a pas été appelé."

Il est a noter que si je fais ça dans une UNIT standard de Delphi, cela fonctionne parfaitement...

Alors, qu'est-ce qui ne va pas ?

Merci de votre aide

[Pascal Jankowski]

Jette un coup d'oeil sur

http://www.developpez.net/forums/viewtopic.php?t=176745

Inspire toi de cela...

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
19
20
21
22
 
// exécute une requête à partir d'un TADOCommand 
// renvoie TRUE si aucune erreur FALSE dans le cas contraire 
function executeSQL(connexionString, requete: string):boolean; 
var ADOC: TADOCommand; 
    indic: boolean; 
begin 
  try 
    indic := true; 
    ADOC := TADOCommand.Create(nil); 
    ADOC.ConnectionString := connexionString; 
    ADOC.CommandText := requete; 
    try 
      ADOC.Execute; 
    except 
      indic := false; 
    end; 
  finally 
    ADOC.Free; 
    result := indic; 
  end; 
end;

[chaours]

Merci de la réponse mais si j'utilise le TADOCommand, ça ne change rien...

J'ai essayé dans une UNIT et là y'a pas de problème.

Pascal, essaie d'écrire la procédure dans le fichier .DPR et tu verras que ça bug...

[Pascal Jankowski]

Effectivement je viens de voir
Tu fais

Code :

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

Connection.Open;

Tu ne peux pas car avec un TADOCommand tu as la propriété Execute car TADOCommand ne renvoit pas d'ensemble de résultats.

[chaours]

Je ne comprends pas...
Moi ça bug à l'exécution sur la 1ère ligne :

Code :

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

1
2
 
ADOCommand := TADOCOmmand.Create(nil);

ou

Code :

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

1
2
 
Connection := TADOConnection.Create(nil);

ça passe chez toi ?

[Pascal Jankowski]

tu as CoInitialize n'a pas été appelé

Donc ajoute

Code :

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

Application.Initialize;

dans le projet source

[chaours]

Merci beaucoup, c'était ça en effet...