dr_tux:liaison_open_office

Différences

Ci-dessous, les différences entre deux révisions de la page.

Lien vers cette vue comparative

Les deux révisions précédentes Révision précédente
dr_tux:liaison_open_office [2012/03/24 07:50]
admin ancienne révision restaurée après SPAM
dr_tux:liaison_open_office [2012/04/30 10:52] (Version actuelle)
83.201.11.217
Ligne 32: Ligne 32:
  
 Sub CnxMySQLnative Sub CnxMySQLnative
 +vURL = "​sdbc:​mysql:​odbc:​medintux"​
  
-vURL = « sdbc:​mysql:​odbc:​medintux » +' ​Création contexte et connexion 
- +vContexte = CreateUnoService("com.sun.star.sdb.DatabaseContext")
-‘ Création contexte et connexion +
-vContexte = CreateUnoService(« com.sun.star.sdb.DatabaseContext ​»)+
 vSource = vContexte.CreateInstance() vSource = vContexte.CreateInstance()
 vSource.URL = vURL vSource.URL = vURL
-ConnexionMySQL = vSource.getConnection(« root »»")+ConnexionMySQL = vSource.getConnection("root","") 
  
-sSQL = « SELECT ​«  »FchGnrl_IDDos »", ​»"​FchGnrl_NomDos ​»", ​»"​FchGnrl_Prenom ​»", ​»"​FchPat_Adresse ​»", ​»"​FchPat_CP ​»", ​»"​FchPat_Ville ​»", ​»"​FchPat_Cdx ​»", ​»"​FchPat_Email ​»", ​»"​FchPat_NumSS ​»", ​»"​FchPat_Nee ​»", ​»"​FchPat_Titre ​»", ​»"​FchPat_Tel1″ »»"​FchPat_Sexe ​»", ​»"​FchPat_NomFille ​»" FROM «  »indexnomprenom »" , «  »fchpat »" WHERE «  »ID_PrimKey »" = «  »FchPat_RefPk »" AND «  »FchGnrl_IDDos »" = ‘ » & PysMaVar1 & « ‘; » +   sSQL = "SELECT ​""​FchGnrl_IDDos"​",""​FchGnrl_NomDos"",""​FchGnrl_Prenom"",""​FchPat_Adresse"",""​FchPat_CP"",""​FchPat_Ville"",""​FchPat_Cdx"",""​FchPat_Email"",""​FchPat_NumSS"",""​FchPat_Nee"",""​FchPat_Titre"",""​FchPat_Tel1""​,""​FchPat_Sexe"",""​FchPat_NomFille"" FROM ""​indexnomprenom"​" , ""​fchpat"​" WHERE ""​ID_PrimKey"​" = ""​FchPat_RefPk"​" AND ""​FchGnrl_IDDos"​" = '" ​& PysMaVar1 & "'" ​ 
-maRequete = ConnexionMySQL.createStatement() +   ​maRequete = ConnexionMySQL.createStatement() 
-resultat = maRequete.executeQuery(sSQL)+   ​resultat = maRequete.executeQuery(sSQL)
 resultat.next resultat.next
-msgbox resultat.getColumns().getByName(« FchGnrl_NomDos ​»).getString()+'msgbox resultat.getColumns().getByName("FchGnrl_NomDos").getString()
  
 oDoc = ThisComponent oDoc = ThisComponent
 oFields = oDoc.getTextFields oFields = oDoc.getTextFields
 PysEnum = oFields.createEnumeration PysEnum = oFields.createEnumeration
-While PysEnum.hasMoreElements ​Tant quil y en a+While PysEnum.hasMoreElements ​                    'Tant qu'il y en a
  
-tf = PysEnum.nextElement +       tf = PysEnum.nextElement 
- +   ​ 
-if tf.TextFieldMaster.Name = « guid » then ‘Si c’est celui recherché on y met la valeur +    if tf.TextFieldMaster.Name = "nom" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchGnrl_IDDoss »).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchGnrl_NomDos").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « nom » then Si cest celui recherché on y met la valeur +    if tf.TextFieldMaster.Name = "prenom" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchGnrl_NomDos ​»).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchGnrl_Prenom").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « prenom ​» then Si cest celui recherché on y met la valeur +        if tf.TextFieldMaster.Name = "adresse" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchGnrl_Prenom ​»).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchPat_Adresse").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « adresse ​» then Si cest celui recherché on y met la valeur +        if tf.TextFieldMaster.Name = "cpostal" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_Adresse ​»).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchPat_CP").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « cpostal ​» then Si cest celui recherché on y met la valeur +        if tf.TextFieldMaster.Name = "ville" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_CP ​»).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchPat_Ville").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « ville » then Si cest celui recherché on y met la valeur +        if tf.TextFieldMaster.Name = "email" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_Ville ​»).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchPat_Email").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « email » then Si cest celui recherché on y met la valeur +        if tf.TextFieldMaster.Name = "numss" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_Email ​»).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchPat_NumSS").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « numss » then Si cest celui recherché on y met la valeur +        if tf.TextFieldMaster.Name = "nee" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_NumSS ​»).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchPat_Nee").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « nee » then Si cest celui recherché on y met la valeur +        if tf.TextFieldMaster.Name = "titre" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_Nee ​»).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchPat_Titre").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « titre » then Si cest celui recherché on y met la valeur +            if tf.TextFieldMaster.Name = "sexe" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_Titre ​»).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchPat_Sexe").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « sexe » then Si cest celui recherché on y met la valeur +            if tf.TextFieldMaster.Name = "tel" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_Sexe ​»).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchPat_Tel1").getString() ​      
- +     
-Endif +    Endif 
- +     
-if tf.TextFieldMaster.Name = « tel » then Si cest celui recherché on y met la valeur +                if tf.TextFieldMaster.Name = "nomfille" ​then   'Si c'est celui recherché on y met la valeur 
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_Tel1).getString() +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("FchPat_NomFille").getString() ​      
- +     
-Endif +    Endif
- +
-if tf.TextFieldMaster.Name = « nomfille ​» then Si cest celui recherché on y met la valeur +
-tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_NomFille ​»).getString() +
- +
-Endif +
- +
-‘ if tf.TextFieldMaster.Name = « medtt » then ‘Si c’est celui recherché on y met la valeur +
-‘ tf.TextFieldMaster.Content = resultat.getColumns().getByName(« FchPat_NomMedTT »).getString() +
- +
-‘ Endif+
  
 +  ' ​             if tf.TextFieldMaster.Name = "​medtt"​ then   '​Si c'est celui recherché on y met la valeur
 +' ​   tf.TextFieldMaster.Content = resultat.getColumns().getByName("​FchPat_NomMedTT"​).getString() ​     ​
 +    '
 +   '​ Endif
 +    ​
 +                    if tf.TextFieldMaster.Name = "​guid"​ then   '​Si c'est celui recherché on y met la valeur
 +     ​tf.TextFieldMaster.Content = resultat.getColumns().getByName("​FchGnrl_IDDoss"​).getString() ​     ​
 +    ​
 +    Endif
 +    ​
 Wend Wend
  
