Requête SQL fichier CSV

Version imprimable

Bonjour à tous,

Je rencontre un problème lorsque je veux effectuer ma requête SQL sur un fichier csv (je passe par une connexion ADODB).

Voici mon code :

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
 
Sub Methode4()
 
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
    Dim n As Long
    Dim dat As String
 
    n = 2
    Dossier = "C:\TEMP\PROD_COMPAR\"
    FichierCSV = Dir(Dossier)
 
Do While FichierCSV <> ""
 
    'Connexion classeur fermé
    Set Cn = New ADODB.Connection
    Cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dossier & ";Extended Properties=""text;HDR=Yes;FMT=Delimited(;)"";Persist Security Info=False"
    Cn.Open
 
    'Requête Nb Valeurs
    texte_SQL = "SELECT COUNT(*) FROM " & FichierCSV
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
    Workbooks("Ecarts MDC_SDC - Copie").Sheets(1).Range("B" & n).CopyFromRecordset Rst
 
    'Requête Ecarts TypeG
    texte_SQL = "SELECT COUNT(*) FROM " & FichierCSV & " WHERE CH0FO2-AV = 'FC'"
    Set Rst = Cn.Execute(texte_SQL)
    Workbooks("Ecarts MDC_SDC - Copie").Sheets(1).Range("C" & n).CopyFromRecordset Rst
 
    'Passer au fichier suivant
    n = n + 1
    FichierCSV = Dir()
 
    'Déconnexion classeur fermé
    Rst.Close
    Set Rst = Nothing
    Cn.Close
    Set Cn = Nothing
 
Loop
 
End Sub

La première requête fonctionne mais la deuxième où je rajoute une condition dans le WHERE j'obtiens l'erreur suivante :
Erreur d'exécution '-2147217904 (80040e10)':
Aucune valeur donnée pour un ou plusieurs des paramètres requis.

Apparement cette erreur est censée apparaitre lorsque le nom de colonne n'existe pas.
Mais le champ CH0FO2-AV existe bien dans la première ligne de mon fichier CSV.

Merci d'avance si vous pourrez m'aider.

Mathilde

19/05/2017, 12h39
Marc-L

Bonjour,

comme indiqué dans la documentation ou dans les tutoriels un nom de champ doit être entre crochets, non ?

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
19/05/2017, 12h49
MathildeRnd

J'ai déjà essayé avec le nom du champ entre crochets mais j'ai la même erreur..
19/05/2017, 12h51
Invité

bonjour Marc,

oui (pas toujours obligé si pas de cratères blizzard ou espace) mais c'est plus sur de les mettre systématiquement! [Champs]
19/05/2017, 13h02
joe.levrai

l'apostrophe ne doit pas être échappé également par un \ ??

j'avais vu ça dans la FAQ ACCESS, peut-être que pour Excel ce n'est pas nécessaire ?

par exemple ici : https://access.developpez.com/faq/?page=SQL#ExecSQLvba
19/05/2017, 13h04
Marc-L

J'utilise les crochets dès la présence d'un caractère différent d'un chiffre ou d'une lettre.

Pour l'apostrophe là ce n'est pas utile car c'est comme un guillemet délimitant une chaine de caractères, non ?
Jusqu'à présent je n'ai pas rencontré ce souci …

teste ça!

Code:

1
2
3
4
5
texte_SQL = "SELECT * FROM " & FichierCSV
Set Rst = cn.Execute(texte_SQL)
For I = 0 To Rst.fields.Count - 1
    Debug.Print Rst(I).Name
Next

19/05/2017, 14h27
MathildeRnd

Je ne comprend pas bien ce que ce code fait, surtout la ligne Debug.Print Rst(I).Name
En tout cas j'ai testé et ça ne me donne pas du tout ce que je veux
19/05/2017, 14h27
Invité

tu ouvres la fenêtre de d’exécution raccourci clavier [Ctrl] + [G] et tu me diras si ça ne correspond pas à ce que tu cherche!

