Urgent, problème de code

Question

J'essai de coder un petit moteur de recherche mais il ne marche pas. Quelqu'un connait il la solution, je vous met le code : 

Private Sub recherche_Click()

   
    Dim cnx As New ADODB.Connection
    Dim jeu As New ADODB.Recordset
    Dim ChSQL As String
    Dim rech As String
    Dim val As String
    
    Set cnx = CurrentProject.Connection
    rech = Me.rech.Value
    val = Me.val.Value
    ChSQL = "SELECT * FROM Appartements WHERE" & rech & val
    jeu.Open ChSQL, cnx, adOpenStatic
    Me.NumAppel.Value = jeu.Fields(0)
    Me.Date.Value = jeu.Fields(1)
    Me.Heure.Value = jeu.Fields(2)
    Me.NumAgence.Value = jeu.Fields(3)
    Me.Contact.Value = jeu.Fields(4)
    Me.Codeappli.Value = jeu.Fields(5)
    Me.Nature.Value = jeu.Fields(6)
    Me.Descriptif_appel.Value = jeu.Fields(7)
    Me.Solution_immediate.Value = jeu.Fields(8)
    Me.Descriptif_solution.Value = jeu.Fields(9)
    jeu.Close
    cnx.Close
End Sub

Merci d'avance. ;-)

cs_Jack · Answer

Salut griese 
Ta requète n'est pas valable :
- Pense à mettre des espaces après les mots clés, après Where par exemple, sinon, le texte suivant sera collé et le mot Where ne sera pas reconnu.
- Val est un mot clé de VB --> Ca va poser des problèmes
- Si rech et/ou val sont des textes, il faut les encadrer avec des '
- Il n'y a pas de comparaison entre rech et val
- Ta requète sous-entend que rech est le nom d'un champ de la DB. Est-ce vraiment ce que tu veux ?

Ca pourrait donner ça :ChSQL "SELECT * FROM Appartements WHERE '" & rech &  "' '" & val & "';"
Vala
Jack

econs · Answer

"SELECT * FROM Appartements WHERE[Espace]" & rech & "='" & val & "'"

Ta requête devait ressembler à çà :
SELECT * FROM Appartements WHEREma_variable3

alors qu'elle devrait faire : 
SELECT * FROM Appartements WHERE ma_variable='3'

Manu

griese · Answer

G changé ce que tu m'as dit Jack, mais le pb c'est que il me dit qu'il y à une erreur au niveau de :
 Dim cnx As New ADODB.Connection
Le message d'erreur est "Type définie par l'utilisateur non défini"
Peux tu encore m'aider ;-)

econs · Answer

Il faut que tu charges l'ActiveX suivant (dans Projets/Références sous l'éditeur Visual Basic) :

Microsoft ActiveX Data Object X.y Library

et ensuite, çà fonctionnera.

Manu

griese · Answer

MERCI Manu ça marche. J'ai acitvé l'ActiveX.
Mais maintentant, la requete que vous m'avez dit d'écrire, bah elle marche. Je l'ai surement mal écrite. Merci pour votre aide à tout les deux ;-)
ChSQL "SELECT * FROM Appartements WHERE '" rech & "' '" & valeur & "';"

Urgent, problème de code

5 réponses

Discussions similaires