Faire du sql dans une macro basic open office

gribouille -  
michelhoude Messages postés 47 Statut Membre -
Bonjour,

j'ai créé une base de données avec open office.org base, j'ai inséré un bouton sur un formulaire qui doit éxécuter une macro
j'ai réussi à faire afficher "toto" :

Sub Main

print("toto")

End Sub

mais ce que je veux faire éxactement c'est:
récupérer le contenu de 2 zones de textes de mon formulaire pour éxécuter une requête avec cette macro mais le mode basic ne connait pas "select"

rien qu'une requête simple, je n'y arrive pas:

Sub Main

SELECT MontantTTC FROM Tab_Facture

End Sub

comment faire du sql dans cette macro basic?

merci pour vos indications
Configuration: Windows XP
Internet Explorer 6.0
open office 2.0

2 réponses

  1. michelhoude Messages postés 47 Statut Membre 11
     
    très bonne question, j'avais le même problème que toi

    Pour récupérer tes zones de texte, tu dois d'abord définir une variable qui indentifie ton formulaire

    dim mon_formulaire as object
    mon_formulaire=Thiscomponent.forms.getbyname("Nom du formulaire")

    rem Le nom du formulaire est définie à l'aide du navigateur de formulaire

    REM Pour récupérer des zones de texte, tu fais

    DIM x as string
    x=mon_formulaire.nom_de_la_zone_de_texte.text
    print x

    REM ou nom_de_la_zone_de_texte est le nom de ta boite de texte que tu a ajouté sur ton formlaire

    REM pour exécuter une requête SQL, tu fais

    mon_formulaire.CommandType=com.sun.star.sdb.CommandType.COMMAND
    mon_formulaire.Command="SELECT MontantTTC FROM Tab_Facture "
    mon_formulaire.execute

    Si ton formulaire est lié à une table, le contenue sera affiché dans les zones de texte selon la requête

    JE TE CONSEILLE DE LIRE LE LIVRE PROGRAMMATION OPENOFFICE.RG2 Par Bernard Marcelly et Laurent Godard pour 38euros

    si tu as d'autres question, n'hésite pas
    7
  2. michelhoude Messages postés 47 Statut Membre 11
     
    Une petite correction, j'ai dit le livre OPENOFFICE.RG2
    C'EST UNE ERREUR, C'EST OPENOFFICE.ORG2
    3