Discussion :

[damsmut]

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 :

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

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'

[damsmut]

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 :

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

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

[damsmut]

Non, ce n'est pas cela...

mais je viens de trouver

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 :

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

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'

[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'

[Michel_M]

Bonjour,

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

Code :

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

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/

[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+