Recherche d'un string dans un champ de type Memo

Question

Bonjour,

Je souhaite faire une recherche dans un champ de type memo, j'ai tout essayé et cela ne fonction toujours pas.

Voici le code que j'utilise:

Dim Connect As New ADODB.Connection
Dim Rec As New ADODB.Recordset
Dim Connectdb As Boolean

Public Sub Connection()
    On Error Resume Next
    '*** connexion Fichier Base Access 2000, XP
    Provider = "Microsoft.JET.OLEDB.4.0"
    Connexion = App.Path & "\Data	able.mdb"

    '*** connexion à la base de données
    Connectdb = True
    With Connect
        .Provider = Provider
        .ConnectionString = Connexion
        .ConnectionTimeout = 6
        .CommandTimeout = 60
        .Open
    End With
    Connectdb = False
End Sub

Private sub Recherche_Click()
        Call Connection
        '**** Lecture d'un enregistrement
        Rec.Open "Select* from Table",OpenDynamic, adLockPessimistic
       
        '**** Affichage de l'enregistrement dans la Listview
        If Not Rec.EOF Then
               Msgbox "Trouvé"
        Else
               Msgbox "Non trouvé"
        End If
        Rec.Close
End Sub

Merci d'avance pour votre aide...

cs_ITALIA · Answer

T'as essayer avec la fonction INSTR() ??

It@li@

crenaud76 · Answer

Ou est le chp mémo dasn ton code ? ou est la recherche ???
Y manque un bout, c'est aps possible ?

Christophe R.

Recherche d'un string dans un champ de type Memo

2 réponses

Discussions similaires