VB6 - Erreur en sortie d'exécutable

Version imprimable

18/02/2011, 11h47
syntax_error

VB6 - Erreur en sortie d'exécutable
Bonjour,

J'ai écrit un parseur de log en VB6, qui est mis en batch avec dollar universe.

Lorsque dollar universe lance l'exécutable, il a bien le comportement attendu mais dollar universe me retourne une exécution "incidentée".

Voici la façon dont je quitte ma Sub main() :
Code:

1 2 End
Mon exécutable renvoie t'il un code de sortie lorsqu'il se termine ?
Je suppose que la façon dont je quitte le main() est barbare...

Si oui, comment puis-je gérer ce code, ou comment sortir correctement du programme ?

Merci d'avance pour vos réponses
18/02/2011, 12h13
petit rabot

Tu peux envoyer un peu plus de code ....

Avec plaisir :)

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
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
 
Dim cnxString As String
Dim cnxBase As ADODB.Connection
 
Public Sub Main()
On Error GoTo Main_Err
 
 
DECLARATION DES VARIABLES...
 
 
'Attente de connexion : le programme fait une pause
    cnxString = "Provider=MSDAORA.1;Password=" & "****" & ";User ID=" & "****" & ";Data Source=" & "****" & ";Persist Security Info=False"
    Set cnxBase = New ADODB.Connection
    cnxBase.Open cnxString
    While cnxBase.State = adStateConnecting
        DoEvents
    Wend
 
 
MON TRAITEMENT...
 
'Fermeture de la connexion
If cnxBase.State = adStateOpen Then
    cnxBase.Close
End If
 
 
End    
 
Main_Exit:
    Exit Sub
 
Main_Err:
    Select Case Err.Number
        Case 20
            Resume Main_Exit
        Case Else
            MsgBox Err.Number & " - " & Err.Description, vbCritical, "Erreur"
            Resume Main_Exit
    End Select
End Sub