Bonjour,
J'ai récupéré le code suivant d'une base de données ACCESS et je souhaiterais le mettre à jour pour un base Oracle (dans un bloc PL\SQL ou autre solution).

Merci beaucoup à tous pour vos idées...
MarieO

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
 
ReqSQL = "SELECT [DMI_FINESS], [DMI_NUMRSA], [DMI_CODE], count(*) FROM [MCO_DMI] " & _
           "GROUP BY [DMI_FINESS], [DMI_NUMRSA], [DMI_CODE] HAVING count(*)<>1;"
  Set rs = CurrentDb.OpenRecordset(ReqSQL)
  While Not rs.EOF
    ReqSQL1 = "SELECT * FROM [MCO_DMI] WHERE [DMI_NUMDMI] = 1 AND " & _
                 "[DMI_FINESS]=" & Chr(34) & rs.Fields(0).Value & Chr(34) & " AND " & _
                 "[DMI_NUMRSA]=" & rs.Fields(1).Value & " AND " & _
                 "[DMI_CODE]=" & Chr(34) & rs.Fields(2).Value & Chr(34) & ";"
    Set rs1 = CurrentDb.OpenRecordset(ReqSQL1)
    i = 0
    While i <= rs.Fields(3).Value And Not rs1.EOF
      i = i + 1
      rs1.Edit
      rs1!DMI_NUMDMI = i
      rs1.Update
      rs1.MoveNext
    Wend
    rs1.Close
    rs.MoveNext
  Wend
  rs.Close