selection de lignes à importer

Version imprimable

Bonjour,

J'ai crée un code qui permet à un utilisateur d'importer dans une base de données , dans la table TERMES des enregistrements d'un fichier texte.

Or je voudrais que cet utilisateur puisse sélectionner les lignes qu'il veut pour les importer dans la table TERMES.
Or ce n'est pas le cas pour l'instant car toutes les lignes du fichier sélectionné sont parcourues et importées dans la base de données.

Pouvez vous m'aider à donner la possibilité à un utiloisateur de choisr les lignes qu'il veut importer .

Merci beaucoup de votre aide.

voici le code actuel

Code:

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

Private Sub menu_importer_descripteur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu_importer_descripteur.Click

        Dim clsinStream As New System.IO.MemoryStream
        Dim ouverturefichier As New OpenFileDialog
        Dim workfile As String = Nothing
        ouverturefichier.Title = "Selection d'un fichier pour l'import dans la base de données"
        ouverturefichier.Filter = "Text Files {*.txt}|*.txt"
        If ouverturefichier.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
            workfile = ouverturefichier.FileName
        Else
            Exit Sub
        End If
        uploadfile(workfile)    End Sub

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

 Private Function uploadfile(ByVal workfile As String) As Boolean

       

        If File.Exists(workfile) = True Then
            'le fichier existe, on déclare les objets
            Dim bresult As Boolean = True
            Dim ar As StreamReader = New StreamReader(workfile)
            Dim db_command As New SqlCommand
            Dim sql_insert As String
            Dim descripteurligne As String
            objConn.Open()
            db_command.Connection = objConn
            db_command.Parameters.Add("@lib_terme", "")
            sql_insert = " insert into termes(lib_terme,EM,ID_THES) values(@lib_terme, 0," & intNumThes.ToString & ")"
            db_command.CommandText = sql_insert
            'on parcourt toutes les lignes du fichier , chaque ligne étant un descripteur
            Do While ar.Peek >= 0
                descripteurligne = ar.ReadLine

                MessageBox.Show(descripteurligne)


                'on met à jour la valeur du paramètre 
                db_command.Parameters("@lib_terme").Value = descripteurligne

                'on insère un nouvel enregistrement                Try
                    db_command.ExecuteNonQuery()
                Catch ex As Exception
                    bresult = False
                    MessageBox.Show(ex.Message, "erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)

                End Try

            Loop
            'on ferme les objets            ar.Close()
            db_command.Dispose()
            objConn.Close()
            objConn.Dispose()
            Return bresult
        Else
            Return False

        End If
    End Function

04/05/2007, 13h59
bidou

Dans quel type d'interface souhaites tu présenter les lignes à sélectionner ?
07/05/2007, 15h17
new_wave

selection pour l'import

En fait ce serait dans un fichier .txt ou un fichier .doc

Il faudrait que la fonction permette de selectionner un fichier ( openfiledialog)

et une fois ce fichier ouvert, l'utilsateur sélectionnerait les lignes voulues pour l'import.

Pour l'instant la fonction d'import permet d'importer dans la bdd toutes les lignes d'un fichier choisi avec un openfiledialog, c'est tout.

Il faut , je pense créer un autre menuitem pour l'import, le premier item devrait être un item pour choisir un fichier pour l'import( "choisir un fichier d'import") et celui ci un menuitem pour l'import

Merci beaucoup de ton aide.

Cordialement.
Natahlie
07/05/2007, 15h22
Pol63

si tu veux toutes les afficher et que l'utilisateur choisisse tu peux aussi mettre des checkbox donc les texts seront les lignes du fichier
et cocher pour prendre décocher pour pas prendre
un ascenseur pour faire défiler les combobox à l'écran ...
enfin c'est à étoffer
08/05/2007, 10h42
new_wave

selection de lignes à importer

bonjour,
comment permets tu de selectionner avec un checkbox dans un fichier texte ou .doc?

Cordialement.
Nathalie
09/05/2007, 10h48
Pol63

et bin sur ta form tu mets un checkbox
et dans le code de ta form tu fait une sub de lecture du fichier, à chaque ligne tu instancie un nouveau checkbox

pour des fichiers de plusieurs centaines de lignes, ne pas faire autant de checkbox, mais juste une 20aine donc les propriétés text et value changeraient sur changement de scroll
10/05/2007, 07h36
bidou

tu peux utiliser une CheckedListBox, la remplir par exemple telle que

Citation:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Me.OpenFileDialog1.ShowDialog(Me)
Using sr As IO.StreamReader = New IO.StreamReader(Me.OpenFileDialog1.FileName)
Dim line As String
Do
line = sr.ReadLine()
Me.CheckedListBox1.Items.Add(line, False)
Loop Until line Is Nothing
sr.Close()
End Using
Catch Ex As Exception
MsgBox(Ex.Message)
End Try

End Sub

puis ensuite parcourir CheckedItems pour trouver les éléments sélectionnés