Problème d'installation et ou run

Bonjour a tout le monde

Je viens d'avoir un problème encore jamais rencontré.
Peut être une idée. 8O

J'ai une appli qui s'installe et tourne sans problème sous windows XP Sp3 avec FW 4 -> sur plusieurs machines.
Je l'installe sur une machine Win 7 prof et là pouf toujours le même problème

"Une exception a été levée par l'initialiseur de type ..."

J'ai pousser la chose un peut plus loin, installation sur windows 8 prof et là pas de problème cela fonctionne parfaitement.

Quelqu'un aurais une explication ou une idée :cry:

il faut mettre des try catch ou chercher le stacktrace dans la fenetre d'erreur
à vu de nez ca serait dans un shared sub new ou une déclaration shared avec new sur la même ligne (shared machin as new truc)

certains bugs n'apparaissent que sur certains environnement, par exemple les paramètres régionaux de windows influencent le comportement du programme (sur la représentation en string des décimaux par exemple, des dates etc...)

ok pol63

Je m'en vais me mettre en quête de cette façon
Je laisse le post ouvert pour l'instant si d'autre visiteurs ont une remarque

a+

Merci encore

A première vue voici ce qui pose problème ( hors ceci fonctionne depuis pas mal de temps ( Win XP, Win Vista, windows 7 ( mon Pc sur lequel je développe les applis, windows 8 )

mais sur un Pc qui vient d'être déployé, oups sa ne va pas

voici le bout de code

Si quelqu'un a une idée

Code:

---

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

Imports System.Runtime.InteropServices.Marshal   Public Class DataControle   Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedBuffer As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer     Function LireINI(ByVal Entete As String, ByVal Variable As String, ByVal FileINI As String) As String Dim PtrCh As IntPtr Dim Lng As Integer Dim Chaine As String   Try PtrCh = StringToHGlobalAnsi(New String(vbNullChar, 1024)) Lng = GetPrivateProfileString(Entete, Variable, "", PtrCh, 255, FileINI) Chaine = PtrToStringAnsi(PtrCh, Lng) FreeHGlobal(PtrCh)   Return Chaine   Catch ex As Exception   Return "Error in File INI " & vbCrLf & ex.Message   End Try   End Function   End Class

---

A première vue voici ce qui pose problème ( hors ceci fonctionne depuis pas mal de temps ( Win XP, Win Vista, windows 7 ( mon Pc sur lequel je développe les applis), windows 8 )

mais sur un Pc qui vient d'être déployé, oups sa ne va pas

voici le bout de code

Si quelqu'un a une idée

Code:

---

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

Imports System.Runtime.InteropServices.Marshal   Public Class DataControle   Private Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedBuffer As IntPtr, ByVal nSize As Integer, ByVal lpFileName As String) As Integer     Function LireINI(ByVal Entete As String, ByVal Variable As String, ByVal FileINI As String) As String Dim PtrCh As IntPtr Dim Lng As Integer Dim Chaine As String   Try PtrCh = StringToHGlobalAnsi(New String(vbNullChar, 1024)) Lng = GetPrivateProfileString(Entete, Variable, "", PtrCh, 255, FileINI) Chaine = PtrToStringAnsi(PtrCh, Lng) FreeHGlobal(PtrCh)   Return Chaine   Catch ex As Exception   Return "Error in File INI " & vbCrLf & ex.Message   End Try   End Function   End Class

---

Oups erreur , ce n'est pas là qu'est l'OS, c'est au moment ou je fais appel a une entrée / Sortie ->

Lecture fichier INI
Ouverture DB SQL

Je pensais avoir un problème de droit, mais rien n'y fait

La je Bloque

Une idée

J'ai serné un peu le problème, du moins je crois
mais le problème est toujours là, why?

J'ai un module dans lequel je déclares mes variables et autres

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Module Generale   Public ServerSql As String = "MonServeur" Public GetData As DataControle.DataControle = New DataControle.DataControle Public Connexion As String = "" Public QueryDesignation As String = "" Public IntervalCheckFiles As String = "" Public FormatDecimale As String = "#0.00" Public KillFilesDat As Boolean = False   End Module

---

Dès que je fais appel a une des ses variables, soit dans le premier form
là message immédia: "System.TypeInitializationException: Une exception a été levée par l'initialiseur de type pour 'LunchX.Generale'. ---> System.Runtime.InteropServices.COMException (0x80040154): La récupération de la fabrique de classe COM pour le composant avec le CLSID {3CFB1A18-1C0B-48B7-BAC3-DDBADCDB6925} a échoué en raison de l'erreur suivante*: 80040154.
à LunchX.Generale..cctor()
--- Fin de la trace de la pile d'exception interne ---
à LunchX.FrmMenu.FrmMenu_Load(Object sender, EventArgs e)
à System.EventHandler.Invoke(Object sender, EventArgs e)



"

Code:

---

1 2 3 4 5

Private Sub FrmMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Connexion = "database=LunchX;server=" & ServerSql & ",1433;User ID=sa;pwd=password"   End Sub

---

une dll COM non registrée ?
un composant perso sur sql server mal installé ?

Je me suis mis en devoir de redéployer une machine avec le minimum requis pour VB.
lors de la génération du projet je reçois maintenant ce message.


là , c'est relativement vague a trouver de l'aide sur Google

Si l'un d'entre vous a une idée elle sera la bien venue, car je planche toujours sur le sujet

Code:

---

1 2 3

'System.Runtime.InteropServices.COMException' s'est produite dans mscorlib.dll   System.TypeInitializationException' s'est produite dans LunchX.exe

---