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
| Dim sql_ajouter_poste As String
Dim sql_ajouter_user_config As String
Dim j As Integer
sql_ajouter_user_config = "INSERT INTO USERS_CONFIG (ASSET,ALPS,DATE_DEBUT_ASSET,ASSET_EN_COURS,COMMENTAIRES_ASSET) VALUES (Val_ASSET, Val_ALPS, Val_DATE_DEBUT_ASSET, Val_ASSET_EN_COURS, Val_COMMENTAIRES_ASSET)"
sql_ajouter_poste = "INSERT INTO CONFIG (ASSET,TYPE,DATE_DE_LIVRAISON,PRET_POSSIBLE,LIBRE_SERVICE) VALUES (Val_ASSET, Val_TYPE, Val_DATE_DE_LIVRAISON, Val_PRET_POSSIBLE, Val_LIBRE_SERVICE)"
Dim type_config As New TextBox
Dim en_cours As New CheckBox
Dim date_day As New DateTimePicker
date_fin.Text = date_fin.MaxDate
For j = 0 To dts_config.Tables("CONFIG").Rows.Count - 1
If TXT_ASSET.Text = dts_config.Tables("CONFIG").Rows(j).Item("ASSET") Then
MsgBox("Poste déja existant")
Exit Sub
End If
Next
If RB_FIXE.Checked = True Then
type_config.Text = "FIXE"
End If
If rb_portable.Checked = True Then
type_config.Text = "PORTABLE"
End If
If RB_STATION.Checked = True Then
type_config.Text = "WORKSTATION"
End If
commande_config = New OleDb.OleDbCommand(sql_ajouter_poste, con_config)
commande_config.Parameters.AddWithValue("Val_ASSET", TXT_ASSET.Text)
commande_config.Parameters.AddWithValue("Val_TYPE", type_config.Text)
commande_config.Parameters.AddWithValue("Val_DATE_DE_LIVRAISON", DT_Dentre_config.Text)
commande_config.Parameters.AddWithValue("Val_LIBRE_SERVICE", CHK_LIBRE_SERVICE.Checked)
commande_config.Parameters.AddWithValue("Val_PRET_POSSIBLE", CHK_PRET.Checked)
dta_config.Update(dts_config, "CONFIG")
dtt_config = dts_config.Tables("CONFIG")
commande_config.ExecuteReader()
commande_config.Connection.Close()
demarrage_config()
commande_user_config = New OleDb.OleDbCommand(sql_ajouter_user_config, con_user_config)
commande_user_config.Parameters.AddWithValue("Val_ASSET", TXT_ASSET.Text)
commande_user_config.Parameters.AddWithValue("Val_ALPS", TXT_ALPS_USER.Text)
commande_user_config.Parameters.AddWithValue("Val_DATE_DEBUT_ASSET", DT_Dentre_config.Text)
commande_user_config.Parameters.AddWithValue("Val_DATE_FIN_ASSET", date_fin.Text)
If TXT_COM_CONFIG.Text = "" Then
commande_user_config.Parameters.AddWithValue("Val_COMMENTAIRES_ASSET", System.DBNull.Value)
Else
commande_user_config.Parameters.AddWithValue("Val_COMMENTAIRES_ASSET", TXT_COM_CONFIG.Text)
End If
dta_user_config.Update(dts_user_config, "USERS_CONFIG")
dta_user_config.Fill(dts_user_config, "USERS_CONFIG")
dtt_user_config = dts_user_config.Tables("USERS_CONFIG")
MsgBox("Le poste a bien été ajouté")
demarage_user_config()
End Sub |
