[VB6] Variable = Valeur d'une requete Select

Bonjour à tous,

Est ce qu'il est possible de donnée une valeur à une variable : var1, la valeur d'une requete Select.

Je m'explique j'ai :
- une variable var1 qui est un string
- une requete sql :

Code:

---

"Select Champ1 From Table Where Champ2 = " & Text1.Text

---

- Et j'aimerai que:

Code:

---

var1 = Valeur( "Select Champ1 From Table Where Champ2 = " & Text1.Text)

---

Pouvez-vous m'aider?

Merci d'avance.

Récupère le résultat de l'exécution de ta requête.

Comment il faut faire?

Peux-tu m'aider?

Merci d'avance.

Je pars maintenant, désolé.

Je suis certain que d'autres pourront te répondre.

J'ai fait ce code suivant :

Code:

---

1 2 3

Dim numvac As String numvac = "Select Code_Vacation from Vacation Where Libellé_Vacation =" & Text1.Text

---

et quand je fais un msgBox sur numVac il me marque:
Select Code_Vacation from Vacation Where Libellé_Vacation = bbb

Pouvez-vous m'aidez?

Merci d'avance

T'aider comment et à quoi ??
Tu as ce que tu voulais, il me semble (ta requête dans une variable... c'était bien là ta question, n'est-ce pas ? A moins que ta question n'en cache une autre, qu'il faut alors que tu apprennes à poser...)

:?: :twisted: :?:

Ta pa lu mon post au dessus.

J'ai dit que lorsque je fait un msgBox sur ma variable numvac au lieu de me mettre le Code_Vacation correspondant à ma requete et donc comme valeur 1, 2 ou 3. Il ecrit la requete entière c'est à dire : Select Code_Vacation from Vacation Where Libellé_Vacation = bbb.
Et moi j'aimerai soit 1, 2 ou 3 et se chiffre doit correspondre au code_vacation de la vacation bbb.

Pouvez-vous m'aider?

Merci d'avance.

Je répète donc (mais ce sera la dernière fois) :

Ta variable numvac contient ta requête, puisque tu l'as ainsi définie.

Pour le reste, me semble-t-il, ce sera le résultat de l'exécution de ta requête...

8O

Et comment tu fais pour avoir le resultat de la requete dans une textBox, par exemple?

En d'autres termes : comment exécuter une requête et récupérer les résultats ?

Réponse : :faq:

D'autant que j'ai vu passer, il y a moins d'une semaine, une question sur ce sujet.

salut,

il faut declarer ta connexion à la base (je suppose que c'est fait). ensuite tu recupere le resultat dans le curseur (je presume que c'est dans vb).
un truc du genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim setuser As New ADODB.Recordset Dim devep As Connection Set devep = New Connection Dim numvac, recup As String numvac = "Select Code_Vacation from Vacation Where (Libellé_Vacation ='" & Text1 & "')" setuser.CursorLocation = adUseServer setuser.Open numvac , devep, adOpenKeyset, adLockOptimistic, adCmdText   recup = setuser!Code_Vacation 'c'est ici que tu recuperes le resultat de ta requete 'MsgBox setuser!Code_Vacation 'si tu veux le message Set setuser = Nothing

---

je presume qu'il n'ya qu'une seule code_vacation!
s'il y a plusieurs valeurs à recuperer, tu fais une boucle pour avoir toutes les valeurs contenues dans le curseur.
@+

Merci tout le monde. :bravo:

Ca marche impect.

Sauf juste une petite question :
Ca sert à quoi :

Code:

---

Set setuser = Nothing

---

?

Encore merci.