Discussion :

[frack]

Bonjour,
Je suis sous openoffice 3.0
j'ai une base de données avec tables et formulaires
Dans mon formulaire, j'ai une liste box, quand je sélectionne un champ, je voudrais quand dessous s'affichent les données correpondantes.

sur le forum j'ai trouvé un lien qui me donnait exactement ca. Mais le lien ne fonctionne pas (il met une erreur lorsque je veux télécharger la base exemple) : http://user.services.openoffice.org/...p=17382#p17382

Donc si quelqu'un a un autre lien ou si quelqu'un a une solution a m'apporter

Bonne journée
Merci

[frack]

J'ai trouvé la solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub liste
 
Dim vBaseContext As Object
Dim vBase As Object
Dim vConnexion As Object
Dim vTable As Object
Dim vResultat As Object
 
Dim vDocument As Object  'Pour mémoriser le document à utiliser
Dim vFormulaire As Object  'Pour mémoriser le formulaire à utiliser
Dim vListe As Object  'Pour mémoriser la liste déroulante
Dim vZone(6) As Object  'Pour mémoriser les zones de texte
 
Dim I As Integer   'Variable de boucle
 
'Définit un service pour pouvoir ouvrir la base
 vBaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
'Détermine la base à ouvrir
 vBase = vBaseContext.getByName(ConvertToUrl("chemin de ma base"))
'Définit la connexion
 vConnexion = vBase.GetConnection("","")
'Définit le recordset
 vTable = vConnexion.createStatement()
 
'Récupère le document actif
 vDocument = StarDesktop.CurrentComponent
'Récupère le formulaire ouvert
 vFormulaire = vDocument.DrawPage.Forms.GetByIndex(0)
'Récupère la liste déroulante du formulaire
 vListe = vFormulaire.getByName("lstTable")
'Récupère les 6 zones de texte du formulaire
 vZone(1) = vFormulaire.getByName("txt_identifiant")
 vZone(2) = vFormulaire.getByName("txt_nom")
 vZone(3) = vFormulaire.getByName("txt_prenom")
 vZone(4) = vFormulaire.getByName("txt_ddn")
 vZone(5) = vFormulaire.getByName("txt_sexe")
 vZone(6) = vFormulaire.getByName("txt_position")
 
'Récupère l'enregistrement souhaité dans la table selon le choix dans la liste déroulante
 vResultat = vTable.executeQuery("SELECT ""idJeune"", ""nomJeune"", ""prenomJeune"", ""ddnJeune"", ""sexeJeune"", ""presenceJeune"" FROM ""jeune"" WHERE idTable =" & vListe.ValueItemList(vListe.SelectedItems(0))
 
'Vérifie qu'il y a au moins un résultat
 If Not IsNull(vResultat) Then
'Se positionne sur le suivant (donc sur le premier
  vResultat.next
'Affecte aux zones de texte les valeurs récupérées dans la base
  For I = 1 to 6
   vZone(I).Text = vResultat.getString(I)
  Next I
 End If
 vConnexion.close
 vConnexion.dispose
 
End Sub

Ensuite il faut assigner la macro à un déclenchement et voila
Bonne journée à tous