Remplacer contenu table par un fichier .csv (vb.net)

Version imprimable

21/05/2014, 18h00
oshigamie

Remplacer contenu table par un fichier .csv (vb.net)

Bonjour, étant actuellement en stage je doit créer un application permettant de récupérer un fichier.csv et ensuite le faire importer dans une table sachant que si la table viser a déjà un contenue celui-ci sera supprimer et sera remplacer par le contenu de fichier .csv importer .

Ma question et donc étant débutant et n'ayant jamais fait cet manipulation je demande donc conseille et aide pour arriver a faire cela car je ne sais vraiment pas comment m'y prendre
22/05/2014, 00h37
Mario Rousson

salut

Faudrait un peu mieux développer explique ou tu accroches donne nous des séquences de code qui te pose problème.
22/05/2014, 02h43
clementmarcotte

Bonjour,

Citation:

Envoyé par oshigamie

Bonjour, étant actuellement en stage je doit créer un application permettant de récupérer un fichier.csv et ensuite le faire importer dans une table sachant que si la table viser a déjà un contenue celui-ci sera supprimer et sera remplacer par le contenu de fichier .csv importer .

Ma question et donc étant débutant et n'ayant jamais fait cet manipulation je demande donc conseille et aide pour arriver a faire cela car je ne sais vraiment pas comment m'y prendre

Je ne peux pas, moi non plus, donner de réponse très précise. En gros, il y a en gros deux façons de s'en tirer avec un fichier texte; le csv étant à la base un fichier texte.

Tu peux importer ton fichier en mémoire et "séparer" les diverses données avant de les "placer" dans une nouvelle table, ou une table existante.

Par contre, le moteur ACE d'Access est utilisable autant en VB.net qu'avec des fichiers textes. Donc, tu pourrais, ce qui me semble préférable, traiter ton csv comme un "vrai" fichier de banque de données et le traiter au moyen de requêtes SQL, comme une autre base de données.

Tu peux toujours jeter un œil par là:

http://support.microsoft.com/kb/315828/fr
22/05/2014, 11h36
oshigamie

Merci de m'avoir répondu mais je ne peut donner plus de précision car je ne sais ou commencer si vous avais un tuto ou quelque chose pour m'aider a ma tache je vous serais très reconnaissant car franchement n’ayant jamais fait cet action je ne peut rein fair j'essaie de chercher sur internet un facond e faire mais je ne trouve que les facon avec exel et .csv n'étant pas un fichier excel je pense aps que ses sois la bonne facon .

sachez d'ailleur que je travaille en local et que j'utilise wampserver pour gere ma base de donnée .est-ce que sa change quelque chose ?
22/05/2014, 13h12
rv26t

Bonjour,

Citation:

Envoyé par oshigamie

je ne trouve que les facon avec exel et .csv n'étant pas un fichier excel je pense aps que ses sois la bonne facon .

C'est un format particulier qu'excel peut générer. (Excel : Importer ou exporter des fichiers texte)

Table de quel type de BDD ?

[Edit]
Sinon il suffit de lire le fichier ReadAllLines et de faire un split sur chaque ligne avec le séparateur qui va bien.
22/05/2014, 15h37
oshigamie

Bes je t'explique c'est un table parmi les autre appartenant à une base de donner cet table en question sert a contenir tous les matériel de l'entreprise.

Et le fichier .csv lui sert a mettre a jour les cet table en supprimant son contenue et la remplaçant par les donner contenu dans le fichier .csv .

Citation:

Envoyé par oshigamie

Bes je t'explique c'est un table parmi les autre appartenant à une base de donner cet table en question sert a contenir tous les matériel de l'entreprise.

Et le fichier .csv lui sert a mettre a jour les cet table en supprimant son contenue et la remplaçant par les donner contenu dans le fichier .csv .

