Discussion :

[locus]

Bonjour,
je suis stagiaire et je reprends le travail fait par mon prédecesseur durant son stage. Il est nécessaire que je le termine. C'est basé sur du RoseScript un langage similaire au VBscript. Je dois débugger des scripts qui ont été fait pour mon stage.
Le probléme est que je ne connais pas le langage VBscript
Je le lance depuis ROSE et j'ai un message d'erreur
il s'agit du 91 "Object variable or With variable not set"

mais j'ignore comment le résoudre. Je suis en train de débugger un code (qui n'est pas le mien) avec un langage auquel je n'ai jamais touché.

il s'agit du code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function getMtcpSchemaList(ByRef theMtcpDatabase As Module) As String
getMtcpSchemaList = theMtcpDatabase.GetPropertyValue("MySQL", "MtcpSchemasList")
End Function

Cela e marche pas.

Quand je pense avoir trouver la solution en proposant une autre approche, cela bug dans le code qui implémente cette fonction

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
Function GetAllMtcpTables(ByRef theDictionary As Module) As ClassCollection
Dim allMtcpTables As New ClassCollection
Dim theClassCollection As ClassCollection
Dim theMtcpDatabaseList As String
theMtcpDatabaseList=getMtcpDatabaseList(theDictionary)
Dim theMtcpDatabaseArray() As String
Call Split (theMtcpDatabaseArray,theMtcpDatabaseList)Dim theMtcpSchemaArray() As String
Dim theMtcpSchemaList As String
Dim theMtcpSchema As Class
Dim i,j As Integer

For i=0 To UBound(theMtcpDatabaseArray)-1

theMtcpSchemaList= getMtcpSchemaList(getModuleFromModuleName(theMtcpDatabaseArray(i)))
Call Split (theMtcpSchemaArray,theMtcpSchemaList)

For j=0 To UBound(theMtcpSchemaArray)-1
Set theMtcpSchema=getClassFromAbsoluteClassName (theMtcpSchemaArray(j))
allMtcpTables.AddCollection theMtcpSchema.GetNestedClasses()
Next j
Next i
Set GetAllMtcpTables=allMtcpTables
'allMtcpTables.RemoveAll

End Function

J'ai souvent eu des porblémes par la suite avec ce qui est en gras.

Suuriez-vous me dire ou est l'erreur.

merci

[bruno_pages]

Bonjour B...e (),

...J'ai souvent eu des porblémes par la suite avec ce qui est en gras.

Alors il n'y a jamais eu de problème car rien n'est en gras

Plus sérieusement, quand on veut placer du code sur DVP il est préférable de le mettre entre des balises code (bouton #)

Sinon, si je me souviens bien l'affectation de fait avec un 'set' lorsqu'il ne s'agit pas d'un type de base genre un entier, et donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set getMtcpSchemaList = theMtcpDatabase.GetPropertyValue("MySQL", "MtcpSchemasList")

Bruno

[locus]

Navré, je pensais l'avoir mis en forme correctement.

La mise en place du Set a été la premiére chose effectuée mais il y a un message d'erreur suite à la mise en place du SET .
On me signale qu'il y a l'erreur 107 disant que "SET is for objects assignements"