Discussion :

[sanfour_walhan]

Bonjour
Je travaille sur une petite application que je dois importer des donnees enregistrer dans un fichier .txt vers ma base de donnees access.
vous avez une idee
Merci

[kikione]

Voilà comment je fais :
-----------------------------------------------------------
--> cette méthode a l'avantage de typer les variables de ta table

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
 '/* Connection à un fichier CVS */
        Dim sConnString As String
        Dim sFichier As String = Path.GetFileNameWithoutExtension(p_sFichierSVG)
        Dim sRepertoireSortie As String = Path.GetDirectoryName(p_sFichierSVG)
 
        sConnString = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
                      "Dbq=" & sRepertoireSortie.Trim() & ";" & _
                      "Extensions=asc,csv,tab,txt;" & _
                      "Persist Security Info=False"
        Using filestr = New FileStream(sRepertoireSortie & "\schema.ini", FileMode.Create, FileAccess.Write)
 
            Using writer As New StreamWriter(CType(filestr, FileStream))
                writer.WriteLine("[" + sFichier & ".csv]")
                writer.WriteLine("ColNameHeader = True")
                writer.WriteLine("Format = Delimited(;)")
                writer.WriteLine("DateTimeFormat = dd-MM-yyyy")
 
'tu défines tes colonnes 
                writer.WriteLine("Col1=Colonne1 Char  Width 2 ")
 
                writer.Close()
                writer.Dispose()
 
            End Using
            filestr.Close()
            filestr.Dispose()
        End Using
        oConnection = New System.Data.Odbc.OdbcConnection(sConnString)
        oConnection.Open()

----------------------------------

ou essaye avec ça
--> fonctionne bien aussi mais tu peux avoir potentiellement des pb de typage

Code :

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

1
2
sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sRepertoireSortie & "" & _
                         ";Extended Properties=""text;HDR=Yes;  FMT=Delimited"""

-----------------------------------------------------------
EN espérant que ça puisse t'aider.

[sanfour_walhan]

Merci pour ton aide
J'ai un probleme :p_sFichierSVG n'est pas declare
oConnection n'est pas declare
quelle reference dois je ajouter?
Merci encore une fois

[kikione]

p_sFichierSVG est de type string. la variable contient le chemin et le nom de ton fichier txt