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
| Private Sub MultiComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MultiComboBox1.SelectedIndexChanged
Dim i As Integer
Dim dtt_temp As New DataSet
CbValRegl = New OleDbCommandBuilder(da1)
' Try
i = MultiComboBox1.SelectedIndex
If i = -1 Then
Else
MsgBox(i)
TextBox2.Text = CType(dsRegla2.Tables("Combo1").Rows(i).Item("Zone_reglage_txt1"), String)
TextBox6.Text = CType(dsRegla2.Tables("Combo1").Rows(i).Item("Zone_reglage_txt2"), String)
TextBox7.Text = CType(dsRegla2.Tables("Combo1").Rows(i).Item("Zone_reglage_txt3"), String)
''''''''''''''''''''''''''''
'Création Table intermédiare
''''''''''''''''''''''''''''
cn.Open()
SQLREQ = "CREATE TABLE Datas_reglages_Temp (N° INTEGER,ID_zone_reglage INTEGER,Reglage_txt1 Char,Reglage_txt2 Char,Reglage_txt3 Char,Reglage_ID_format Char,Reglage_long INTEGER,Reglage_DB INTEGER,Reglage_DBB INTEGER,Reglage_DBX INTEGER,Reglage_unit Char,Reglage_max Char,Reglage_min Char,Reglage_conv Char,Reglage_arch YesNo,Reglage_modif YesNo,Reglage_TAG Char); "
ExecuteCommand(SQLREQ)
cn.Close()
cn.Open()
SQLREQ = "INSERT INTO Datas_reglages_Temp SELECT * FROM Datas_réglages WHERE ID_zone_reglage= " & CType(dsRegla2.Tables("Combo1").Rows(i).Item("ID_zone_reglage"), String) & ""
ExecuteCommand(SQLREQ)
'INSERT INTO Datas_reglages_Temp SELECT * FROM Datas_reglages WHERE ID_zone_reglage= " & CType(MultiComboBox1.SelectedIndex + 1, String) & ""
cn.Close()
SQLREQ = "SELECT * FROM Datas_reglages_Temp" 'WHERE ID_zone_reglage = " & CType(dsRegla2.Tables("Combo1").Rows(i).Item("ID_zone_reglage"), String) & ""
cn.Open()
ExecuteCommand(SQLREQ)
dstabl_temp.Clear()
da1.SelectCommand = cmd
CbValRegl = New OleDbCommandBuilder(da1)
'da1.Update(dsRegla, "ValReglages")
da1.Fill(dstabl_temp, "ValReglages_temp")
dtt = dstabl_temp.Tables("ValReglages_temp")
cn.Close()
'chargement de la DataTable à partir du DataSet
DGVregul.DataSource = dtt
' cn.Open()
'SQLREQ = "INSERT INTO Datas_reglages_TempMAJ SELECT * FROM Datas_reglages_Temp"
'ExecuteCommand(SQLREQ)
End If
'Catch ex As Exception
'MsgBox("Exception : " & ex.Message)
'cn.Close()
' Finally
' cn.Close()
' End Try
End Sub
Private Sub Texbox2_6_7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Leave ',GroupBox1.TabIndexChanged
Try
cn.ConnectionString = connex
cn.Open()
SQLREQ = "UPDATE (Zones_réglages) SET Zone_reglage_txt1=@txt1,Zone_reglage_txt2=@txt2,Zone_reglage_txt3=@txt3 WHERE ID_zone_reglage= " & CType(MultiComboBox1.SelectedIndex + 1, String) & ""
cmd.Parameters.Add(New OleDbParameter("@txt1", OleDbType.VarChar, 50))
cmd.Parameters("@txt1").Value = TextBox2.Text.ToString
cmd.Parameters.Add(New OleDbParameter("@txt2", OleDbType.VarChar, 50))
cmd.Parameters("@txt2").Value = TextBox6.Text.ToString
cmd.Parameters.Add(New OleDbParameter("@txt3", OleDbType.VarChar, 50))
cmd.Parameters("@txt3").Value = TextBox7.Text.ToString
ExecuteCommand(SQLREQ)
cn.Close()
Catch ex As Exception
MsgBox("Erreur dans Valeurs de Réglages, Maj sur le changement Grpbox : " & ex.Message, MsgBoxStyle.OkCancel, "Erreur Val Reglages.")
End Try
End Sub
Private Sub DGVRegul_RowValidated(ByVal sender As Object, ByVal e As System.EventArgs) Handles DGVregul.Leave
Try
CbValRegl.ConflictOption = ConflictOption.OverwriteChanges ' Autorise l'écrasement, pour un pb de violation.
da1.Update(dstabl_temp, "ValReglages_temp")
Catch ex As Exception
MsgBox("Exception ValReglages MAJ : " & ex.Message, MsgBoxStyle.Exclamation, "Problèmes de mise à jour ")
End Try
End Sub |
