[Résolu][Basic] Tableau et Collection

[GMHB]

Bonjour,
Connaissez-vous les différences existant entre un tableau et une collection ? Quand préférer l'un à l'autre ?
Je vous remercie de votre éclairage.

[zeguedon]

Bonjour,

Je n'en fais pas usage au quotidien, mais un des avantages d'une collection est de permettre d’appeler un élément de la collection par son nom :

Capture d’écran du 2023-04-23 13-43-50.png

Tout est expliqué dans le livre.

@+

[GMHB]

Merci à vous ,
Cela veut dire que les requêtes n'ont pas besoin d'être codées en SQL. ? Si c'est ça, c'est pas mal du tout. Adieu la connexion à la base, l'infernale danse des guillemets et simples quotes ... ?

[Dude]

Salut,

Collection est un objet. Une table mémoire (array) est un type de variable.
Suivant le contexte, on utilise l'un ou l'autre.
Quel est le rapport avec le SQL ?

[GMHB]

Vous avez raison : dans mon enthousiasme à la découverte de l'existence de cette autre forme de tableau, j'ai confondu Table de bdd et Tableau appartenant au langage Basic !
Merci à tous deux

[Dude]

Collection est semble t-il un objet conçu pour s'approcher de la compatibilité avec le VBA de Microsoft.
Je viens de faire quelques tests et a priori, je déconseille de l'utiliser.

Simple exemple :

Code : Tout sélectionner

Sub Main
	oCollec = SetCollec("init","test")
	msgbox oCollec.Count & " > " & oCollec("init") 'retourne 1 > test
	oCollec = SetCollec("foo","bar", oCollec)
End Sub

Function SetCollec(sProp, sVal, optional oCollec)
	if sProp = "init" then
		Dim oCollec as new collection
	endif
	oCollec.Add(sVal, sProp)
	SetCollec = oCollec
End function

Ce code ne fonctionne pas car l'objet est perdu lors de l'appel suivant.

Mieux vaut utiliser la table mémoire, c'est plus sûr.

[Jurassic Pork]

Hello,
il me paraît bien compliqué ton exemple Dude, l'exemple de Zeguedon qui est un exemple de Bernard Marcelly fonctionne :

Code : Tout sélectionner

Sub DictionaryExample
Dim k As String
Dim dico As New Collection
dico.Add("49000", "Angers") ' key = "Angers", Item = "49000"
dico.Add("33000", "Bordeaux")
dico.Add("09000", "Foix")
dico.Add("11350", "Cucugnan")
MsgBox("Number of elements : " & dico.Count)
Do
  k = InputBox("Town : ", "Find postal code", "")
  if Len(k) = 0 then Exit Do
  On Error GoTo inconnu
  MsgBox("Postal code : " & dico(k) )  ' the key is not case sensitive
  suite1:
  On Error GoTo 0
Loop

Do
  k = InputBox("Town : ", "Remove postal code", "")
  if Len(k) = 0 then Exit Do
  On Error GoTo inconnu
  MsgBox("Remove Postal code : " & dico(k) )  ' the key is not case sensitive
  dico.Remove(k)
  suite2:
  On Error GoTo 0
Loop
MsgBox("Number of elements : " & dico.Count)  
Exit Sub

inconnu:
  MsgBox("Town  " & k & "  is unknown", 16)
  Resume Suite1
End Sub

[Dude]

L'exemple montre que l'on ne peut pas utiliser cet objet dans une fonction.

[JPL]

L'exemple montre que l'on ne peut pas utiliser cet objet dans une fonction.

Bien sûr que si ... !

Un objet Collection est une variable comme une autre et peut donc servir d'argument ou de paramètre à une fonction.

Pour faire "marcher" ton code, il suffit de remplacer

Code : Tout sélectionner

Dim oCollec As New Collection

par

Code : Tout sélectionner

Set oCollec = new collection

En effet, la variable oCollec est déjà déclarée dans les paramètres. La clause Optional n'empêche pas son existence, même si son contenu est "missing". Il faut donc éviter de la redéclarer.

JPL

[Dude]

OK j'ai noté qu'au final, il ne fallait pas déclarer mais juste affecter.
Merci

En effet, la variable oCollec est déjà déclarée dans les paramètres. La clause Optional n'empêche pas son existence, même si son contenu est "missing". Il faut donc éviter de la redéclarer.

Si tu passes en mode débogage, tu verras que la déclaration qui est dans un if n'est pas exécutée.

no_problemo.gif

[JPL]

Ce n"est pas le comportement que j'observe en LO 7.5.

1) avec ton code, la compilation donne le message d'erreur suivant:
Variable oCollec déjà définie

2) après modification du code comme décrit plus haut, l'exécution se déroule normalement.
A la sortie de la Sub Main, la collection contient bien les 2 entrées souhaitées (init/test et foo/bar).

JPL