déclaré une variable en entrée/sortie dans une sub

Version imprimable

13/06/2007, 16h06
dubidon

déclaré une variable en entrée/sortie dans une sub

Bonjour, voila j'ai une sub dans une classe. Je fais appel à elle à partir d'une form et je voudrais envoyer un booleen qui devra etre mis à true ou false dans ma sub se trouvant dans ma classe et pouvoir récupérer le true ou false dans le code de ma form et pouvoir faire évoluer mon code en fonction de çà

d'avance merci

@++
dubidon
13/06/2007, 17h03
Pol63
dans ces cas là on fait une function et non une sub
Code:

1 2 3 4 5 6 7 8 public sub faitqqch() ... end sub public function calculeqqch() as boolean end function
plusieurs possibilités d'affectation :
calculeqqch = valeur
ou return valeur
return arrete l'execution de la function alors que l'autre méthode continue l'execution

exemple
Code:

1 2 3 4 public function toggle(valeur as boolean) as boolean return not valeur end function
utilisation :
Code:

1 2 monBool = toggle(monBool)
dans le pire des cas tu peux aussi faire exactement ce que tu voulais avec byref
Code:

1 2 3 4 public sub (ByRef param as boolean) param = not param end sub
byref spécifie que l'on travaille avec la variable qui a été passé et non une copie (byval)

peu conseillé tout de meme
et pour un objet byref ou byval ont un effet type byref

eh bien j'ai bien mis le byval, comme je l'avais fait avec mon dataset que je renvoyais, autant pour le dataset le renvoie ce fait bien, autant pour le booleen rien ne se passe

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
 
    Public Sub ExecReq(ByVal req As String, ByVal table As String, ByVal datas As DataSet, ByVal booleen As Boolean)
 
        'on vide le dataset 
        'ObjetDataSet.Clear()
        Try
            'Instanciation d'un Objet Connexion
            objetconnection = New SqlConnection
            'Donner à la propriété ConnectionString les paramètres de connexion
            objetconnection.ConnectionString = strConn
            'Ouvrir la connexion
            objetconnection.Open()
            'Instancier un objet Command
            ObjetCommand = New SqlCommand(req)
            'Instancier un objet Adapter
            ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
            'initialiser l'objet Command
            ObjetCommand.Connection() = objetconnection
            'initialiser l'objet OleDBComandBuilder (sinon pas d'update)
            ObjetCB = New SqlCommandBuilder(ObjetDataAdapter)
            'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
            ObjetDataAdapter.Fill(datas, table)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            booleen = False
        Finally
            If Not (objetconnection Is Nothing) Then objetconnection.Close()
        End Try
 
    End Sub

donc en gros dans ma form ou je fais appel à cette focntion, j'initialise mon booleen à true mais si j'ai une erreur j'aimerais le mettre a false comme çà je peut faire un test pour voir si tout s'est bien passé ou non.
Vu que j'envoie plusieurs donné (requète, table, dataset et booleen) et que je reçois le dataset et le booleen est ce que faire une focntion est toujours possible ??

@++
dubidon

Citation:

Envoyé par dubidon

eh bien j'ai bien mis le byval, comme je l'avais fait avec mon dataset que je renvoyais, autant pour le dataset le renvoie ce fait bien, autant pour le booleen rien ne se passe

j'ai dit BYREF pas B§YVAL pour que les modifications de la valeur soir possible

voici le code possible avec une fonction :

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
 
    Public function ExecReq(ByVal req As String, ByVal table As String, ByVal datas As DataSet) As Boolean
 
        'on vide le dataset 
        'ObjetDataSet.Clear()
        Try
            'Instanciation d'un Objet Connexion
            objetconnection = New SqlConnection
            'Donner à la propriété ConnectionString les paramètres de connexion
            objetconnection.ConnectionString = strConn
            'Ouvrir la connexion
            objetconnection.Open()
            'Instancier un objet Command
            ObjetCommand = New SqlCommand(req)
            'Instancier un objet Adapter
            ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
            'initialiser l'objet Command
            ObjetCommand.Connection() = objetconnection
            'initialiser l'objet OleDBComandBuilder (sinon pas d'update)
            ObjetCB = New SqlCommandBuilder(ObjetDataAdapter)
            'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
            ObjetDataAdapter.Fill(datas, table)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            return false
        Finally
            If Not (objetconnection Is Nothing) Then objetconnection.Close()
        End Try
        return true ' ou ExecReq = true , return sort en plus d'affecter la variable
    End Sub

ensuite pour l'utilisation tu fais

Code:

1
2
3
4
5
6
 
if execreq(tes parametres) = false then
'ca s'est pas bien passé
else
' c'est ok
end if

13/06/2007, 17h42
dubidon

ralala la fatigue commence a se faire sentir en tout cas merci a toi, je ne savais pas qu'on pouvais passé des variable sen paramètre dans une fonction et avoir des données en retour.

En tout cas tout fonctionne parfaitement bien grâce a toi

merci

@++
dubidon