moteur de recherche pour access, probléme!!!!

Question

Alors voila, je veux cr&#233;er un moteur de recherche sur une base de donn&#233;e access. Le truc, c'est que j'ai ma base de donn&#233;e, mais aucune recherche ne se fait, et j'ai un erreur que me dit "erreur de syntaxe dans la clause FROM", je ne comprends pas le probl&#233;me.
adodc1 est un controle data mis en relation avec un datagrid.


Voici mon code :


Private Sub Command1_Click()
   Adodc1.RecordSource = "SELECT % FROM produit "
   Adodc1.Refresh
   
End Sub


Private Sub TxtRecherche_Avancee_KeyPress(KeyAscii As Integer)
    On Error Resume Next


If (KeyAscii = 13) Then
    chaine1 = ""
    chaine_complete = Trim(TxtRecherche_Avancee)
    lg = Len(chaine_complete)
    X = 1
    Do Until X = 0
        X = InStr(1, chaine_complete, " ")
        If X = 0 Then
            chaine1 = chaine1 & "'%" & chaine_complete & "*%"
        Else
            chaine1 = Left(chaine_complete, X - 1)
            chaine1 = "'%" & chaine1 & "%' AND r&#233;f&#233;rence produit like "
            chaine_complete = Mid(chaine_complete, X + 1, lg - X)
        End If
    Loop
    
    Adodc1.RecordSource = "SELECT % FROM produit " & _
    "where r&#233;f&#233;rence produit like " & chaine1 & ""
    Adodc1.Refresh
    End If


End Sub


Private Sub Form_Load()
    On Error Resume Next
   Adodc1.RecordSource = "produit"
    Adodc1.RefreshEnd Sub

  JIMM

HDelarse · Answer

Access n'aime pas le accents ni les espaces dans les nom de champs.
Remplace "r&#233;f&#233;rence produit" par "Reference_produit" ou "ReferenceProduit".
Apr&#233;s If X=0 chaine1 = Il manque une simple cote ' apr&#233;s le  *%'"
Sinon, tu devrais tester tes requ&#232;tes directement dans ACCESS.
J'esp&#232;re que cela ira....

cs_CanisLupus · Answer

Salut,

1 - Pour les noms de champs, s'ils comprennent des espaces, encadre les par des crochets : [r&#233;f&#233;rence produit]
2 - Remplace les '%' par des '*'

Loup Gris

jimluis · Answer

C'est vrai que c'est mieux comme &#231;a,  mais le probl&#233;me ne vient pas de la.

Le probl&#233;me vient de " adodc1.refresh " , j'ai d'abord " erreur de syntaxe dans la m&#233;thode FROM" puis " la m&#233;thode refresh de l'objet adodc a &#233;chou&#233; ". En fait c'est tout se qu'il y a dans command1_click. 
Voila, je cherche, mais moi je trouve pas, si vous trouvez, j'en serais ravie. 

Private Sub Command1_Click() 
Adodc1.RecordSource = "SELECT * FROM produit " 
Adodc1.Refresh 

End Sub 

  JIMM

cs_CanisLupus · Answer

Dis voir, produit est bien le nom d'une table de la base que tu ouvres dans Adodc1.ConnectionString ? 

Loup Gris

Moteur de recherche pour access, probléme!!!!

4 réponses

Discussions similaires