La connexion a été interrompue de manière inattendue ?

**Mady_roar** · 30/05/2012, 17h06

Bonjour à tous,

J'ai un problème de connexion avec mon service.
J'ai une méthode qui retourne un boolean. Tout marchait correctement quand je l'appelle.

Cependant je l'ai redéfini pour renvoyer un "converter" et là, j'ai cette erreur que je ne comprends pas:

Voici le code d'origine:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Public Function Read() As Boolean Implements IService1.Read
        Try
            Dim dtmCurrentDate As DateTime = DateTime.Now
            Dim connection As New clsConnectionBD()
            connection.ConnectionString = "Data Source=NICOLEDE;Persist Security Info=True;User ID=metaV5;Password=metaV5;"
            connection.Type = clsConnectionBD.BDDType.Oracle
            _configMA.PathMeta = "C:\DEV_5\Meta Analysis Dev\"
            _configMA.TypeAppli = clsAppli.Type.MetaService
            '_configMA.PathMeta = "C:\DEV_5\Meta Analysis Dev\"
            connection.Open()
            If connection.IsConnected = False Then
                _elgEvent.WriteEntry("Connexion à la base impossible : " + connection.ConnectionString, EventLogEntryType.Error)
                Return False
            End If
            Dim reader As DbDataReader
            reader = connection.ExecSelectToDR("SELECT IDE_PLN, ALIAS, DAYS, HOURS, IDE_PRJ,APPLICATION, ARGS, IDE_LANG, USR_LOG_PLN, USR_LOG_EXE FROM T_PLN")
            Dim noAppli As Boolean = False
            If reader.HasRows = True Then
                Do While reader.Read()
                    Dim converter As clsConverterRunner = Nothing
                    noAppli = False
                    Select Case reader("APPLICATION").ToString()
                        'Ajouter les connectivités ici.
                        Case BOXIUNV_APPLICATION
                            converter = New clsBOXIUnvConverterRunner(_elgEvent)
                        Case BOXIDOC_APPLICATION
                            converter = New clsBOXIDocConverterRunner(_elgEvent)
                        Case ORACLE_APPLICATION
                            converter = New clsOracleConverterRunner(_elgEvent)
                        Case SQLSERVER_APPLICATION
                            converter = New clsSQLServerConverterRunner(_elgEvent)
                        Case SYBASEIQ_APPLICATION
                            converter = New clsSyBaseIQConverterRunner(_elgEvent)
                        Case DELETE_APPLICATION
                            converter = New clsPlanifDeleteLogRunner(_elgEvent)
                        Case GENIO_APPLICATION
                            converter = New clsGenioConverterRunner(_elgEvent)
                        Case POWER_AMC_APPLICATION
                            converter = New clsPowerAmcConverterRunner(_elgEvent)
                        Case COGNOS_APPLICATION
                            converter = New clsCognosConverterRunner(_elgEvent)
                        Case TALEND_APPLICATION
                            converter = New clsTalendConverterRunner(_elgEvent)
                        Case Else
                            noAppli = True
                    End Select
                    If noAppli = False Then
                        converter.ConfigMA = _configMA
                        converter.IdePln = reader("IDE_PLN").ToString()
                        converter.AliasName = reader("ALIAS").ToString()
                        converter.IdePrj = reader("IDE_PRJ").ToString()
                        converter.Days = reader("DAYS").ToString()
                        If converter.IsStartNow Then
                            converter.UserLoginExe = reader("USR_LOG_EXE").ToString()
                        End If
                        converter.Hours = reader("HOURS").ToString()
                        converter.IdeLangue = reader("IDE_LANG").ToString()
                        converter.UserLoginPln = reader("USR_LOG_PLN").ToString()
 
                        If converter.InitWith(reader("ARGS").ToString()) Then
                            If converter.IsOkToConvert(dtmCurrentDate) Then
                                updateDaysStatus(converter)
                                If Not FifoContains(converter) Then
                                    _fifoConverterRunners.Enqueue(converter)
                                End If
                            End If
                        End If
                    End If
                Loop
            End If
            connection.Close()
            Return True
        Catch ex As Exception
            _elgEvent.WriteEntry(ex.Message + " " + ex.StackTrace, EventLogEntryType.Error)
        End Try
    End Function

