Discussion :

[Ravens]

Bonjour à tous,

Cela fait quelques heures que je recherche sur le net le moyen le plus rapide (et qui fonctionne) d'écrire une méthode permettant d'importer un fichier *.CSV et de l'enregistrer dans la base de donnée SQL.

La Table SQL existe déjà ainsi que le fichier CSV mais je n'arrive pas à trouver un début de code ni une direction fonctionnelle vers laquelle me diriger pour importer ce fichier SQL.

Soit je trouve des solutions qui ne donne rien, soit des solutions en c#.

Si quelqu'un peut m'aider.

Merci d'avance...

J'ai essayé ceci mais sans aucun résultat :

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
 
dialog2openFile.InitialDirectory = Application.StartupPath & "\Tools\"
dialog2openFile.Filter = "CC List|*.csv"
dialog2openFile.RestoreDirectory = True
dialog2openFile.Title = "Select a CC List"
 
Dim i As Integer = 0
 
If dialog2openFile.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Using file As New IO.FileStream(dialog2openFile.FileName, IO.FileMode.Open, IO.FileAccess.Read)
            Using stream As New IO.StreamReader(file)
 
            For Each sLine As String In stream.ReadToEnd().Split(Environment.NewLine)
 
                        Dim sRecords() As String = sLine.Split(",")
                        CCListTableAdapter.Insert(i, sRecords(1), sRecords(0))
                        i = i + 1
                    Next
                End Using
            End Using
        End If

[Ravens]

Bonjour à tous,

Pour ceux que ça intéresse voici la solution :

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
If dialog2openFile.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            ' Ouverture du fichier
            Using file As New IO.FileStream(dialog2openFile.FileName, IO.FileMode.Open, IO.FileAccess.Read)
                ' Création d'un stream de lecture
                Using stream As New IO.StreamReader(file)
                    ' Read the entire file, split it into line arrays by CRLF, and loop through it
                    For Each sLine As String In stream.ReadToEnd().Split(Environment.NewLine)
                        Dim sRecords() As String = sLine.Split({";"}, StringSplitOptions.RemoveEmptyEntries)
                        ' Insertion dans la bdd SQL temporaire
                        Dim newSQLRow As HQSdbDataSet.CCListRow = Me.HQSdbDataSet.CCList.NewCCListRow
                        newSQLRow._SAP_N_ = sRecords(0)
                        newSQLRow.Concrete_Description = sRecords(2)
                        Me.HQSdbDataSet.CCList.Rows.Add(newSQLRow)
                    Next
                End Using
            End Using
        End If
        ' Mise à jour de la bdd SQL CCList
        Me.CCListTableAdapter.Update(Me.HQSdbDataSet.CCList)
 
        Me.DBDataGrid.Dock = System.Windows.Forms.DockStyle.Fill
        Me.DBDataGrid.DataSource = CCListBindingSource

J'ai seulement trois soucis :

1/ La première ligne est prise en compte et vu qu'elle comptient les titres j'aimerais qu'elle ne le soit pas
2/ La dernière ligne est une ligne vide ce qui fait planter l'insert dans la base de donnée
3/ L'insert dans la Base de donnée ne se fait pas dans le serveur mais seulement dans les sources de données. Ce qui implique que lors du redémarrage du programme faut tout reprendre à 0.

Quelqu'un pour m'aider?

Merci