[VB] Remplir un FlexGrid avec une requête en f° de boutons d'option

Marsh Posté le 05-03-2003 à 00:29:07

J'ai une fenêtre comme ça, pour activer un combo il faut cliquer sur le bouton d'option correspondant, ce qui permet de sélectionner des données dans le menu déroulant.
Dans le menu déroulant région j'ai toutes les régions de france, etc...

Je veux afficher dans le FlexgGrid les résultats des différentes requêtes successives.
Par exemple je veux qu'il me sorte toutes les infos concernant le N°client "1124"
Pour cela j'execute le bouton Résultat qui contient le code suivant, à mon avis ça ressemble sur le principe mais pour la syntaxe je vois pas comment faire

Code :

Private Sub cmdRequete_Click()
If Option1.Value = True Then
'exécution de la requête n° client
'SELECT fournisseur.numfournisseur, ville.codepostal, ville.nomville, departement.nomdepartement, region.nomregion
'FROM CLIENT, FOURNISSEUR, VILLE, DEPARTEMENT, REGION
'WHERE WHERE client_nimclient=??????AND client.num_client LIKE [contenu du Combo1];
'Affichage du résultat dans le FlexGrid
If Option2.Value = True Then
'
' idem pour les autres champs
'
'
'
End If
End Sub

---------------
L'expérience est une lanterne que l'on a accrochée dans le dos et qui n'éclaire que le chemin parcouru [:albator7k]

Reply

Marsh Posté le 05-03-2003 à 00:29:07

Reply

Marsh Posté le 05-03-2003 à 11:17:58

quelqu'un aurait-il une idée :??:

---------------
L'expérience est une lanterne que l'on a accrochée dans le dos et qui n'éclaire que le chemin parcouru [:albator7k]

Reply

Marsh Posté le 05-03-2003 à 12:06:16

albator7k a écrit :

quelqu'un aurait-il une idée :??:

Harkonnen a écrit :

Dans ton évenement bouton_click(), tu places une requete de mise à jour :

Sub Bouton_Click(....)
base.Execute("UPDATE client SET typeclient = 'ancien'" )
End Sub

http://forum.hardware.fr/forum2.ph [...] h=&subcat=

Code :

Private Sub cmdRequete_Click()
If Option1.Value = True Then
'exécution de la requête n° client
base.Execute("SELECT fournisseur.numfournisseur, ville.codepostal, ville.nomville, departement.nomdepartement, region.nomregion
FROM CLIENT, FOURNISSEUR, VILLE, DEPARTEMENT, REGION
WHERE WHERE client_nimclient=??????AND client.num_client LIKE [contenu du Combo1];" )
'Affichage du résultat dans le FlexGrid
If Option2.Value = True Then
'
' idem pour les autres champs
'
'
'
End If
End Sub

je pense à un truc de ce style mais pour balancer dans le FlexGrid je vois pas

Message édité par albator7k le 05-03-2003 à 12:07:32

---------------
L'expérience est une lanterne que l'on a accrochée dans le dos et qui n'éclaire que le chemin parcouru [:albator7k]

Reply

Marsh Posté le 06-03-2003 à 00:05:56

quelqu'un peut me dire si je suis sur la bonne piste :??:

---------------
L'expérience est une lanterne que l'on a accrochée dans le dos et qui n'éclaire que le chemin parcouru [:albator7k]

Reply

[VB] Remplir un FlexGrid avec une requête en f° de boutons d'option

Sujets relatifs:

Leave a Replay