Problème de typage de variable : incompatibilité de type

Version imprimable

Bonjour j'ai la fonction suivante :

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
Function get_operation_suivante(ByVal op As Integer, cnn As ADODB.connection) As Variant
 
    Dim rst As New ADODB.Recordset
 
    Dim requetteSQL As String
 
    requetteSQL = "SELECT numOperation FROM operation WHERE numOperation > " & op _
                    & " ORDER BY numOperation;"
 
    Debug.Print requetteSQL
 
    rst.Open requetteSQL, cnn
 
    Dim operation As Variant
    Dim i As Integer
 
    For i = 1 To rst.RecordCount
        operation(i) = rst.Fields("numOperation")
    Next i
 
    rst.Close
 
    get_operation_suivante = operation(1)
 
End Function

Mais j'obtiens une 'incompatibilité de type' à la ligne :

Code:

get_operation_suivante = operation(1)

Pourquoi mon type n'est pas valable svp ? J'ai essayé avec as integer en valeur de retour, mais cela ne fonctionne pas non plus.

une idée svp ?

Merci ! :)

bonsoir

tu peux tester cette adaptation

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
Function get_operation_suivante(ByVal op As Integer, _
    cnn As ADODB.Connection) As Variant
 
    Dim operation() As Variant
    Dim i As Integer
    Dim rst As New ADODB.Recordset
    Dim requetteSQL As String
 
    requetteSQL = _
        "SELECT numOperation FROM operation WHERE numOperation > " _
        & op & " ORDER BY numOperation;"
 
    rst.Open requetteSQL, cnn, adOpenStatic, _
        adLockOptimistic, adCmdText
 
    ReDim operation(1 To rst.RecordCount)
    Do While Not rst.EOF
        i = i + 1
        operation(i) = rst.Fields(0).Value
        rst.MoveNext
    Loop
 
 
    rst.Close
    get_operation_suivante = operation(1)
End Function

michel

13/02/2008, 18h59
Zorgloub

J'obtient l'erreur : 'Mémoire insuffisante' avec ta modification Michel.

J'affiche mon rs.recordcount par curiosité et -1. Or j'ai bien des résultats lorsque j'effecture ma requette dans MySQL.
13/02/2008, 19h56
Zorgloub

J'ai résolu mon problème d'une manière pas ultra clean : j'ai fais un select count avant parce que je n'ai jamais pu avoir un rst.recordcount qui marche réelement.

Ensuite j'ai remplacé le tableau par une collection qui est plus souple.

Merci ! :)