Instruction SQL dans OPENOFFICE BASIC
michelhoude
Messages postés
47
Statut
Membre
-
marc sqxrlx -
marc sqxrlx -
Bonjour,Je navigue dans une base de donnée à l’aide d’un formulaire dans openoffice 2.3
Comment extraire la valeur d’un champ et la « stocker » dans une variable dans un code oO basic.
Sous ACCESS de Microsoft, c’est facile,
REM –Extraire un champs de base de donnée
Dim variable as string
Variable=Nom_du_formulaire.nom_du_champs
REM—pour exécuter une requête
Nom_du_formulaire.recordset.recordsource= « SELECT * FROM CLIENT WHERE NOM=critere() »
Mais dans oO basic, ça ne fonctionne pas comme ça. Comment écrire le code équivalent
Cordialement
Michel Houde
Comment extraire la valeur d’un champ et la « stocker » dans une variable dans un code oO basic.
Sous ACCESS de Microsoft, c’est facile,
REM –Extraire un champs de base de donnée
Dim variable as string
Variable=Nom_du_formulaire.nom_du_champs
REM—pour exécuter une requête
Nom_du_formulaire.recordset.recordsource= « SELECT * FROM CLIENT WHERE NOM=critere() »
Mais dans oO basic, ça ne fonctionne pas comme ça. Comment écrire le code équivalent
Cordialement
Michel Houde
A voir également:
- Instruction SQL dans OPENOFFICE BASIC
- Openoffice - Télécharger - Suite bureautique
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual basic - Télécharger - Langages
- File renamer basic - Télécharger - Gestion de fichiers
- Visual basic editor - Télécharger - Langages
1 réponse
j'ai eu la réponse sur open office org
il faut obtenir les objets un par 1
Accès controles du Formulaire
option explicit
Sub Main
dim PysForm as object
dim PysCtrl as object
'thiscomponent : pour simplifier le document courant
'DrawPage : la "couche" dans laquelle sont dessinés les contrôles
'Forms : la collection des formulaires
PysForm = thiscomponent.DrawPage.Forms.GetByName("MainForm")
PysCtrl = PysForm.GetByName("PushButton")
'Modification du titre du bouton
PysCtrl.Label = "test"
PysCtrl = PysForm.GetByName("TextBox")
'Modification du texte affiché dans la zone de texte
PysCtrl.String = "test"
End Sub
il faut obtenir les objets un par 1
Accès controles du Formulaire
option explicit
Sub Main
dim PysForm as object
dim PysCtrl as object
'thiscomponent : pour simplifier le document courant
'DrawPage : la "couche" dans laquelle sont dessinés les contrôles
'Forms : la collection des formulaires
PysForm = thiscomponent.DrawPage.Forms.GetByName("MainForm")
PysCtrl = PysForm.GetByName("PushButton")
'Modification du titre du bouton
PysCtrl.Label = "test"
PysCtrl = PysForm.GetByName("TextBox")
'Modification du texte affiché dans la zone de texte
PysCtrl.String = "test"
End Sub
