Discussion :

[gino911]

J'ai réalisé un programme en VB6 avec accès à une base accès.
Une fois compilé, le programme fonctionne correctement sur ma machine
de developpement ou est installé VB6.
Sur les machines des utilisateurs, seul le runtime VB6 est installé et dans ce cas
au démarrage du programme lorsque l'on tente l'accès à une table de la Base .mdb je récupère un message programmé "Base Invalide"
et Erreur d'execution "364"

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
Private Sub cmdGo_Click()
    Dim sql
    On Error GoTo Alerte       ' si la base n'est pas la bonne
        openbdr
 
        sql = "select * from Produit" ' requete de test pour verifier la base
        Set rstResultat = dbsBase.Execute(sql)
 
'             écriture du path dans le fichier path.ini
        If fso.FileExists(strName) Then
           fso.DeleteFile strName, True
        End If
        Set strm = fso.CreateTextFile(strName)
        strm.WriteLine (path)
        strm.Close
 
Alerte:
    MsgBox "Base Invalide"
    dbsBase.Close
    Exit Sub
End Sub

Merci pour une piste de résolution de cette erreur



FRANK

[keita]

salut
Il serait peut etre bon de desactiver pour un instant ta gestion d'erreur pour permettre au deboggeur de nous donner la ligne de code qui pose probleme.
A+
EDIT:
Sinon une premiere lecture mefait dire que tes variables objets fso
, rstresultat ne sont pas declarées; je dis bien aa premiere vue.
A+

[gino911]

Merci pour ta réponse rapide.
Pour le bout de code, c'est simplement pour illustrer le passage sur Base invalide qui correspond au resultat du test d'accès à la table produit de la base accès. il n'est que partiel.
Le coeur du problème est le fait que ce programme fonctionne bien uniquement si VB6 est installé sur la station qui lance l'EXE compilé.
Dès lors que l'on execute l'EXE sur une station qui ne dispose que du Run Time VB6, on passe sur "on error goto alerte".
J'en déduis que l'ouverture de la base est impossible et qu'il manque peut être des modules dll.
Sinon je ne sais pas où trouver les code erreurs
du type ERREUR D'EXECUTION "364" qui est envoyé dans ce cas, et qui me permettrait peut être d'orienter les recherches.

Merci malgré tout
Gino911

[Invité]

Salut

Est-ce que le poste ou tu as mis ton exe a Access, si ce n'est pas le cas, il faut mettre dans ton empaquetage une dll tu style MSjet40.dll, va voir sur le forum VB, tu devrais avoir la réponse

Starec

[gino911]

normalemet tous les postes en présence on accès, mais peut -être pas avec toutes les extensions
Je vais essayer d'en savoir plus
Merci pour ta réponse
Gino