Non ça me 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
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
F3
F4
F5
F6
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
F3
F4
F5
F6
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
F3
F4
F5
F6
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
F3
F4
F5
F6

Ce qui correspond aux premiers noms de colonnes et les Fx je ne sais pas.

19/05/2017, 15h19
Invité
bien sur que si! voilà le nom de ton seule et unique champ [CH0FO2 ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF ;CH3JL]
Code:

1 2 Txt = "[F.CSV]" & vbCrLf & _ "Format=Delimited(;)"
et là e nom de ta feuille!

Code:

With Sheets("Feuil3")

il y avait tous pour ton problème il fallait changer rep = "C:\MyRepertoire\Nouveau dossier" par le chemin de ton dossier ou ce trouve tes csv!

https://www.developpez.net/forums/d1...r/#post9291988
19/05/2017, 15h33
MathildeRnd

Je ne comprend pas, pourtant dans mes csv la première ligne est toujours :

Code:

CH0FO2 ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF ;CH3JLG ;CH0FO1-AV;CH0FO1-AP;CH0FO2-AV;CH0FO2-AP;CH0G8D-AV;CH0G8D-AP;CH0Y9S-AV;CH0Y9S-AP;CH391K-AV;CH391K-AP;CH18BD-AV;CH18BD-AP;CH18BC-AV;CH18BC-AP;CH0FV1-AV;CH0FV1-AP;CH17Z2-AV;CH17Z2-AP;CH17Z3-AV;CH17Z3-AP;CH17Z1-AV;CH17Z1-AP;POOL-AV ;POOL-AP ;

Pourquoi ne considère-t-il pas chaque valeur comme un champ unique ?

Et mon rep (ici Dossier) est bien un chemin vers le dossier où se trouvent mes csv.
19/05/2017, 15h41
Invité
oui mais par défaut le séparateur de champ est la virgule (Amérique!) pour ne pas à aller bricoler dans la base de registre de Windows je place dans le répertoire un fichier schema.ini.

c'est lui qui informe ADO que le ; est le séparateur de champ!

dans la fenêtre d'exécution chaque champs devraient être le uns en dessous de autres!
Code:

1 2 3 4 5 6 CH0FO2CH0FUZ-AV CH0FUZ-AP CH0FVL-AV CH0FVK-AP CH3JLF CH3JL
19/05/2017, 15h52
MathildeRnd

Aah d'accord !
Serait-il possible de m'expliquer un peu plus en détail comment et où créer mon fichier schema.ini ?

Code:

1
2
3
4
5
6
7
8
9
Sub NewFichierTxt(Fichier, txt)
Dim fso, NewFichier
Set fso = CreateObject("Scripting.FileSystemObject")
Set NewFichier = fso.OpenTextFile(Fichier, 2, True)
NewFichier.Write txt
NewFichier.Close
Set NewFichier = Nothing
Set fso = Nothing
End Sub

Code:

1
2
3
Txt = "[NomFichier.CSV]" & vbCrLf & _
"Format=Delimited(;)"
NewFichierTxt rep & "\schema.ini",txt

19/05/2017, 16h23
MathildeRnd

Super merci beaucoup !! :D

Bon en fait faux espoir ça ne fonctionne pas.
Le fichier schema.ini se créé bien dans le dossier des csv, mais j'ai toujours ceci :

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
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
F3
F4
F5
F6
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
F3
F4
F5
F6
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
F3
F4
F5
F6
CH0FO2  ;CH0FUZ-AV;CH0FUZ-AP;CH0FVL-AV;CH0FVK-AP;CH3JLF   ;CH3JL
F2
F3
F4
F5
F6

Une idée de pourquoi ?

PS : Mon fichier schema.ini :

Code:

1
2
[PROD_COMPAR_20170515_050151]
Format=Delimited(;)

Code:

1
2
[PROD_COMPAR_20170515_050151.csv]
Format=Delimited(;)

19/05/2017, 17h13
MathildeRnd

Super tout fonctionne !
Merci encore