requète sql en vbaRésolu

Question

Salut à tous,
g un problème avec une textbox, je voudrai qu'elle affiche le résultat de ma requète mais impossible.
je vous montre mon programme:

Private Sub refresh_datedeb()
Dim DDeb As String
DDdeb = "SELECT PRENDRE.datedeb " & _
"FROM CLIENT, PRENDRE, COURS " & _
"WHERE CLIENT.IDClient = PRENDRE.IDClient " & _
"AND PRENDRE.IDCours=COURS.IDCours " & _
"AND COURS.NomCours='" & Me.cbonomcours & "' " & _
"AND CLIENT.IDClient='" & Me.cboidclient & "' "


Me.txttest.ControlSource = DDeb
Me.txttest.Requery


End Sub

voila c un code assez simple. Est ce qu quellqu'un connait la syntaxe pour insérer le résultat de cette requète dans ma textbox?
aidez moi s'il vous plait

cs_Jack · Accepted Answer

Salut
DB de quel type ?
Le questionnement d'une DB ne peut pas se faire directement depuis un composant comme une TextBox.
Il faut d'abord se connecter à la DB avant de l'interroger --> ADODC
puis faire une connexion entre ta TextBox et ADODC.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

falstuff · Answer

Salut, 
Tu peux pas faire référence à du code avec la propriété controlsource. Je suppose que tu travail sous access.
La méthode que j'utiliserai a ta place :
Il faut inserer ton code modifier ci dessous au moment ou tu souhaites l'afficher comme sur activation du formulaire, sur clique d'un bouton, ect...

Dim DDeb As String
DDdeb = "SELECT PRENDRE.datedeb " & _
"FROM CLIENT, PRENDRE, COURS " & _
"WHERE CLIENT.IDClient = PRENDRE.IDClient " & _
"AND PRENDRE.IDCours=COURS.IDCours " & _
"AND COURS.NomCours='" & Me.cbonomcours & "' " & _
"AND CLIENT.IDClient='" & Me.cboidclient & "' "

Me!txttest= DDeb!datedeb

cs_lolodero · Answer

Salut à tous et merci d'avoir repondu.

Donc falstuff g essayé ta solution proposé mé elle entrenne une erreur.
c Me!txttest = DDeb!datedeb qui pose problème.
l'erreur qu'il me met est:
qualifier musy be collection.

tu as une solution a proposer pour corriger cette erreur?

merci
loic

falstuff · Answer

Salut,
j'ai pas fait attention a tes déclarations de variable :
Dim DDeb As RECORDSET
Set DDdeb Currentdb.openrecordset("SELECT PRENDRE.datedeb " & _ "FROM CLIENT, PRENDRE, COURS " & _ "WHERE CLIENT.IDClient PRENDRE.IDClient " & _ "AND PRENDRE.IDCours=COURS.IDCours " & _ "AND COURS.NomCours='" & Me.cbonomcours & "' " & _ "AND CLIENT.IDClient='" & Me.cboidclient & "' ")

 Me!txttest= DDeb!datedeb

Verifie que dans du code, outil, référence tu es bien DAO de coché

Cordialement

Requète sql en vba

4 réponses

Votre réponse

Discussions similaires