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 |
