CSV import via SQL - Schema.ini

Bonjour à tous,


J'ai dans c:\test

• test.csv
• Schema.ini

Dans Access, j'ai la routine suivante

Code:

---

1 2 3 4 5 6 7 8

Dim strSQL As String strSQL = " SELECT CStr(t.Name1), CDate(t.Name2), CDbl(t.Name3), CDbl(t.Name4) " & _ " INTO TEST " & _ " FROM [Text;FMT=Delimited;HDR=YES;CharacterSet=ANSI;DATABASE=C:\test].[test.csv] t"     On Error Resume Next: DoCmd.DeleteObject acTable, "TEST": On Error GoTo 0 CurrentDb.Execute strSQL

---

Si Schema.ini

Code:

---

1 2 3 4 5

[test.csv] Format=Delimited(;) ColNameHeader=True MaxScanRows=0 CharacterSet=ANSI

---

Pas de probléme sauf que le nom de mes colonnes sont Expr1000, Expr1001....

Alors j'ai ajouté dans Schema.ini

Code:

---

Col1=Zoo Text

---

Et là j'ai l'erreur suivante


Merci par avance pour toute aide

Pour éviter le message d'erreur il faut désigner tous les noms de colonnes => Ok maintenant

Par contre quelle option faut-il utiliser pour que les noms des colonnes soient autre chose que Expr1000, Expr1001....

Merci par avance!

bonjour,

Code:

---

1 2	SELECT CStr(t.Name1) As INFO1, CDate(t.Name2) As INFO2, CDbl(t.Name3) As INFO3...

---

Citation:

---

Envoyé par galoir

bonjour,

Code:

---

1 2	SELECT CStr(t.Name1) As INFO1, CDate(t.Name2) As INFO2, CDbl(t.Name3) As INFO3...

---

---

Merci galoir, j'adore ce type de solution si :ccool: et tellement logique! :applo:

Info complémentaire:
L'alias peut être le même que le nom du champ !

Après test, pour éviter le CAST de chaque champ dans la requête SQL Access, il suffit de déclarer le type de chaque colonne dans le schema.ini et cela permet alors d'utiliser * dans la requête SQL Access. Le format des champs dans la table créée est dans mes tests, conforme avec celui du schema.ini

J'ai déclaré

Code:

---

Col4=MONTANT_CA_ESTIME Char

---

Et il est bien dans ma base en texte.

Donc le Schema.ini est

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

[test.csv] Format=Delimited(;) ColNameHeader=True CharacterSet=ANSI DecimalSymbol=. DateTimeFormat=MM/DD/YYYY   ; MaxScanRows=2   Col1=Lot Char Col2=dateResa1 Date Col3=PRIXLOG_IMMO Double Col4=MONTANT_CA_ESTIME Char

---

Par contre j'ai un doute sur le comportement en réseau ! Je vérifie et reviens pour donner les résultats donnés !