Et le code modifié:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Public Function Read() As clsConverterRunner Implements IService1.Read
        Try
            Dim dtmCurrentDate As DateTime = DateTime.Now
            Dim connection As New clsConnectionBD()
            connection.ConnectionString = "Data Source=NICOLEDE;Persist Security Info=True;User ID=metaV5;Password=metaV5;"
            connection.Type = clsConnectionBD.BDDType.Oracle
            _configMA.PathMeta = "C:\DEV_5\Meta Analysis Dev\"
            _configMA.TypeAppli = clsAppli.Type.MetaService
            '_configMA.PathMeta = "C:\DEV_5\Meta Analysis Dev\"
            connection.Open()
            If connection.IsConnected = False Then
                _elgEvent.WriteEntry("Connexion à la base impossible : " + connection.ConnectionString, EventLogEntryType.Error)
                '  Return False
            End If
            Dim reader As DbDataReader
            reader = connection.ExecSelectToDR("SELECT IDE_PLN, ALIAS, DAYS, HOURS, IDE_PRJ,APPLICATION, ARGS, IDE_LANG, USR_LOG_PLN, USR_LOG_EXE FROM T_PLN")
            Dim noAppli As Boolean = False
            Dim converter As clsConverterRunner = Nothing   'visibilité du converter -> valeur de retour
            If reader.HasRows = True Then
                Do While reader.Read()
                    ' Dim converter As clsConverterRunner = Nothing
                    noAppli = False
                    Select Case reader("APPLICATION").ToString()
                        'Ajouter les connectivités ici.
                        Case BOXIUNV_APPLICATION
                            converter = New clsBOXIUnvConverterRunner(_elgEvent)
                        Case BOXIDOC_APPLICATION
                            converter = New clsBOXIDocConverterRunner(_elgEvent)
                        Case ORACLE_APPLICATION
                            converter = New clsOracleConverterRunner(_elgEvent)
                        Case SQLSERVER_APPLICATION
                            converter = New clsSQLServerConverterRunner(_elgEvent)
                        Case SYBASEIQ_APPLICATION
                            converter = New clsSyBaseIQConverterRunner(_elgEvent)
                        Case DELETE_APPLICATION
                            converter = New clsPlanifDeleteLogRunner(_elgEvent)
                        Case GENIO_APPLICATION
                            converter = New clsGenioConverterRunner(_elgEvent)
                        Case POWER_AMC_APPLICATION
                            converter = New clsPowerAmcConverterRunner(_elgEvent)
                        Case COGNOS_APPLICATION
                            converter = New clsCognosConverterRunner(_elgEvent)
                        Case TALEND_APPLICATION
                            converter = New clsTalendConverterRunner(_elgEvent)
                        Case Else
                            noAppli = True
                    End Select
                    If noAppli = False Then
                        converter.ConfigMA = _configMA
                        converter.IdePln = reader("IDE_PLN").ToString()
                        converter.AliasName = reader("ALIAS").ToString()
                        converter.IdePrj = reader("IDE_PRJ").ToString()
                        converter.Days = reader("DAYS").ToString()
                        If converter.IsStartNow Then
                            converter.UserLoginExe = reader("USR_LOG_EXE").ToString()
                        End If
                        converter.Hours = reader("HOURS").ToString()
                        converter.IdeLangue = reader("IDE_LANG").ToString()
                        converter.UserLoginPln = reader("USR_LOG_PLN").ToString()
 
                        If converter.InitWith(reader("ARGS").ToString()) Then
                            If converter.IsOkToConvert(dtmCurrentDate) Then
                                updateDaysStatus(converter)
                                If Not FifoContains(converter) Then
                                    _fifoConverterRunners.Enqueue(converter)
                                End If
                            End If
                        End If
                    End If
                    connection.Close()
                    reader.Close()
                    Return converter
                Loop
            End If
            ' connection.Close()
            ' Return converter
            '   Return True
        Catch ex As Exception
            _elgEvent.WriteEntry(ex.Message + " " + ex.StackTrace, EventLogEntryType.Error)
        End Try
    End Function

J'ai cherché partout sur le net, impossible de corriger mon erreur.
Merci d'avance

Invité · 31/05/2012, 07h39

Ton webService doit contenir une erreur, et il sort sur une exception.

**Bluedeep** · 31/05/2012, 08h31

Envoyé par Mady_roar

Bonjour à tous,

J'ai un problème de connexion avec mon service.
J'ai une méthode qui retourne un boolean. Tout marchait correctement quand je l'appelle.

Cependant je l'ai redéfini pour renvoyer un "converter" et là, j'ai cette erreur que je ne comprends pas:

La définition de l'image est trop faible pour lire quoi que ce soit.

De plus, tu ne donnes pas la ligne qui lève l'erreur.

**Mady_roar** · 31/05/2012, 09h10

Salut,

Tu peux cliquer sur l'image pour l'agrandir

La ligne qui lève l'exception est surlignée.

**Bluedeep** · 31/05/2012, 09h44

Envoyé par Mady_roar

Salut,

Tu peux cliquer sur l'image pour l'agrandir

La ligne qui lève l'exception est surlignée.

En effet, maintenant ça marche : ce n'était pas le cas quand j'ai essayé avant.

**Mady_roar** · 31/05/2012, 10h42

J'ai essayé de dépatouiller mon affaire depuis ce matin.. sans résultat

Je n'arrive pas à saisir d'où vient le pb.

Edit
Bon, j'ai réussi à afficher le converter dans mon appli console en le convertissant en string.

Je me pose donc la question: peut-on renvoyer une classe au lieu de types primitifs tels les string, int & co ?

Bonne journée à tous.

**Bluedeep** · 31/05/2012, 11h38

Envoyé par Mady_roar

Je me pose donc la question: peut-on renvoyer une classe au lieu de types primitifs tels les string, int & co ?
.

Du moment que une instance de classe est sérialisable, on peut la renvoyer en retour d'une méthode d'un web service. (avec quelques contraintes, sur les tableaux à dimensions multiples par exemples, mais c'est assez anecdotique).

Accessoirement, string n'est pas un type primitif (c'est une classe prédéfinie, mais pas un type primitif).

**Mady_roar** · 31/05/2012, 11h49

Merci pour ta réponse.
Oui tu as raison pour la classe string.. un peu facile mon raccourci

La connexion a été interrompue de manière inattendue ?

Services Web

Discussions similaires

Partager

Partager