Discussion :

[krugarka]

Bonjour,

Le problème est résumé dans le titre, voici quelques précisions :

- L'application VB utilise un recordset contenant le résultat (après mise au format correcte) dun appel à une procédure stockée dans une base SQL Server.

- L'erreur n'intervient pas lorsque l'application est lancée à partir de l'éditeur Visual Basic mais à partir de l'executable.

- L'erreur intervient lors du "rafraichissement" de l'Ultragrid (tableau) dans la form.

Voici la partie de code où intervient l'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    nbEnrgSourceArb = DataEnv.rssp_Liste_ChainArbre.RecordCount ' la procédure stockée
 
    If nbEnrgSourceArb > 0 Then
        Call fct_RsInitColRow(rsChainArb, 3, nbEnrgSourceArb)
        Call fct_RsTransColRow_Format(DataEnv.rssp_Liste_ChainArbre, rsChainArb, 1, "#0.000") ' fonction d'initialisation et mise au format voulu du recordset
 
'on veut ensuite que le résultat contenu dans le recordset serve de source au tableau
    Me.SSU_ChainArb.DataMember = ""
    Set Me.SSU_ChainArb.DataSource = rsChainArb 'l'erreur précisée dans le titre intervient sur cette ligne : Erreur Automation  L'objet invoqué s'est déconnecté de ses clients
    Me.SSU_ChainArb.Refresh
 
    End If

J'aimerais savoir si vous pourriez m'aider à corriger ce problème ou tout du moins à pouvoir me donner une explication.

Merci d'avance. Bonne journée.

[krugarka]

Je m'en suis sorti finalement. voilà la solution si jamais quelqu'un a le même problème :

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
 
 
    Set rsValConstPalArb = New ADODB.Recordset 'redéfinir le recordset
 
    nbEnrgSourceArb = DataEnv.rssp_Liste_ChainArbre.RecordCount ' la procédure stockée
 
    If nbEnrgSourceArb > 0 Then
        Call fct_RsInitColRow(rsChainArb, 3, nbEnrgSourceArb)
        Call fct_RsTransColRow_Format(DataEnv.rssp_Liste_ChainArbre, rsChainArb, 1, "#0.000") ' fonction d'initialisation et mise au format voulu du recordset
 
'on veut ensuite que le résultat contenu dans le recordset serve de source au tableau
    Me.SSU_ChainArb.DataMember = ""
    Set Me.SSU_ChainArb.DataSource = rsChainArb 'l'erreur précisée dans le titre intervient sur cette ligne : Erreur Automation  L'objet invoqué s'est déconnecté de ses clients
    Me.SSU_ChainArb.Refresh
 
    End If