[AC-2007] Recordset ADO message d'erreur en utilisant FIND

[damsmut]

Bonjour,

Voilà j'ai créé une connexion ADO vers un fichier Texte.

La connexion marche : j'arrive à faire des rst.moveNext par exemple
et avec l'espion je vois bien les différents enregistrements...

Par contre quand j'utilise rst.Find j'ai le message d'erreur suivant :

Erreur d'exécution '-2147217887 (80040e21)' :
Une opération OLE-DB en plusieurs étapes a généré des erreurs. Vérifier chaque valeur d'état OLE-DB disponible. Aucun travail n'a été effectué.

Voici un extrait de mon code pour la mise en place de la connexion :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
            'Mise en place de la connexion avec le fichier
            Set Conn = New ADODB.Connection
                With Conn
                    .Provider = "Microsoft.Jet.OLEDB.4.0"
                    .ConnectionString = "Data Source=" & Repertoire & ";Extended Properties='text'" 'fait référence au fichier Schema.ini
                    .Open
                End With
 
            'Déclaration de la Recherche
            rSQL = "SELECT * FROM [Monfichier.txt]"
 
            'Exécution de la Recherche SQL
            Set rsFichier = New ADODB.Recordset
            With rsFichier
                .ActiveConnection = Conn
                .Open rSQL, , adOpenKeyset, adLockOptimistic
            End With

et mon .Find :

Code :

1
2
 
rsFichier.Find "F2='630013'", , adSearchForward, 1

et mon fichier Schema.ini

Code :

1
2
3
4
 
[Monfichier.txt]
Format=Delimited(|)
ColNameHeader=False

A l'aide svp.

Merci

Dams'