[VBA-E] SQL - ADODB avec fichier CSV

Version imprimable

Bonjour à tous,

J'ai écrit ce code (qui fonctionne) qui permet d'utiliser un fichier Excel comme base de données --> base.xls contenant 1 feuille nommée liste avec 3 colonnes : Reference, Designation, Prix

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Sub test1()
 
    Dim Conn As ADODB.Connection
    Dim rsT As ADODB.Recordset
    Dim Fichier As String, Direction As String, rSQL As String
 
    Direction = ThisWorkbook.Path
    Fichier = "base.xls"
 
 
    '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=" & Direction & "\" & Fichier & _
            ";Extended Properties=Excel 8.0;"
            .Open
        End With
 
 
 
    Réf_Recherchée = InputBox("Saisissez une réf.")
 
    'Déclaration de la Recherche au format SQL
    rSQL = "SELECT * FROM [Liste$] WHERE [Reference] LIKE '" & Réf_Recherchée & "'"
 
 
    'Exécution de la Recherche SQL
    Set rsT = New ADODB.Recordset
        With rsT
            .ActiveConnection = Conn
            .Open rSQL, , adOpenKeyset, adLockOptimistic, adCmdTableDirect
        End With
 
    Nb_résultats = rsT.RecordCount
 
    'Récupération des enregistrements
    For i = 0 To rsT.RecordCount - 1
        MsgBox rsT.Fields(0).Value & " : " & vbCrLf & rsT.Fields(1).Value & vbCrLf & "Prix : " & rsT.Fields(2).Value & " €"
 
         rsT.MoveNext
    Next i
 
 
 
    'Fermeture de la connexion avec la table
    rsT.Close
    Conn.Close
 
End sub

Comment adapté ce code pour une base de données qui serait au format csv avec comme séparateur le point virgule ?

Ou alors existe une autre solution ?

Merci

A+

Dams'

en fouillant, j'ai trouvé une réponse, mais qui ne fonctionne pas !! :(

A l'aide svp !

Qu'est ce qui cloche dans ce code ?

Voici le début du code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim Conn As ADODB.Connection
    Dim rsT As ADODB.Recordset
    Dim Fichier As String, Direction As String, rSQL As String
 
    Direction = ThisWorkbook.Path
    Fichier = "base.txt"
    Lien = Direction & "\" & Fichier
 
 
    '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=" & Lien & ";Extended Properties='text;FMT=Delimited'"
            .Open
        End With

Non, ce n'est pas cela...

mais je viens de trouver :D

En fait, contrairement avec un fichier excel ou access utilisés comme base, dans "ConnectionString=" il faut uniquement spécifier le chemin du dossier, et pas le nom du fichier.

Cela donne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub test_sql()
 
    Dim Conn As ADODB.Connection
    Dim rsT As ADODB.Recordset
    Dim Fichier As String, Direction As String, rSQL As String
 
    Direction = ThisWorkbook.Path
    Fichier = "base.txt"
 
 
    '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=" & Direction & ";Extended Properties='text;HDR=YES;FMT=Delimited'"
            .Open
        End With
 
 
 
    Réf_Recherchée = InputBox("Saisissez une réf :")
 
    'Déclaration de la Recherche au format SQL (% remplace * dans la recherche)
    rSQL = "SELECT * FROM [" & Fichier & "] WHERE [Ref] LIKE '" & Réf_Recherchée & "'"
 
 
    'Exécution de la Recherche SQL
    Set rsT = New ADODB.Recordset
        With rsT
            .ActiveConnection = Conn
            .Open rSQL, , adOpenKeyset, adLockOptimistic, adCmdTableDirect
        End With
 
 
    Nb_résultats = rsT.RecordCount
 
 
    'Récupération des enregistrements
    For i = 0 To rsT.RecordCount - 1
 
        '...dans une msgbox
        MsgBox rsT.Fields(0).Value & " : " & vbCrLf & rsT.Fields(1).Value & vbCrLf & "Prix : " & rsT.Fields(2).Value & " €"
 
 
         'ou ...dans un userform
         'UserForm4.ListBox1.AddItem (rsT.Fields(0).Value & " : " & rsT.Fields(2).Value)
 
 
         rsT.MoveNext
    Next i
 
 
 
 
    'Fermeture de la connexion avec la table
    rsT.Close
    Conn.Close
 
 
End Sub

et voilà...
mais bon j'ai galèré pour trouver !
merci
A+
Dams'

23/07/2007, 08h54
damsmut

Bonjour,

Encore une question svp.

J'ai des fichiers textes qui sont générés automatiquement, mais qui ne portent pas forcément l'extension .txt

Du coup cela ne fonctionne plus si je fais : Fichier = "base"

Comment faire ?

Merci

à +

Dams'
23/07/2007, 12h23
Michel_M

Bonjour,

essaies cette autre syntaxe de connection (en adaptant le chemin):

Code:

Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\txtFilesFolder\;Extensions=asc,csv,tab,txt;

d'après cette source bien utiles pour se connecter un peu partout:
http://www.connectionstrings.com/
23/07/2007, 14h24
damsmut

En fait j'ai trouvé.

Il faut faire une modification dans la base de registre :
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Text
--> et rajouter l'extension voulue dans la clé "DisabledExtensions"

Il faut également le faire pour ta méthode !

Merci. En tout cas cela fontionne.

PS : Quelle est la différence entre les 2 façons d'établir une connection ? Avantages / Inconvénients ????

A+