Discussion :

[Mymi]

Bonjour,

J'aimerais lié un recordset sur une fichier .csv. J'utiliserais donc mon recordset dans le fichier pareille comme je ferais pour une table dans un fichier mdb. Est-ce que ça se fait? Si oui, comment?

Voici ce que j'ai fait jusqu'à maintenant :

Variable globale au module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim cn As ADODB.Connection
Private WithEvents rs As ADODB.Recordset

Sur clic d'un bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
cn.Provider = "ADsDSOObject"
cn.ConnectionString = "AdrFichier"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "AdrFichier", cn, adOpenDynamic, adLockReadOnly, adCmdText

ça plante sur rs.Open
En fait, je ne sais pas quoi mettre comme premier paramètre (je mettrais bien le nom de ma table si c'était un fichier Access...) et je ne suis pas certaine des autres paramètres non plus.
Je n'ai besoin que de lire (ou rechercher) les données, pas d'ajout, pas de modification et pas de suppression non plus.

Je suis peu familière avec ADODB... (et ça fait 4 ans que j'ai pas travaillé avec du "vrai" VB (pas du VBA)).

Merci pour votre aide!

[ThierryAIM]

regarde les connexions à des fichiers text
http://www.connectionstrings.com/

[Mymi]

Merci!

Pour ceux que ça pourrait intéresser, avec les modifications suivantes ça fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\repertoireX\;Extended Properties=""text;HDR=Yes;FMT=Delimited"""
rs.CursorLocation = adUseClient
rs.Open "select * from [NomFichier.csv]", cn, adOpenDynamic, adLockReadOnly, adCmdText

Merci pour cette aide rapide!