Oui, ça j'avais compris que vous voulliez importer le fichier dans la table de la base de données.
Mais quel type de BDD - Access, SQL Serveur, ... ?
Code:

1 2 3 4 5 6 7 8 Dim Elements As String() 'traitement de chaque ligne du fichier For Each ligne As String In IO.File.ReadAllLines("chemin + nom fichier") Elements = ligne.Split(",") ' ou ; ' sauvegarde en BDD ' construction requête paramètrées '... Next ligne
Les requêtes paramétrées : Tuto ou Faq.

22/05/2014, 17h30
oshigamie

bes je suis sur phpmy admin donc je pense que c'est du mysql.

Pourquoi ?

[EDIT]
Je vien d'avoir une idee pour la realisation de cet chose ^^ .

jai crere un bouton parcourir qui va recuperer le fichier et faire apparaitre le lien dans un textebox .
puis via l'action du bouton importer aussi creer je veut faire cette requete :
LOAD DATA LOCAL INFILE 'D:\\devellopement\\wamp\\tmp\\php53E8.tmp' INTO TABLE `test` FIELDS TERMINATED BY ';' ENCLOSED BY '"' ESCAPED BY '\\' LINES TERMINATED BY '\r\n'

avec evidament un requete precedante qui suprimer le contenue de la table avant d'inserer le contenu du fichier .csv

penser vous que sa sois possible ?
22/05/2014, 18h06
rv26t

Citation:

Envoyé par oshigamie

bes je suis sur phpmy admin donc je pense que c'est du mysql.

Pourquoi

Pour les possibilité offerte par le SGBD : Les différents moteurs de stockage de MySQL
Création d'un fichier .csv et importation dans la base de données
directement avec la BDD

Citation:

Envoyé par oshigamie

jai crere un bouton parcourir qui va recuperer le fichier et faire apparaitre le lien dans un textebox .
puis via l'action du bouton importer aussi creer je veut faire cette requete :

Citation:

LOAD DATA LOCAL INFILE 'D:\\devellopement\\wamp\\tmp\\php53E8.tmp' INTO TABLE `test` FIELDS TERMINATED BY ';' ENCLOSED BY '"' ESCAPED BY '\\' LINES TERMINATED BY '\r\n'

penser vous que sa sois possible ?

Je ne sais pas je ne connais pas MySQL, peut être avec les procédures stockées (qui contiendrait cette commande), il faut essayer.

bonjours je viens d’essayer ma requête dit precedement :
" LOAD DATA LOCAL INFILE '" & a & "' REPLACE INTO TABLE test FIELDS TERMINATED BY , ENCLOSED BY '" & b & "' LINES TERMINATED BY \n IGNORE 1 LINE"

et lors de son execution j'ai eu une erreur qui apparais :

Fill : la propriété SelectCommand.Connection n'a pas été initialisée.

d'ou cela peut t'il bien provenir je vous passe mon code ou se trouve l'erreur :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a As String Dim b As Char b = "" a = TxtFichier.Text connection.MaRequete = " LOAD DATA LOCAL INFILE '" & a & "' REPLACE INTO TABLE test FIELDS TERMINATED BY , ENCLOSED BY '" & b & "' LINES TERMINATED BY \n IGNORE 1 LINE" connection.MaCommandeSpecialRequete.CommandText = connection.MaRequete connection.MonRemplisseur.SelectCommand = connection.MaCommandeSpecialRequete connection.MonRemplisseur.Fill(connection.MonJeuDeDonnees, "Toutmateriel") dgmat.DataSource = connection.MonJeuDeDonnees.Tables("Toutmateriel") End Sub
[EDIT 1]
message d'erreur exact

You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ' ENCLOSED BY '' LINES TERMINATED BY '\n' IGNORE 1 LINE' at line 1

[EDIT 2]
enfaite je pense que mon erreur vien des caractere dans ma requette qui son indispensable pour reussir se que je veut faire .

