Discussion :

[Etxezarreta]

Bonjour,

Je compte migrer une appli access sur SQL Server, et j'ai un doute: que deviennent les relations entre tables construites dans Access? Je ne trouve ps de réponse, malgré la lecture de l'aide en ligne de microsoft, ainsi que ceci https://argyronet.developpez.com/office/access/mdb2adp/ (il est fait mention de la conservation de l'intégrité référentielle, mais je ne suis pas sûr de ce que cela induit).
Fait-il briser les relations dans le "Outil base de données"->"relations"?

Merci d'avance.

Etxe.

[nico84]

Bonsoir,

Cela dépend de l'outil de transfert. Pour ma part j'utilise SSMA et les relations sont créées dans la nouvelle base. Je pense qu'access le fait aussi...

Attention car ensuite il convient de migrer les requetes complexes en ADO sinon les temps de réponse en réseau peuvent être catastrophiques

[Etxezarreta]

Rebonjour Nico84,

Les requetes sont déja dans le code VBA, dois-je les retravailler ou les transformer en requetes Access?

[nico84]

Si j'ai bien compris la question, les objets access de type "requete" sont nécessairement en DAO donc c'est plutot à éviter avec une base msql

[Etxezarreta]

En fait je n'utilise pas d'objet requete, j'écris le code SQL dans une procédure, j'alimente un recordset ADO avec le résultat, et je donne ce recordset comme source de données à un controle (liste, liste deroulante..).
Exemple pour charger une zone de liste au chargement du formulaire:

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
    Set Me.zlist_Statut.Recordset = Nothing
    str_SQL_Statut = "SELECT DISTINCT StatutJuridiqueSoignant FROM t_StatutJuridiqueSoignants INNER JOIN t_ListeContacts ON t_StatutJuridiqueSoignants.ID_StatutJuridiqueSoignant = t_ListeContacts.FK_Statut_juridique"
 
    Set objRcdset_Source_Statut = New ADODB.Recordset
 
    With objRcdset_Source_Statut
      .Source = str_SQL_Statut
      .ActiveConnection = objConnection
      'doesnt work with 'CurrentProject.connection
      .CursorType = adOpenDynamic
      .LockType = adLockOptimistic
    On Error GoTo RequeteVide
        .Open
    End With
 
    Set Me.zlist_Statut.Recordset = objRcdset_Source_Statut