oshigamie
-
Modifié par Whismeril le 26/05/2014 à 21:08
Whismeril
Messages postés19024Date d'inscriptionmardi 11 mars 2003StatutContributeurDernière intervention18 avril 2024
-
26 mai 2014 à 21:08
Bonjour,
voila je viens ici pour avoir de l'aide car je ne sais vraiment pas quoi faire . Je vous explique je suis actuellement en stage et je doit suite a la demande de mon mettre de stage importer un fichier .csv mais je rencontre quelque difficulter . j'ai creer se code que voici
Dim NbLignes As Integer
Dim cmd As MySqlCommand = New MySqlCommand
cmd.Connection = connection.MaConnexion
cmd.CommandText = "LOAD DATA LOCAL INFILE '" & TxtFichier.Text & "' INTO TABLE test FIELDS TERMINATED BY ';' ESCAPED BY '\\' LINES TERMINATED BY '\r\n'"
Try
'NbLignes = cmd.ExecuteNonQuery()
MessageBox.Show(NbLignes & " lignes insérées.")
Catch exms As MySqlException
MessageBox.Show(exms.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
mais mon probleme et que les donner de mon fichier .csv ne sont pas envoyer dans ma base de donner .
NHenry
Messages postés15112Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention13 avril 2024159 26 mai 2014 à 20:10
Dans ta ligne :
cmd.CommandText = "...
Je vois :
\\
\r\n
Je suspecte que tu as pris cette ligne d'un langage de type C (C, C++, C#, Java, ...).
\ sert à échapper un caractère (le traiter différemment):
\\ équivaut à échapper l' \ : "\\" -> "\"
\r\n est un retour à la ligne : Environment.NewLine
Il est ou le nom de ton fichier que tu dois importer ?? Regarde ce bout de code peut être ça t aidera :
Public Sub ImportCSV(fileName As String, nColumns As Integer) ', dbName As String)
Dim ccLines As String() = File.ReadAllLines(fileName, System.Text.Encoding.Default)
Dim ccTab As New List(Of Array)
For Each line In ccLines.ToList
ccTab.Add(line.Split({","}, StringSplitOptions.None))
Next
ccTab.ToArray()
End Sub