[ODBC - VB6 - RDOobject ] HP-SC

Bonjour,

Je suis à la recherche d'une syntaxe particulière pour lire les données d'une base de données P4 (ServiceCenter).
Jusqu'a maintenant je réussi à lire les noms de tables et les noms de colonnes de chaque table.

Le pilote ODBC n'accepte pas toutes les syntaxes standards que j'ai pu trouver (google). Je cherche un équivalent
de cette page en anglais et/ou français :
http://homepage1.nifty.com/k-umezu/nikki/nikki000116.htm

Voici le code que j'ai de construit actuellement !

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
'

En définitive je sais qu'il s'agit d'un cas très pointilleux mais mieux vaut essayer
que de ne rien faire du tout !

Lupin

Environnement :
ServiceCenter ODBC 6.1.3
Visual Basic 6
Crystal Report 10
Windows XP & 2k3 Server