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
| Dim cn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim cbListe As OleDbCommandBuilder
Dim request1, val As String
val = Mid(Modul.Adr_deb.Text, 1, 3)
request1 = "SELECT * FROM Voies "
Dim connex As String = "provider = microsoft.jet.oledb.4.0 ;" & _
"Data Source= " & "C:\Documents and Settings\stagiaire1\Bureau\Stagiaire1\Base de donnée Pégase\Pégase Test.mdb"
cn.ConnectionString = Connexion.Text
cn.Open()
Try
'Connexion BDD
' assure que la MAJ est possible --> c'est le constructeur des ordres SQL
' sur le dataadaptater
cbListe = New OleDbCommandBuilder(da)
cmd.CommandText = request1
cmd.Connection = cn
da.SelectCommand = cmd
da.Fill(dsVoie, "Voies")
dtt = dsVoie.Tables("Voies")
'chargement d e la DataTable à partir du DataSet
With DataGridView18
.DataSource = dtt
.AllowUserToResizeColumns = True
.Columns(0).Width = 40
.Columns(1).Width = 45
.Columns(2).Width = 43
.Columns(3).Width = 45
.Columns(0).HeaderText = "Racks"
.Columns(1).HeaderText = "Module"
.Columns(2).HeaderText = "Adr"
.Columns(3).HeaderText = "Format"
.Columns(4).HeaderText = "Txt1"
'.Columns(7).HeaderText = "Crit_Txt1"
'.Columns(8).HeaderText = "Crit_Txt2"
'.Columns(9).HeaderText = "Crit_Txt3"
'.Columns(10).HeaderText = "Crit_Txt4"
.Columns(11).HeaderText = "Mnémo"
.Columns(12).HeaderText = "Tag"
End With
If Langue2ToolStripMenuItem.Enabled = False Then
With DataGridView18
.Columns("Voie_txt2").Visible = True
.Columns(5).HeaderText = "Txt2"
End With
ElseIf Langue3ToolStripMenuItem.Enabled = False Then
With DataGridView18
.Columns("Voie_txt3").Visible = True
.Columns(6).HeaderText = "Txt3"
End With
Else
With DataGridView18
.Columns("Voie_txt2").Visible = False
.Columns("Voie_txt3").Visible = False
End With
End If
Dim dr As DataRow
Dim i, j As Integer
Dim ValAdrDeb As Integer
If ValAdrDeb.ToString IsNot Nothing Then
ValAdrDeb = CType(Modul.Adr_deb.Text, Integer)
End If
'Ajout des valeurs ds DGV
' MsgBox("Prefixe=" & ValAdrDeb)
For i = 0 To Nbr_voies
For j = 0 To 7
dr = dsVoie.Tables("Voies").NewRow()
dr("Voie_adr") = ValAdrDeb & "." & j
dsVoie.Tables("Voies").Rows.Add(dr)
i = i + 1
Next
ValAdrDeb = ValAdrDeb + 1
Next
DataGridView18.Update()
da.Update(dsVoie, "Voies")
cn.Close()
Catch objExcept |
