[VB6 Win 98] Migration d'une application VB6
Fermé
Bonjour Tout le monde
J'ai developpé une applictaion en VB6 qui notemmment accede à une base de données MySQL , ça marche bien sous Win xp mais lorsque je la réexecute sous Win 98 j'ai tjrs une erreur : erreur d'execution '430': la classe ne gere pas soit automation ou l'interface attendue
et ça se bloque à l'instruction : rsselectEmploye.Open sqlselect , AdoConnexion, AdOpenStatic, adLockOptimistic
s'agit_t_il d'une Bibliothéque qui manque? j'ai ajouté manuellement La bibliotheque de Microsoft Data Objects 2.6 qui est était au debut maquante mais c'est la meme chose
Quelqu'un pourra me donner une idée sur ce que je pourrais faire.
J'ai developpé une applictaion en VB6 qui notemmment accede à une base de données MySQL , ça marche bien sous Win xp mais lorsque je la réexecute sous Win 98 j'ai tjrs une erreur : erreur d'execution '430': la classe ne gere pas soit automation ou l'interface attendue
et ça se bloque à l'instruction : rsselectEmploye.Open sqlselect , AdoConnexion, AdOpenStatic, adLockOptimistic
s'agit_t_il d'une Bibliothéque qui manque? j'ai ajouté manuellement La bibliotheque de Microsoft Data Objects 2.6 qui est était au debut maquante mais c'est la meme chose
Quelqu'un pourra me donner une idée sur ce que je pourrais faire.
A voir également:
- [VB6 Win 98] Migration d'une application VB6
- Vb6 - Télécharger - Divers Utilitaires
- Application mobile - Guide
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Desinstaller une application sur windows - Guide
2 réponses
Bonjour,
J'ai exactement le même problème avec le même message que vous. Et je n'ai pas encore de réponse...Si vous aviez trouvé une solution au problème d'exécution sous Win98, merci d'avance de me renseigner.
Cordialement
Bertrand
J'ai exactement le même problème avec le même message que vous. Et je n'ai pas encore de réponse...Si vous aviez trouvé une solution au problème d'exécution sous Win98, merci d'avance de me renseigner.
Cordialement
Bertrand
Bonjour,
dans mon cas ce pb intervient lorsque je veux définir l'imagelist associée à ma listview :
Set resultlist.SmallIcons = result_imageList >>> erreur 430
mais ce qui est formidable c'est que j'utilise une autre listview avec une autre imagelist dans une
autre page de mon projet et que là ça marche :
Set icolist.SmallIcons = icoimagelist >>> fonctionne !!!
J'ai vérifié et revérifié les deux codes et les propriétés des listview, je les ai même copiés côte à côte dans un éditeur de texte. Tout est strictement identique.
L'un fonctionne et l'autre pas !!!!
dans mon cas ce pb intervient lorsque je veux définir l'imagelist associée à ma listview :
Set resultlist.SmallIcons = result_imageList >>> erreur 430
mais ce qui est formidable c'est que j'utilise une autre listview avec une autre imagelist dans une
autre page de mon projet et que là ça marche :
Set icolist.SmallIcons = icoimagelist >>> fonctionne !!!
J'ai vérifié et revérifié les deux codes et les propriétés des listview, je les ai même copiés côte à côte dans un éditeur de texte. Tout est strictement identique.
L'un fonctionne et l'autre pas !!!!
Bon, j'ai passé le pb.
J'ai renommé mon imagelist "result_imageList2", j'en ai créé une autre "result_imageList". Par contre j'ai défini les paramètres des images "personnalisé" sur la taille 8 (ce qui est le format de mes icones).
Ce paramètre était laissé à 0 alors que je définissais des tailles personnalisée (case à cocher), c'est peut être ça qui générait une erreur 430 plutôt que le composant imagelist que j'ai renommé.
Set resultlist.SmallIcons = result_imageList >>> passe maintenant
J'ai renommé mon imagelist "result_imageList2", j'en ai créé une autre "result_imageList". Par contre j'ai défini les paramètres des images "personnalisé" sur la taille 8 (ce qui est le format de mes icones).
Ce paramètre était laissé à 0 alors que je définissais des tailles personnalisée (case à cocher), c'est peut être ça qui générait une erreur 430 plutôt que le composant imagelist que j'ai renommé.
Set resultlist.SmallIcons = result_imageList >>> passe maintenant