Discussion :

[damyrid]

Voila j'ai télécharger une démo d'un tableur, qui contenait des exemples VB, quel fut ma surprise de découvrir le code qui suit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 oRS.ActiveConnection = "provider=msdatashape;data provider=none;"
 
        ' Here we are telling the data shape provider to
        ' create a hierarchy of tables (Flights, FlightDetails)
        oRS.Open " SHAPE APPEND new adInteger As Flight_ID, " & _
              " New adVarChar(30) As Spaceport_Name, " & _
              "((SHAPE APPEND new adInteger As Flight_ID, " & _
              " New adVarChar(30) As Passenger_Name, " & _
              " New adVarChar(30) As Passenger_Seat) " & _
              "RELATE Flight_ID TO Flight_ID) As FlightDetailsChapter", _
                , _
                adOpenStatic, _
                adLockOptimistic

je ne savais pas q'un pouvait creer un recordset sans qu'il soit lier à une bdd. Seulement voila j'aimerais savoir comment se structure un recordset (SHAPE APPEND, je sais pas ce que c'est...)

Merci

[bidou]

oui on peut créer un recordset de plusieurs manières.
Dans l'exemple que tu donnes c'est la création d'un recordset hierarchique
c'est à dire deux recordset imbriqués

[SpaceFrog]

Plutot que d'utiliser une collection de types perso, j'utilise un recordset indépendant, mais sans la shape add

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Set RSlines = New ADODB.Recordset
 
    With RSlines
 
        .Fields.Append "ID_Line", adInteger
        .Fields.Append "Marge", adSingle
        'etc ...
        ' Use Keyset cursor type to allow updating records.
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open
    End With

[damyrid]

Merci