[ODBC - VB6 - RDOobject ] HP-SC

Option Explicit
'
Dim rdoEN As rdoEnvironment
Dim rdoCN As New rdoConnection
Dim rdoRS As rdoResultset
Dim rdoQR As New rdoQuery
'

Private Sub cmd_Click(Index As Integer)
    Select Case Index
        Case 0: Call Terminer
        Case 1: Call Execute
    End Select
End Sub
'

Private Sub Execute()

    Dim ChaineSQL As String, Compteur As Long
    Dim Reponse As String, MonRS As rdoResultset
    Dim CeRS As Variant, Boucle As Long, Limite As Long
    Dim cl As rdoColumn

    InitialiseBD

    lbx_Listes.Clear
    lbx_Champ_Table.Clear
    
    For Compteur = 0 To (rdoCN.rdoTables.Count - 1)
        lbx_Listes.AddItem (rdoCN.rdoTables.Item(Compteur).Name)
    Next Compteur

    For Compteur = 0 To (rdoCN.rdoTables.Item("gestionrapportm1").rdoColumns.Count - 1)
        lbx_Champ_Table.AddItem (rdoCN.rdoTables.Item("gestionrapportm1").rdoColumns.Item(Compteur).Name)
    Next Compteur
    
    ChaineSQL = "select * from gestionrapportm1"
    
'---------------------------------------------------------------------
    ' Voici la ligne qui me pose problème car le pilote ODBC ne supporte pas tous les paramètres !    
    Set MonRS = rdoCN.OpenResultset(ChaineSQL, rdOpenStatic)
    'Set MonRS = rdoCN.OpenResultset(ChaineSQL, rdOpenKeyset, rdConcurValues)
    
    With MonRS
        Do Until .EOF
            'Build add item string
            For Boucle = 1 To .rdoColumns.Count
                If IsNull(.rdoColumns.Item(Boucle - 1)) Then
                    MsgBox "OK"
                Else
                    MsgBox "NA"
                End If
            Next Boucle
            .MoveNext
        Loop
        .Close
    End With 'MonRS
'---------------------------------------------------------------------
    
    'MonRS.Close
    Set MonRS = Nothing
    rdoCN.Close
    Set rdoCN = Nothing

End Sub
'

Private Sub Terminer()
    Unload Me
End Sub
'

Private Sub InitialiseBD()
    With rdoCN
        .Connect = "DSN=sc_report_odbc_6_1;UID=user;PWD=mdp"
        .LoginTimeout = 5
        .CursorDriver = rdUseOdbc
        .EstablishConnection rdDriverNoPrompt, True
    End With
End Sub
'

Configuration: Windows XP
Internet Explorer 6.0