il faut que des guillemet y soi placer que \n et , y sois egalement mais comment controurner le problem d'erreur de syntaxe ??

23/05/2014, 16h26
rv26t
Citation:
Envoyé par oshigamie

Code:

1 2 b = "" connection.MaRequete = " LOAD DATA LOCAL INFILE '" & a & "' REPLACE INTO TABLE test FIELDS TERMINATED BY , ENCLOSED BY '" & b & "' LINES TERMINATED BY \n IGNORE 1 LINE"

message d'erreur exact
You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ' ENCLOSED BY '' LINES TERMINATED BY '\n' IGNORE 1 LINE' at line 1

il faut que des guillemet y soi placer que \n et , y sois egalement
Ben justement là les guillemets n'y sont pas, et le \n n'est pas entre cote dans ton code

soit
Code:

1 2 b = """" connection.MaRequete = " LOAD DATA LOCAL INFILE '" & a & "' REPLACE INTO TABLE test FIELDS TERMINATED BY , ENCLOSED BY '" & b & "' LINES TERMINATED BY '\n' IGNORE 1 LINE"
soit

Code:

connection.MaRequete = " LOAD DATA LOCAL INFILE '" & a & "' REPLACE INTO TABLE test FIELDS TERMINATED BY , ENCLOSED BY '""' LINES TERMINATED BY '\n' IGNORE 1 LINE"

La syntaxe détaillé de Load Data Infile.

merci j'ai essayer vos deux code mais cela ne marche toujours pas

la premiere m'affiche cet erreur :

You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ' ENCLOSED BY '' LINES TERMINATED BY \n IGNORE 1 LINE' at line 1

le deuxieme m'affiche celui-ci :

You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'False' at line 1

voila le code du deuxieme resultat
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim a As String a = TxtFichier.Text connection.MaRequete = connection.MaRequete = "LOAD DATA LOCAL INFILE '" & a & "' INTO TABLE test FIELDS TERMINATED BY ; ESCAPED BY \\ LINES TERMINATED BY \r\n" connection.MaCommandeSpecialRequete.CommandText = connection.MaRequete connection.MonRemplisseur.SelectCommand = connection.MaCommandeSpecialRequete connection.MonRemplisseur.Fill(connection.MonJeuDeDonnees, "Toutmateriel") dgmat.DataSource = connection.MonJeuDeDonnees.Tables("Toutmateriel")
parcontre je tien a preciser que dans le txtfichier.text il y a ceci: C:\Users\henry\Desktop\Stage\piece.csv

23/05/2014, 17h51
rv26t

Je n'ai pas MySQL, je ne peux donc pas tester. Il faut étudier le lien que je vous ai donné sur la syntaxe.

Citation:

Envoyé par rv26t

La syntaxe détaillé de Load Data Infile.

Attention de bien mettre des cotes ' autour des symboles (; \n ...)
Mais comme je vous l'ai dit je n'ai pas MySQL.
Le mieux est d'étudier la syntaxe du lien de l'exécuter sous MySQL jusqu'à ce qu'elle soit correcte, puis de l'utiliser dans VB. (au passage même si ce n'est pas une requête CRUD, il vaut peut être mieux utiliser les requêtes paramètrées.)
Par contre il faut que votre fichier soit accessible par le SGBD MySQL. Donc le copier avant à l'emplacement attendu par MySQL.
23/05/2014, 18h00
oshigamie

cette requete je les recuperer suite a une importation faite sur phpmyadmin dans la zone sql apres avoir fait lamanipulation a la main en mode graphique . d'ou mon incomprehension au fait qu'il ne marche pas.

Je n'avais pas fait attention à votre code, mais il vaudrait mieux faire un ExecuteNonQuery,
sinon utiliser une procédure stockée si la requête fonctionne sous le SGBD MySQL.

[Edit]
Par rapport à l'orientation que vous avez pris (je ne sais pas si c'est réalisable), il me semble que votre code devrait ressembler à ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim NbLignes As Integer Dim cmd As MySqlCommand = New MySqlCommand cmd.Connection = ' la connexion : mettre votre connexion ici 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
Demandez sur le forum MySQL si cette requête (LOAD DATA LOCAL INFILE ) peut être exécutée depuis VB, parceque normalement, ExecuteNonQuery c'est pour des insert, update et delete ou la création d'objet de BDD (create table, alter table).

Sinon il reste les 2 autres pistes que je vous ai indiquées
- la procédure stockée (ce qui me semble le plus simple)
- lecture du fichier et requête insert (moins bien)

Reste la possibilité qu'un membre connaissant VB et MySQL apporte une réponse,
Je ne pourrai guère plus vous aider, ne connaissant pas MySQL. (Lien sur tuto MySQL)

26/05/2014, 11h35
oshigamie

j'ai essayer le code precedement et j'ai une erreur qui s'affiche dans la message box :

fatal error encountered attempting to read the resultset.

d'ou cel pourrait venir sachant que mon wampserver et en marche et fonctionne bien
26/05/2014, 11h38
rv26t

Ne pas essayer de lire le résultat

Code:

cmd.ExecuteNonQuery()

au lieu de NbLignes = cmd.ExecuteNonQuery()
26/05/2014, 11h42
oshigamie

il faut que j'enleve le nblignes = c'est bien sa

je vien de tester l'erreur et toujours presente
26/05/2014, 11h44
rv26t

La méthode ExecuteNonQuery retourne le nombre de lignes affectées, mais on est pas obligé de l'utiliser.

l'erreur et toujours la meme. cela ne marche toujour pas

je vous montre mon code ainsi que celui de ma onnection .

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 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
 
            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

et celui qui gere ma connection:

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
Imports MySql.Data
 
Public Class connection
 
    Public Shared MaConnexion As New MySqlClient.MySqlConnection
    Public Shared MaCommandeSpecialRequete As New MySqlClient.MySqlCommand
    Public Shared MonRemplisseur As New MySqlClient.MySqlDataAdapter
    Public Shared MonJeuDeDonnees As New Data.DataSet
    Public Shared MaRequete As String
    Public Shared machaine As String = "Data Source=localhost;Database=stage;User ID=root;Password=;"
 
    Public Shared Sub SeConnecter()
 
        MaConnexion.ConnectionString = machaine
        MaConnexion.Open()
        MonJeuDeDonnees = New Data.DataSet("IAPM")
        MonJeuDeDonnees.Clear()
        MaCommandeSpecialRequete.CommandType = CommandType.Text
        MaCommandeSpecialRequete.Connection = MaConnexion
 
    End Sub
    Public Function RemplaceSlashApostrophes(ByRef unechaine As String) As String
        Dim ch As String
        ch = unechaine.Replace("/", "'")
        Return ch
    End Function
End Class

26/05/2014, 11h49
rv26t

Il est probable que ce type de requête ne peut pas être utilisé directement. Il faut passer par une procédure stockée (avec paramètre le nom du fichier).
26/05/2014, 12h06
oshigamie

j'ai reussi a supprimer l'erreur donc tous se passe comme prevue sauf que ma base de donner ne recupere pas le contenue de mon fichier .cs pourquoi ?
26/05/2014, 12h42
rv26t

Citation:

Envoyé par oshigamie

j'ai reussi a supprimer l'erreur ...

Ah ! Et comment ?

[Edit]

Citation:

Envoyé par oshigamie

bes je suis sur phpmy admin ...

Peut-être des problèmes de droit. (phpmy admin, lui, doit avoir tous les droits)
Regardez aussi les logs de MySQL lorsque vous avez exécuté la commande.
26/05/2014, 15h26
oshigamie

l'erreur fatal venais du cmd=executequery()

mais j'ai un souci la actuelement c'est que lorsque j'importe mes ligne se trouvant dans mon fichier csv aucune d'elle se voie etre mise dans ma table dite dans la requete hors pourtant la requete et celle generer par phpmyadmin lorsque j'importe en graphique .

Je pense avoir trouver le problem et etre proche a sa resolution mais j'ai besoin d'avoir votre avis .

mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 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 ',' OPTIONALLY ENCLOSED BY '"" ' ESCAPED BY '\\' LINES TERMINATED BY '\r\n' IGNORE 1 LINES" 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
J'ai compris que mon erreur venais du fait du bouton parcourire de mon appli qui va chercher le fichier .csv du moin je pense car lors de la requette il le prend comme une simple chaine de caractere ne pouvant donc pas recuperer les donnée contenue a l'interieur . auriez vous un idee pour l'executer et rendre possible cet action d'importation.

voici le code d emon bouton parcourir
Code:

1 2 3 4 5 6 Private Sub BtnParcourir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnParcourir.Click OpenFileDialog1.ShowDialog() TxtFichier.Text = OpenFileDialog1.SafeFileName End Sub
l

Bonjour,

Citation:

Envoyé par oshigamie

Je pense avoir trouver le problem et etre proche a sa resolution mais j'ai besoin d'avoir votre avis .

mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 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 ',' OPTIONALLY ENCLOSED BY '"" ' ESCAPED BY '\\' LINES TERMINATED BY '\r\n' IGNORE 1 LINES"
 
 
 
        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

Je ne suis pas remonté plus haut. Là je ne vois aucune chaîne de connexion, ni l'ouverture d'une connexion.

Citation:

Envoyé par oshigamie

l'erreur fatal venais du cmd=executequery()
mais j'ai un souci la actuelement c'est que lorsque j'importe mes ligne se trouvant dans mon fichier csv aucune d'elle se voie etre mise dans ma table dite dans la requete

D'ou sort ce cmd=executequery() ?

Citation:

Envoyé par oshigamie

j'ai reussi a supprimer l'erreur donc tous se passe comme prevue sauf que ma base de donner ne recupere pas le contenue de mon fichier .cs pourquoi ?

Citation:

Envoyé par oshigamie

Je pense avoir trouver le problem et etre proche a sa resolution ...

Code:

'NbLignes = cmd.ExecuteNonQuery()

Efficace; Plus de requête envoyé à la base, donc plus d'erreur, mais pas de ligne chargées. Hein !
______________________________________

Donc résumons, le code devrait se présenter ainsi
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim cmd As MySqlCommand = New MySqlCommand cmd.Connection = ' la connexion : mettre votre objet de connexion ici cmd.CommandText = "LOAD DATA LOCAL INFILE '" & TxtFichier.Text & "' INTO TABLE test FIELDS TERMINATED BY ';' ESCAPED BY '\\' LINES TERMINATED BY '\r\n'" Try cmd.Connection.Open() cmd.ExecuteNonQuery() Catch exms As MySqlException MessageBox.Show(exms.Message) Catch ex As Exception MessageBox.Show(ex.Message) Finally cmd.Connection.Close() End Try
En cherchant avec google, pas mal de personnes ont essayé de procéder de la sorte
Mais toutes les questions sont restées sans réponses (ou je n'ai pas trouvé la réponse adéquate), cela veut peut être tout simplement dire qu'il n'est pas possible de procéder de cette façon. (au passage vous n'avez pas dit ce que vous aviez dans les logs de MySQL après l'éxecution de la commande.)

Comme je vous le conseillez au début, faite une procédure stockée, puis appelez celle-ci avec VB.
Ne connaissant pas MySQL je ne peux pas vous aider davantage. (avez-vous suivi mon conseil : Demandez sur le forum MySQL si cette requête (LOAD DATA LOCAL INFILE ) peut être exécutée depuis un langage DOTNET comme VB ou C# ?)