Discussion :

[rolls]

Bonsoir à tous!
J'utilise vb6 pour interfacer Postgresql et j'ai des difficultés pour
mettre le résultat d'une requête 5SELECT) dans un tableau.
j'ai essayé ça mais ca ne marche pas.

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
 
Private Sub bouton_valider_Click()
    Dim idMenu, I, montableau() As Long
    Dim maRequete As ADODB.Recordset
 
    Set maRequete = myConnection.Execute("SELECT  nummenu FROM maTable;")
    If Not maRequete.EOF Then
        idMenu = maRequete!nummenu
        ' maRequete.RecordCount le nombre total d'enregistrement
        For I = 1 To maRequete.RecordCount
            montableau(I) = Val(maRequete!nummenu)
        Next
    End If
    maRequete.Close
    Set maRequete = Nothing
 
End Sub

D'avance merci!

[OhMonBato]

Tu n'aurais pas une erreur "Indice en dehors de la plage" des fois ? Ton tableau n'est pas dimensionné.
Merci par avance pour les éventuels prochains messages de ne pas mettre "ça marche pas" mais de détailler l'erreur qui se produit en indiquant sur quelle ligne elle se produit.

[SfJ5Rpw8]

Tu n'effectue fais pas non plus varier ta position dans tes données .. utilise :

Code :

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

maRequete.MoveNext

pour cela..


tu peu aussi te passer de ta boucle for et :

Code :

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

1
2
3
4
5
  Dim idMenu, I, montableau() As Long
    Dim maRequete As ADODB.Recordset
 
    Set maRequete = myConnection.Execute("SELECT  nummenu FROM maTable;")
    montableau= maRequete .GetRows(-1, , "nummenu")

voir ici :
http://vb.developpez.com/bidou/recor...ordset#LVI-D-7

[Bilxadim]

Salut,
Je ne vois pas quelque part où vous avez positionnez votre curseur sur le premier enregistrement pour qu'il commence le remplissage du tableau à partir du premier enregistrement.

Code :

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

maRequete.MoveFirst

Bon courage
Cordialement