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
|
Publib Sub LigneServ()
Dim db as DAO.Database
Dim rs01 as DAO.Recordset
Dim rs02 as DAO.recordset
Dim sql01 as string
Dim sql02 as string
Dim resultat01 as string
Dim resultat02 as string
sql01 = "select distinct users.id, users.imei from users groupby users.id"
set db = CurrentDB
set rs01 = db.openrecordset(sql01)
while not rs01.EOF
sql02 = "select service from users where id = " & rs01.fields(id)
while not rs02.EOF
set rs02 = db.openrecordset(sql02)
resultat02 = resultat02 & rs02.fields(service)
wend
set rs02 = nothing
resultat01 = rs01.fields(id) & "|" & rs01.fileds(imei) & "|" & resultat02
debug.print resultat01
resultat01 = ""
resultat02 = ""
wend
set rs01 = nothing
set db = nothing
db.close
End sub |
probleme : une ligne par service pour un utilisateur
Répondre avec citation
Partager