Centre technique de beubeu

Aller au contenu | Aller au menu | Aller à la recherche

Gestion de tableau en VB

Dim sListeNomProc()
Dim sNbEltListeNomProc
sNbEltListeNomProc = 3
ReDim sListeNomProc(sNbEltListeNomProc-1)

sListeNomProc(0)="F80110"
sListeNomProc(1)="getcollectetdetagen"
sListeNomProc(2)="getcollectetdetagenNb"

For i=0 To UBound(sListeNomProc)

'sCmdProcess = "OSQL -E -b -n" & _
' " -S " & sSrvInstance & _
' " -d " & sNomBase & _
' " -i " & sRepProc & "\SCR\" & sNomProc & ".sql"
'bResult = oProcess.launchCMDAsChild(sCmdProcess, "")
'If bResult <> 0 Then
' Call oTrace.tracer("Probleme lors de la creation de la procédure " & sNomProc & ", consulter les logs")
' 'Call WScript.Quit(-1)
'End If

Wscript.echo "sListeNomProc(i)=" & sListeNomProc(i)

Next