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
Partager