Discussion :

[Higgins]

Bonjour tout le monde,

Je tourne en rond avec un problème que je n'arrive pas à résoudre.
J'ai une appli qui se connecte à une base de données SQL Server 2008 à l'aide d'un composant TSQLConnection.
J'ai un bout de code qui ressemble à ça:

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
 
var sqlProc:TsqlStoredProc;
     query:TSQLQuery;
begin
    sqlProc:=TsqlStoredProc.create(nil);
    sqlProc.SQLConnection:=maConnexion;
    sqlProc.StoredProcName:=maProcedure;
 
    query:=TSQLQuery.create(nil);
    query.SQLConnection:=maConnexion;
 
    sqlProc.Open;
    while not(sqlproc.eof) do
    begin
         query.sql.clear;
         query.sql.add('select monchamp from matable where autrechamp='+sqlproc.fileds[0].asstring);
        //maConnexion.closedatasets;
        //maConnexion.close;
         query.open;
         ....
         sqlproc.next;
     end

Lors de l'ouverture de la requête, j'ai une erreur:
La connexion est occupée avec un le résultat d'une autre commande.

Si je mets l'instruction

Code :

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

1
2
 
maConnexion.closedatasets;

J'ai bien maconnexion.activestatementcount=0 mais l'erreur apparait quand même.
Si je mets l'instruction

Code :

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

1
2
 
maConnexion.close;

ça fonctionne, mais plus loin dans l'appli j'ai une erreur

Borland.Data.TDBXError: Erreur DBX : Le pilote n'a pas été correctement initialisé. La bibliothèque client est manquante, n'est pas installée correctement, sa version est incorrecte, ou le pilote n'est pas dans le chemin système.

Alors que le pilote a bien été initialisé, puisque j'ai fait plusieurs accès à la base de données depuis le lancement de l'appli.
J'ai essayé

Code :

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

1
2
 
maConnexion.keepConnection:=false

pour forcer la réouverture de la connexion mais sans succès

[Higgins]

info complémentaire:
à un autre endroit du code , j'ai essayé ceci

Code :

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

1
2
3
4
 
///ici ma connexion est ouverte après avoir servi à lire des données
maConnexion.close;
maConnexion.open;

L'appel à maconnexion.open déclenche l'erreur

Erreur DBX: Le pilote n'a pas été correctement initialisé. La bibliothèque client est manquante, n'est pas installée correctement, sa version est incorrecte, ou le pilote n'est pas dans le chemin système

Alors que j'ai utilisé la connexion plusieurs fois avant d'arriver là

[Higgins]

Bon, bah je me suis débrouillé
Pour résumer, je lit les paramètres de connexion dans un fichier XML et comme je suis dans une application service, j'avais dû rajouter Coinitialize(nil) pour ouvrir le fichier XML.
Une fois tous les paramètres chargés je faisais CoUninitialize et, à priori, c'est ça qui rendait l'application instable.