-oFields.refresh 
- 
-Dim FP as object, lesfichiers() as string 
-Dim FPtype(0) as Integer 
-dim Annee as string 
-dim document as Object 
-document = ThisComponent 
- 
-Annee = Format(Date,​ »d-m-yyyy ») ‘InputBox(« Entrez l’année scolaire pour laquelle le planning a été crée. Par exemple 2010-2011. Merci de respecter ce format afin d’uniformiser les noms de fichiers. Dans la fenêtre qui va apparaître,​ merci de cliquer directement sur le bouton ‘Enregistrer’ sans rien modifier du nom ou du dossier d’enregistrement ») 
- 
-Nom = InputBox(« Entrez le titre du document ») 
- 
-FP = CreateUnoService(« com.sun.star.ui.dialogs.FilePicker ») 
- 
-oDoc = ThisComponent 
-‘oFeuille = oDoc.getCurrentController().getActiveSheet() ‘affecte le nom de la feuille active à la variable feuille 
-‘sC2 = oFeuille.GetCellRangeByName(« C2″).String ‘récupère le texte de la cellule C2 
  
-filename = resultat.getColumns().getByName(« FchGnrl_IDDos »).getString() & « _ » & NOM & « _ » & Annee & « .odt » +oFields.refresh  ​
-url = ConvertToURL(« C:\Program Files\MedinTux-V2.14\Programmes\Documents\ » & filename) +
-oDoc.StoreAsURL(url,​Array()) +
-oDoc.Modified = false ‘avoid Save being called if doc closed without further edits. +
-‘End ‘end normal execution. +
-‘ThisComponent.dispose +
-ThisComponent.Close(True) +
-‘ Deconnexion +
-ConnexionMySQL.Close +
-ConnexionMySQL.dispose +
-vSource.dispose+
  
 End Sub End Sub
Ligne 183: Ligne 156:
  
 <​note>​Dans le modele il y a plusieurs macros comme exemple d’aide à la saisie</​note>​ <​note>​Dans le modele il y a plusieurs macros comme exemple d’aide à la saisie</​note>​
- 
dr_tux/liaison_open_office.txt · Dernière modification: 2012/04/30 10:52 par 83.201.11.217