Discussion :

[Sefrou]

je viens de faire mon tout premier recordset et je me rend comtpe qu'il ne me retourne pas les valeurs numériques des clés primaires de tables liés, est-ce normal ? (access 2000, biblio 2.8)

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
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim shipmentList As String
 
    'Skeleton code to create an ADODB recordset
    '
    Dim cnn1 As ADODB.Connection
    Set cnn1 = CurrentProject.Connection
    Dim myRecordSet As New ADODB.Recordset
    myRecordSet.ActiveConnection = cnn1
 
    myRecordSet.Open "SELECT * from [SHIPMENTS] where [SHIPMENTS].IDCompte =25" ' Forms!CONTACTS!IDCompte.Value"
 
 
    myRecordSet.MoveFirst
    While Not myRecordSet.EOF
        For Compteur = 0 To 15
        shipmentList = shipmentList + myRecordSet.Fields(Compteur).Value + vbTab + vbTab
        Next Compteur
 
         shipmentList = shipmentList + vbCrLf
 
        'Go to next record in recordset
        myRecordSet.MoveNext
    Wend
 
MsgBox shipmentList
 
 
    myRecordSet.Close
    Set cnn1 = Nothing
    Set myRecordSet = Nothing

[Sefrou]

j'ai compris mon erreur, c'est une incompatibilité de type de donnée, j'essai de faire une chaine avec des champs numériques