Discussion :

[Jeannot]

Bonjour,

Je vous expose mon souci:

Développement d'une application en VB 6.0 accédant à une base de données MS-Access.

Sur le poste développeur, tout fonctionne à merveille (à partir de l'exe ou de l'IDE)

J'ai fait un package d'installation "setup.exe" par l'intermédiaire de Inno Setup.

J'installe ce package sur une autre machine ....

Le programme se lance correctement, les icones et autres gifs sont présents MAIS lorsque l'application tente de se connecter à la base de données MS-Access ... j'ai le message d'erreur suivant:

error '3704': Operation is not allowed when the object is closed.'

Je rappelle que je n'ai pas ce message sur la machine développeur.

Après quelques recherches, le problème se situe à la ligne

Code :

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

1
2
 
cnxDomainInfos.Open

dans le code:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Private Sub S_LoadDomains(ByRef p_belContainer As BaseElement)
 
 
Dim cnxDomainInfos As ADODB.Connection
Dim rstDomainInfos As ADODB.Recordset
Dim strSQL As String
Dim belEntryDomain As BaseElement
Dim fldDomainsInfos As Object
 
On Error GoTo S_LoadDomains_Error
 
    Set cnxDomainInfos = New ADODB.Connection
    Set rstDomainInfos = New ADODB.Recordset
 
    ' Driver connection definition
    cnxDomainInfos.Provider = "Microsoft.Jet.Oledb.3.51"
    ' Connection string definition
    cnxDomainInfos.ConnectionString = _
        g_strINIMainDatabasePath
 
    ' Database Opening
    cnxDomainInfos.Open
 
    ' Query construction
    strSQL = "SELECT DOM_ID, DOM_NAME, DOM_DESCRIPTION, DOM_OWNER, DOM_CREATION_DATE, " & _
        "DOM_LAST_UPDATE_DATE, DOM_USER " & "FROM DOMAINS " & "ORDER BY DOM_NAME"
 
    rstDomainInfos.Open strSQL, cnxDomainInfos, adOpenForwardOnly, adLockReadOnly
 
    Do While Not (rstDomainInfos.EOF Or rstDomainInfos.BOF)
 
    .
    ..
    ...

Je suppose que j'ai oublié d'inclure quelque chose dans mon package ... mais quoi ?

En installant VB 6.0 sur la machine, l'application fonctionne ... (mais bon ce n'est pas la solution)

Merci d'avance de m'avoir lu, tous vos conseils sont les bienvenus!

A bientot

Jeannot

[Invité]

Bonjour

Est-ce que dans ton empaquetage il y'a bien la référence DAO35.dll (je ne suis pas sûr je n'ai que la DAO360.dll mais c'est dans ce goût) ?

Où recherche une référence similaire sur le poste. Sauf que si tu as installé VB6, cela fausse tout.

Désinstalle le pour voir, et installe cette référence dans la base de registre.

Ce n'est pas garantie, mais c'est une piste à suivre.

[Jeannot]

Bonsoir,

Merci pour votre aide.

J'ai dao360.dll inclus dans mon package.

J'ai trouvé une solution, j'ai changé:

Code :

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

1
2
 
cnxDomainInfos.Provider = "Microsoft.Jet.Oledb.3.51"

en

Code :

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

1
2
 
cnxDomainInfos.Provider = "Microsoft.Jet.Oledb.4.0"

Et maintenant cela fonctionne.

Par contre, je rencontre une autre erreur de temps en temps, ce n'est pas systématique et donc cela dépend de la machine cible:

"Error 711 (Invalid Class String looking for object with ProgID:
MSCOMCTLIB.ProgCtrl.2)"

Cela arrive lors de l'affichage en dynamique d'une série de progress bar ...

Encore merci, bonne soirée

Jeannot

[Invité]

Re

C'est le même type de soucis, un composant mal installé sur une machine.

[Jeannot]

Oui je m'en doute ... mais bon c'est bizarre que ce soit d'une machine à une autre ... il faut que je regarde cela de plus prés.

Encore merci pour votre aide

A bientot

Jeannot