Bonjour,
Je suis nouvelle en matière de programmation VB.net et la j'essaye de faire des insertions à partir d'une fichier texte dans une base de données SQL server, voila ce que j'ai fait et je ne comprends pas pourquoi ça me bloque a la ligne "ObjetDataTable = myDataSet.Tables("dbo.Tild")".
Si quelqu'un peu m'aider ça me faciliterai la tache au lieu de continuer a tourner en rond :s !!
Voila ma sub et merci d'avance :

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
Private Sub CmdIld_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdIld.Click
        Dim NumCP As String
        Dim line As String
        Dim Chemin As String
        Dim Fichier As String
        Dim Cpt As Double
 
        ' Déclaration Objet DataSet
        Dim myDataSet As New DataSet   'Attention au New
        'String contenant la 'Requête SQL'
        Dim strSql As String
        ' Déclaration Objet DataTable
        Dim ObjetDataTable As DataTable
        ' Déclaration Objet DataRow (ligne)
        Dim ObjetDataRow As DataRow
        'Numéro de la ligne en cours
        Dim RowNumber As Integer 'Numéro de l'enregistrement courant
        'Paramêtres de connexion à la DB
        Dim strConn As String
 
        Dim ObjetCommandBuilder As OleDbCommandBuilder
 
 
 
 
        Dim MyConnection As SqlConnection = New SqlConnection("Data Source=S61P09DG989;" & _
        "Integrated Security=SSPI;Initial Catalog=Projet Maya")
        Dim Mycommand As SqlCommand = MyConnection.CreateCommand()
        Dim mydataApter As SqlDataAdapter = New SqlDataAdapter(Mycommand)
        Dim myCommandBuilder As SqlCommandBuilder
        Mycommand.Connection() = MyConnection
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
 
        Dim myDataTable As DataTable
        ' Déclaration Objet DataRow (ligne)
        dim myDataRow As DataRow
        'Numéro de la ligne en cours
        Dim myNumber As Integer
 
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        mydataApter.Fill(myDataSet, "dbo.Tild")
 
        'Mettre dans un Objet DataTable une table du DataSet
        ObjetDataTable = myDataSet.Tables("dbo.Tild")
 
 
        Chemin = "C:\Documents and Settings\9004330R\Bureau"
        Fichier = "TIld.txt"
        FileOpen(1, Fichier, OpenMode.Input)
        If Not EOF(1) Then
            Cpt = 0
            TxtCestFait.Visible = False
            MyConnection.Open()
 
            While Not EOF(1)
                Dim Textline = LineInput(1)
                ObjetDataRow = Mydataset.Tables("TIld").Rows(RowNumber)
                'Modifier les valeurs des champs en récupérant le contenu des TextBox
                ObjetDataRow("codeCP") = Mid(Textline, 1, 8)
                ObjetDataRow("DatDeb") = Mid(Textline, 11, 8)
                'Pour modifier les valeurs changées dans le DataAdapter
                myCommandBuilder = New SqlCommandBuilder(mydataApter)
                'Mise à jour
                mydataApter.Update(myDataSet, "TIld")
                'On vide le DataSet et on le 'recharge' de nouveau.
                myDataSet.Clear()
                mydataApter.Fill(myDataSet, "TIld")
                ObjetDataTable = myDataSet.Tables("TIld")
 
 
                Cpt = Cpt + 1
                TxtCompteur.Text = CStr(Cpt)
                TxtCompteur.Refresh()
            End While
            TxtCestFait.Visible = True
            FileClose(1)
        End If
    End Sub