Discussion :

[Ric500]

Bonjour à tous! Et bon weekend de Pentecôte !

Tout est dans le titre!

Je construis actuellement une petite appli (A) qui enregistre dans des tables toutes les propriétés des objets d'une base-cible (B). Dans des formulaires appropriés, je peux ensuite enregistrer des valeurs souhaitées pour une propriété en regard des valeurs d'origine. Je lance ensuite un petit moteur de mise à jour qui corrige les propriétés de la BD-cible (B).

Pas de problème pour les formulaires et les états; le moteur importe l'objet (form ou report) le modifie en local (hidden), le sauve et l'exporte dans la cible.

Çà se complique pour les tables et requêtes: j'ai abandonné l'idée pour les tables dans la mesure où c'est très rare et où elles peuvent être liées et avoir des relations complexes.

J'aimerais cependant conserver la possibilité pour les requêtes: tout va bien dans mon moteur jusqu'au moment où après avoir importé l'objet requête distant, j'essaie de modifier la propriété SQL. Evidemment cette requête mentionne des tables qui ne sont pas présentes dans ma base A et refuse de modifier le SQL, je ne peux donc pas l'enregistrer et l'exporter dans B.

Du coup je me demande s'il serait possible de modifier les propriétés de la requête directement dans la base B (à travers un WorkSpace, peut-être) mais je n'ai pas idée du comment...

Pensez-vous que cela soit possible?

Merci d'avance

[micniv]

Bonjour, Ric500

A priori , tu peux modifier le sql d'une requête dans une base distante.
Par une instruction comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
oDbDistante.QueryDefs("r_cbo_phn").SQL = "SELECT ... "

CDLT

[marot_r]

Bonjour.

Perso je stockerai le SQL des requêtes dans une table.

Je travaillerai ce SQL dans la table puis je modifierai les requêtes de la source avec ce SQL.

Comme cela Access ne fera pas de contrôle avant que ce soit vraiment nécessaire.

A+

[Ric500]

Merci micniv et marot_r pour vos réponses!

Mon but est de pouvoir atteindre toutes les propriétés de l'objet distant comme je le fais avec les formulaires et états:

@micniv

A priori , tu peux modifier le sql d'une requête dans une base distante.
Par une instruction comme :

1
2 oDbDistante.QueryDefs("r_cbo_phn").SQL = "SELECT ... "

Est-ce que çà veut dire que je peux changer TOUTES les propriétés de la même manière (Valeurs distinctes...) ? Et ensuite sauver la requête distante?

@marot_r

Je travaillerai ce SQL dans la table puis je modifierai les requêtes de la source avec ce SQL.

Comme cela Access ne fera pas de contrôle avant que ce soit vraiment nécessaire.

J'enregistre bien le SQL (et les autres propriétés) dans une table : j'ai donc le SQL (ou d'autres propriétés, j'insiste) dans une colonne ppt_valeur avec la propriété modifiée dans une autre colonne ppt_valeur_cible.

C'est au niveau du moteur de mise à jour que je cale comment m'y prendre ?

[Ric500]

Bonjour,

Je me permets de préciser ma question à micniv:

Est-ce que çà veut dire que je peux changer TOUTES les propriétés de la même manière (Valeurs distinctes...) ? Et ensuite sauver la requête distante?

En d'autres termes, comment changer la propriété "Updatable" (par exemple), qui est en lecture seule dans la collection QueryDefs, d'une base distante ouverte dans un WorkSpace?

J'espère que ma demande est plus claire.

[micniv]

Dèjà, tu peux remplacer le SQL de toute requete enregistrée dans la base distante.

Quant à modifier la propriété .updatable, le mieux est de faire un test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 oDbDistante.QueryDefs("maRequete").updatable = TRUE

CDLT

[Ric500]

Merci micniv,

Il ne s'agissait pas seulement de la propriété Updatable, tu l'auras compris: le but était de pouvoir mettre à jour des propriétés d'une collection d'objets en traitement par lots.

d'ailleurs, le petit test ci-après fonctionne correctement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub TestPPT_QRY()
    Dim wrkDefault As Workspace
    Dim dbs As Database
    Dim qd As QueryDef
    Set wrkDefault = DBEngine.Workspaces(0)
    Set dbs = wrkDefault.OpenDatabase("G:\BdD\BTSystem\LG2\Work_Ric.accdb")
    Set qd = dbs.QueryDefs("R1_ListeCdes_Autre")
    qd.ODBCTimeout = 20
    Set qd = Nothing
    Set dbs = Nothing
End Sub

Je passe donc ce topic à "résolu". Merci à vous pour votre aide