Discussion :

[naima2005]

Bonjour,

Voic le code que j'ai crée plutot que j'ai trouvé
Mais il me retourne l'erreur ORA - 00917 : Virgule absente

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
Dim strSql As String
        Dim ObjetDataSet As New DataSet
 
 
        strSql = "INSERT INTO NAIMA ("
 
 
        'Instancier un objet Commande
 
        Dim ObjetCommand = New OracleCommand()
 
        'Instancier un objet Adapter
 
        Dim ObjetDataAdapter = New OracleDataAdapter()
 
 
 
 
 
 
        Dim monStreamReader As New IO.StreamReader(tboxchemin.Text) 'Stream pour la lecture
        Dim ligne As String ' Variable contenant le texte de la ligne
        Dim r() As String     
        Dim i As Integer = 0
        Dim strsqlentet As String
        Dim u As String = 0
        Dim nbrrow As String = 0
 
 
        'pour lire la première ligne du fichier et remplir le le debut de la requète d'insertion
        ligne = monStreamReader.ReadLine
 
        r = Split(ligne, Chr(34).ToString)
        ligne = String.Join("", r)
        r = Split(ligne, vbTab)     
        MsgBox(r(0))
        strSql = strSql + r(0)
        MsgBox(r(1))
        i = 1
        While i < 16
            ' MsgBox(r(i))
            strSql = strSql + "," + r(i)
            i += 1
        End While
        strSql = strSql + ") VALUES ("
 
        strsqlentet = strSql
 
 
        ' TRAITEMENT A EFFECTUER SUR LA LIGNE ICI
        While u < 4
            ligne = monStreamReader.ReadLine
            'la fonction split pour separer les données
            'MsgBox(ligne)
            r = Split(ligne, Chr(34).ToString)
            ligne = String.Join("", r)
            r = Split(ligne, vbTab)
 
            strSql = strsqlentet + "'" + r(0) + "'"
            i = 1
            While i < 16
                ' LeNewRow(i) = r(i)
                If i = 2 Or i = 4 Or i = 7 Or i = 8 Or i = 11 Or i = 12 Then
                    strSql = strSql + "," + "'" + r(i) + "'"
                Else
                    strSql = strSql + "," + r(i)
                End If
                'MsgBox(i)
                'MsgBox(LeNewRow(i))
                i += 1
 
 
 
 
            End While
            strSql = strSql + ")"
 
            MsgBox(strSql) ' J'affiche la requete avec tous les parametres 
 
            ObjetDataAdapter.SelectCommand = New OracleCommand(strSql, conn)
 
            ' remplir le dataset
 
            ObjetDataAdapter.Fill(ObjetDataSet, "NAIMA")
 
 
        End While
        'fermeture du stream
        monStreamReader.Close()
        'replir le datagrid
        DataGridView1.DataSource = ObjetDataSet.Tables("NAIMA")

La ligne

Code :

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

ObjetDataAdapter.Fill(ObjetDataSet, "NAIMA")

qui me déclenche l'erreur

16 c le nombre des champs
Merci

[Poulain]

met u pont d'arret sur

Code :

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

ObjetDataAdapter.SelectCommand = New OracleCommand(strSql, conn)

et regarde la valeur de strSql