[Résolu][Base]Copier une vue dans autre base

[plonge]

Bonsoir à tous,
N'ayant pas trouver de solution pour pouvoir compléter la macro que j'utilise, je fais appel à vous.
J'utilise depuis un certain temps sans problème une copie de table (ici source.odb dans le rép S2) pour basculer les enregistrements dans une autre table (ici source.odb dans le répertoire S1). Lorsque les deux base n'avaient que des tables, tout marché, mais je suis obligé de rajouter une vue, et la macro ne fonctionne plus.
Ma question: comment est il possible de copier également la vue qui est maintenant indispensable à mon application.
Merci de votre aide par avance

[Dude]

Salut,

Ma question: comment est il possible de copier également la vue

Donc, pourquoi parles-tu de "table" ?
Modifie ton titre pour qu'il reflète ce problème : [Base] Copier une vue dans un autre ODB

Tu n'as qu'à exécuter une requête "CREATE VIEW" tout simplement.

[plonge]

Bonsoir Dude,
Oui bien sûr, mais cela veux dire que je vais demander à des personnes qui ne savent pas utiliser base d'aller créer leur propre vue. La macro dans le zip ci-dessus sert à: permettre lorsque je donne une nouvelle version de mon application de transférer toutes les tables d'une version x à une version x+1 ceci étant "transparent" pour l'utilisateur lambda, donc je tiens à rester dans cette optique pour la vue. Copier la vue par comme les tables.

[Dude]

Oui bien sûr, mais cela veux dire que je vais demander à des personnes qui ne savent pas utiliser base d'aller créer leur propre vue.

Qui te parle de ça ?
Tu exécutes par macro ta requête tout simplement.

[plonge]

OK, j'ai mal interprété ta réponse, effectivement il suffit de supprimer la vue dans la version X avant la copie des tables pour éviter l'erreur, copier les tables et recréer la vue dans la version x+1 par la macro.
Est-on d'accord?

[plonge]

Bonjour Dude,
Ca j'avais bien compris. Pour simplifier tout, avant distribution de mon appli je vais supprimer la vue, les tables seront copier comme d'habitude à l'utilisation de la nouvelle version et la vue sera recréé à la suite.
Je clos ce fil.
Cordialement

[Piaf]

Bonjour
Un peu tard comme d'habitude
A tester

Code : Tout sélectionner   AgrandirRéduire

Sub copierTables( URLsource, URLcible )
On Error GoTo fermerConn
Dim oDC as Object, oCTW as Object
Dim oConnSource as Object, oConnCible as Object
Dim oSource as Object, contenuSource as Object, contenuSourceV as Object
Dim oCible as Object, contenuCible as Object, ContenuCibleV as Object
Dim sTable as String, strSQL as String, creervue as String
Dim marequete as Object

   oDC = createUnoService("com.sun.star.sdb.DatabaseContext")

   oSource = createUnoService("com.sun.star.sdb.DataAccessDescriptorFactory").createDataAccessDescriptor
   oConnSource = oDC.getByName(URLsource).getConnection("","")
   oSource.activeConnection = oConnSource
   oSource.commandType = com.sun.star.sdb.CommandType.TABLE
   contenuSource = oConnSource.tables
   contenuSourceV = oConnSource.views
   oCible = createUnoService("com.sun.star.sdb.DataAccessDescriptorFactory").createDataAccessDescriptor
   oConnCible = oDC.getByName(URLcible).getConnection("","")
   oCible.activeConnection = oConnCible
   ContenuCible = oConnCible.Tables
   ContenuCibleV = oConnCible.Views
   oCible.databaseLocation = URLcible
   For Each sTable In contenuSourceV.elementNames
      If ContenuCibleV.hasByName(sTable) Then
         If msgbox("Une vue """ & sTable & """ existe déjà dans le document cible." & chr(10) & _
                 "Souhaitez-vous la supprimer ?", 4+48, "Avertissement") = 6 Then
            contenuCibleV.dropByName(sTable)
         Else GoTo signet1
         End If
      End If   
   signet1:
   Next
   oConnCible.Parent.Databasedocument.store
   For Each sTable In contenuSource.elementNames
      If contenuSourceV.hasByName(sTable)Then
          strSQL =  contenusourcev.getByName(sTable).Command
         creervue =   "CREATE VIEW  """ & sTable & """ AS " & strSql
         marequete = oConnCible.createStatement()
         maRequete.executeQuery(creervue)
         goto signet
      ElseIf ContenuCible.hasByName(sTable) Then
         If msgbox("Une table """ & sTable & """ existe déjà dans le document cible." & chr(10) & _
                 "Souhaitez-vous la supprimer ?", 4+48, "Avertissement") = 6 Then
            contenuCible.dropByName(sTable)
         Else GoTo signet
         End If
      End If   
   oSource.command = sTable
   oCTW = com.sun.star.sdb.application.CopyTableWizard.create(oSource,oCible)
   oCTW.operation = com.sun.star.sdb.application.CopyTableOperation.CopyDefinitionAndData
   oCTW.setTitle("COPIE DES TABLES")
   oCTW.destinationTableName = sTable
   oCTW.useHeaderLineAsColumnNames = true
   oCTW.execute()
   signet:
   Next
   msgbox("Opération terminée. ")
   oConnSource.close()
   oConnCible.close()
   on error goto 0
   Exit Sub
   
fermerConn:
msgbox error,,"Erreur " & err
if not isNull(oConnSource) then oConnSource.close()
if not isNull(oConnCible) then oConnCible.close()
End Sub

A+

[plonge]

Bonsoir Piaf,
Un grand merci à toi, ton complément de macro répond bien à mon premier souhait.
Cordialement

... Je confirme, après test ton complément à la macro fonctionne bien.
Encore merci Piaf

[Bour EmileMarie]

Bonsoir à tous,
N'ayant pas trouver de solution pour pouvoir compléter la macro que j'utilise, je fais appel à vous.
J'utilise depuis un certain temps sans problème une copie de table (ici source.odb dans le rép S2) pour basculer les enregistrements dans une autre table (ici source.odb dans le répertoire S1). Lorsque les deux base n'avaient que des tables, tout marché, mais je suis obligé de rajouter une vue, et la macro ne fonctionne plus.
Ma question: comment est il possible de copier également la vue qui est maintenant indispensable à mon application.
Merci de votre aide par avance

Bonsoir ,
J'étais contente de trouver ta réponse mais malheureusement ton formulaire n'est pas accessible en modification alors j'ai peur de faire des sottises puisque je ne sais pas ce qu'il appelle.
peux-tu refaire une autre version accessible. merci d'avance

[Piaf]

Bonsoir
Ne poste pas dans le fil d'un autre qui en plus est marqué [Résolu].
Poste dans ton fil en faisant référence à ce fil au besoin et en expliquant précisément ce que tu veux obtenir avec un fichier permettant de te répondre (mêmes structures, sans données confidentielle), plutôt que devoir en fabriquer un qui ne correspondrait pas.
A+

[Oukcha]

Bonjour,

Nous nous devons de verrouiller ce fil de discussion. Nous vous rappelons les règles de ce forum et notamment la n° 7
Un sujet = le problème d'une seule personne

Comme vous avez pu le lire, ce sujet est désormais résolu. Si vous avez également ce problème, c'est que ce dernier est différent. Votre configuration n'est peut être pas la même que celle de l'auteur de ce fil.

Dans ce cas et pour des raisons de lisibilité sur ce forum, nous vous demandons de créer une nouvelle question en rappelant que vous avez le même problème que dans ce fil.

Merci de votre participation.