Je ne comprends pas une instructionRésolu

Question

Bonjour, 

Je suis actuellement en stage dans une entreprise de d&#233;veloppement de logiciels dans le cadre d'un BTS info, et on me demande de travailler &#224; partir d'un code d'un autre d&#233;veloppeur, dont il y a une partie que je ne comprends pas (en rouge plus bas).
Si quelqu'un peut me l'expliquer, ce serait g&#233;nial, merci d'avance!!

Public Function ExecselectAdmin(Optional VAverrou As Variant, Optional VAtypeset As Variant, Optional VArecordset As Variant) As Integer

'cette fonction permet d'&#233;x&#233;cuter un ordre sql et de verifier si enreg en rapport avec l'ordre
'l'ordre &#224; &#233;x&#233;cuter a &#233;t&#233; initialis&#233; par la proc&#232;dure InitSQL
'le resultset ou le recordset &#233;x&#233;cut&#233; est sauvegard&#233; dans la variable de niveau projet VPjeuenreg
'les trois param&#232;tres sont optionnels; le premier permet de v&#233;rouiller les enregistrements &#224; lire en passant valeur Cverrou
'le deuxi&#232;me permet de constituer un jeu d'enreg en lecture seule en avant seulement en passant en param la valeur cenavant
'le 3i&#232;me permet de sp&#233;cifier un autre recordset que le recordset g&#233;n&#233;rique VPjeuenreg pour le
'stockage du resultat de la requ&#234;te; cela permettra notamment de g&#233;rer un v&#233;rouillage sur le recordset pass&#233;
'en param&#232;tre jusqu'&#224; ce que un ordre close soit pass&#233; sur ce recordset

Dim ILtypeverrou As Integer
Dim ILtypejeu As Integer
Dim OLrecordset As dao.Recordset
Dim OLresultset As New ADODB.Recordset
Dim OLwerrloop As dao.Error
If IsMissing(VAverrou) Then ILtypeverrou dbReadOnly Else ILtypeverrou VAverrouIf IsMissing(VAtypeset) Then ILtypejeu dbOpenSnapshot Else ILtypejeu VAtypeset

spa666 · Accepted Answer

dbReadOnly et dbOpenSnapshot sont des constantes pour l acces aux donnees.
dbReadOnly signifie : "Interdit aux utilisateurs d'apporter des modifications &#224; l'objet Recordset."
dbOpenSnapshot signifie : "Ouvre un objet Recordset de type Instantan&#233;, identique &#224; un curseur statique(une fois le recordset cree, on ne voit pas les modification en base sans le remettre a jour) ODBC."

wanure · Answer

Plus pr&#233;cisemment, c'est la partie soulign&#233;e que je ne comprends pas!!
If IsMissing(VAverrou) Then ILtypeverrou dbReadOnly Else ILtypeverrou VAverrouIf IsMissing(VAtypeset) Then ILtypejeu dbOpenSnapshot Else ILtypejeu VAtypeset

jrivet · Answer

Salut,

Ceci est tire de la MSDN:

Renvoie une valeur de type Boolean qui indique si unargument facultatif de type Variant a été passé dans uneprocédure.

Syntaxe

IsMissing(argname)

L'argument argname contient le nom d'un argument facultatif de type Variant dans une procédure.

Remarques

Utilisez la fonction IsMissing pour déterminer si des arguments facultatifs ont été fournis lors de l'appel d'une procédure. La fonction IsMissing renvoie la valeur True si aucune valeur correspondant à l'argument spécifié n'a été passée ; sinon, elle renvoie la valeur False. Si la fonction IsMissing renvoie la valeur True pour un argument, l'utilisation de l'argument manquant ailleurs dans le code peut provoquer une erreur définie par l'utilisateur. Si la fonction IsMissing est utilisée sur un argument ParamArray, elle renvoie toujours la valeur False. Pour détecter un argument ParamArray vide, effectuez un test afin de déterminer si la limite maximale dutableau est inférieure à sa limite minimale.

Note   La fonction IsMissing ne fonctionne pas sur les types de données simples (tels que les types Integer ou Double) car, contrairement au type Variant, ces types ne fournissent pas d'indicateur de bit "manquant". C'est pourquoi la syntaxe des arguments facultatifs caractérisés par un type vous permet d'indiquer une valeur par défaut. Si l'argument est omis lors de l'appel de la procédure, il aura la valeur par défaut, comme dans l'exemple ci-dessous :

Sub MySub(Optional MyVar As String = "valeur spéciale")
    If MyVar = "valeur spéciale" Then
       ' MyVar était omis.
    Else
    ...
End Sub

Vous pouvez le plus souvent omettre complètement le test If MyVar en attribuant à la valeur par défaut la valeur souhaitée pour MyVar dans le cas où l'utilisateur omettrait l'argument lors de l'appel de la fonction. Cette méthode est plus rapide et plus efficace.

Voila Si tu veux plus d'explication refet signe

@+
Julien

jrivet · Answer

Re 

Oups je crois que je me suis royalement ch... dessus, c'est pas ca du tout que tu voulais...

Veuillez tous m'excuser pour ce post inutile....

Pour revenir a ton probleme:

Il Fixe les parametres ILTypeVerrou a dbReadOnly, si le parametre VAverrou n'a pas ete specifie.


ENSORE DESOLE POUR LE POST D AVANT
@+

wanure · Answer

Merci &#224; vous deux pour vos r&#233;ponses!!

Je ne comprends pas une instruction

5 réponses

Discussions similaires