erreur d'execution '-2147217904 (80040e10)'

Question

Bonjour a tous !!! 

Je suis tout nouveau sur le sie site et g besoin d'aide de developpeur plus exp&#233;riment&#233; . Je fais une application sous VB dans le cadre d'un stage en entreprise qd j'execute mon programme l'erreur suivante apparait [erreur d'execution '2147217904 (80040e10)' ] j'aimerai comprendre d'ou vient cet erreur ?? 

En vous remerciant d'avance .

Groargreugro · Answer

Que fait ton programme au moment ou l'erreur survient ?

PCPT · Answer

salut,

il manque des objets ou des r&#233;f&#233;rences sur le PC sur lequel tu as install&#233; ton appli.

methodmay31 · Answer

Au moment du bug mon programme s'arrete sans possibilit&#233; de faire quoi que ce soit ... En fait g repris une application d&#233;ja pr&#233;existante et j'esaye de la comprendre  mais avec ce genre d'erreur rien ne met facilit&#233; je suis en stage et c'est pour une entreprise qu'est ce qu'ils vous faudrait pour d&#233;tecter la panne ?

methodmay31 · Answer

Kel pourrait etre ces objets ou r&#233;f&#233;rence qui manquent n'aurait tu pas une id&#233;e car lors de l'installation il ne me sembl&#233; pa y avoir un quelconque probl&#232;me ???

PCPT · Answer

je t'avoue que l&#224;..., &#224; part &#234;tre sur le PC concern&#233;, y'a pas 36 solutions.

zip ton projet et d&#233;pose sur un FTP mais il est possible que le
composant manquant sur ton PC soit pr&#233;sent sur le mien et donc que
l'erreur ne se produise pas (si c'est bien de &#231;&#224; qu'il s'agit)...

PCPT · Answer

l'install ... de quoi, tu n'as pas les sources?

et c'est sous quel OS?

methodmay31 · Answer

je suis sous windows 2000 mais g essay&#233; sous Xp le meme probleme surgit 

Private Sub BtnSuivant_Click()
Dim DateJour As String
Dim importance As String
Dim source As String
Dim metier As String
Dim salairedem As String
Dim dispo As String
Dim debutcarriere As String
Dim mobilite As String
Dim NumCandidat As Integer
Dim LienCV As String
Dim notes As String
Dim Langues As String



NumCandidat = CInt(LblCandidat.Caption)
Candidat = CInt(LblCandidat.Caption)
DateJour = TxtDateJour.Text
importance = CmbImportance.Text
source = TxtSource.Text
metier = TxtMetier.Text
salairedem = TxtSalaireDemande.Text
dispo = TxtDispo.Text
debutcarriere = TxtDebutCarriere.Text
mobilite = TxtMobilite.Text
LienCV = LblCV.Caption
notes = "Aucune note"



Langues = ""
I = 0
Do While I < LstLangues.ListCount
If LstLangues.Selected(I) = True Then
Langues = LstLangues.List(I) & ", " & Langues
End If
I = I + 1
Loop
If Langues = "" Then
Langues = "Aucune"
End If


If IsNumeric(debutcarriere) True And IsNumeric(salairedem) True Then


Call inscription_candidat(Candidat, DateJour, importance, source, metier, salairedem, dispo, debutcarriere, mobilite, LienCV, notes)
Call inscription_etatcivil(TxtNom.Text, TxtPrenom.Text, TxtNaissance.Text, TxtLieuNaissance.Text, TxtNationalite.Text, TxtAdresse.Text, TxtVille.Text, TxtCP.Text, CmbRegion.Text, TxtPays.Text, TxtFixe.Text, TxtPortable.Text, TxtFax.Text, TxtMail.Text, TxtPermis.Text, CmbNivo.Text, Langues)
Form4.Hide
Form5.Show
Else
Msg = "V&#233;rifiez que les champs [Salaire Demand&#233;] et [D&#233;but Carri&#232;re] sont bien des donn&#233;es chiffr&#233;es." & Chr(13) & " Ensuite essayez de nouveau."
        Title = "Erreur de saisie"
        Style = vbOKOnly + vbExclamation
        reponse = MsgBox(Msg, Style, Title)
End If


End Sub

Ceci est le code d'insertion d'un profil dans la BDD gestion CV sous access

methodmay31 · Answer

quand je lance une partie de mon code sous VB il me demande une feuille de d&#233;marage ou Sub Main () n&#233;cessaire ke dois je faire ?

Je commence a peine le VB et la j'essaye de reprendre une   application qui tourn&#233; d&#233;ja avant donc je part d'un existant et j'essai de comprendre comen ca se passe mais y'as des erreurs un peu partout donc je sais plus tro ou donner de la tete.....

PCPT · Answer

si ce code est sur ta Form1, menu projet -> propri&#233;t&#233; de TonProjet
>> et tu choisies ta Form1 dans le combo "objet de d&#233;marrage"

PCPT · Answer

ohhhh.... je crois que j'y suis. tu n'aurais pas ouvert juste des modules ou des forms?

pour ouvrir un projet il faut ouvrir le fichier dont l'extension est .vbp

methodmay31 · Answer

G lanc&#233; le fichier .vbp g encore d'autres nouveaux soucis notamment il me dit qu'il me manque la libraire MSDN tout d'abord que je ne trouve pas sur le cd Visual Studio qui est a ma disposition est il possible de la t&#233;l&#233;charger ??

PCPT · Answer

non, pas sur Kro$oft en tout cas. elle est fournie de m&#233;moire avec la version VB6 PRO (en 2CD).


mais en aucun cas elle n'est indispensable &#224; l'ouverture d'un projet...

methodmay31 · Answer

Elle n'est pa indispensable a louverture de mon projet le projet et lanc&#233; au moment de l'&#233;x&#233;cution le logiciel me dit erreur de compilation . Le programme utilise une fonction contenu dans cette librairie sans elle je ne peut surement pas faire tourner mon Appli non ??

PCPT · Answer

la "librairie" c'est soit les r&#233;f&#233;rences, donc un composant non pr&#233;sent
sur ton PC (VOIR MON PREMIER MESSAGE !!!), soit le L de TLB, soit le L
de DLL (donc m&#234;me principe). pareil pour ocx ou n'importe quel objet d&#233;pendant !

methodmay31 · Answer

Chr(13) a koi sert cette commande sous Vb ?

methodmay31 · Answer

Private Sub Btn_ValidEmp_Click()
    CheminBase = nomdefichier
    Selection_BDD.Hide
    ACCUEIL.Show
    If CheminBase = "" Then
        CheminBase = "f:\Gestion de CV\baseCV.mdb"
    End If
    MsgBox ("Base selectionn&#233;e : " & CheminBase)


End Sub

J'ai un petit souci avec ce code Au lieu de m'inscrire un chemin de base pr&#233;s&#233;lectionn&#233; avec un explorateur il m'affiche le chemin f:\cheminbase...... qui devrait normalemen s'afficher si aucun chemin n'est entr&#233;  

Savez vous pourquoi ??

PCPT · Answer

chr(13) = caract&#232;re dont le code Ascii = 13, -> retour chariot (touche entr&#233;e)



pour ton code, au click, si le chemin est vide alors il re&#231;oit un
chemin en dur. en aucun cas ton code ne comporte d'appel &#224; une
"CommonDialogBox"

methodmay31 · Answer

ok pour le Chr(13) 

Le chemin ne devrait pas etre vide car en amont j'ai s&#233;l&#233;ctionn&#233; tout un chemin et quand je clique sur le bouton Valider le chemin qui s'inscrit  et celui qui est mit par d&#233;faut si aucun chemin n'est s&#233;l&#233;ctionn&#233;.Au clique sur le bouton Ok dont le code est le suivant Private Sub Btn_OK_Click()
    Dim compteur As Long


    For compteur = 0 To Liste_Fichier.ListCount - 1
        If Liste_Fichier.Selected(compteur) Then
            nomdefichier = Liste_Fichier.Path & "" & Liste_Fichier.List(compteur)
        End If
    Next compteur
    Libelle_Chemin.Caption = nomdefichier
End Sub

La variable CheminBase devrait se remplir ( Voir ci dessus ) du Libelle_Chemin mais seule le chemin par d&#233;faut s'inscrit dans mon message Box Qui permet de voir le nom du chemin retenu en sorti de s&#233;l&#233;ction de la BDD en question 

Qu'est ce qu'un CommonDialogBox ??

PCPT · Answer

ta variable CheminBase n'est pas utilis&#233;e dans ton Click_OK. je ne vois pas... (le lien ;) )



CD = bo&#238;te affich&#233;e lors d'un "Fichier > Ouvrir"

Erreur d'execution '-2147217904 (80040e10)'

19 réponses

Discussions similaires