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
| 'num = Str(Me.TextBox20.Text)
'Création de la commande SQL
str_carSql = "update tbl_client set code_cl = ?p_code_cl, raison_sociale =?p_raison_sociale, code_postal=?p_code_postal, ville=?p_ville, immat_tva=?_immat_tva, regime_tva=?p_regime_tva, date_creation=?p_date_creation, date_modif=?p_date_modif, tiers_mi_sommeil=?p_tiers_mi_sommeil, pays=?p_pays, adresse1=?p_adresse1, adresse2=?p_adresse2, adresse3=?p_adresse3, text_lib_tiers1=?p_text_lib_tiers1, text_lib_tiers2=?p_text_lib_tiers2, text_lib_tiers3=?p_text_lib_tiers3 where idtbl_client=?p_idtbl_client"
myCommand = New MySqlCommand(str_carSql, northwindConnection)
myCommand.Connection = northwindConnection
myCommand.CommandText = str_carSql
myCommand.Connection.Open()
'Création de la commande SQL
'myCommand = New MySqlCommand(str_carSql, SqlConnection)
'Création et décalartion des paramètres // phipo : .Add(New MySqlParameter("?p_code_cl", SqlDbType.Int, 4))
With myCommand.Parameters
.Add(New MySqlParameter("?p_code_cl", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_raison_sociale", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_code_postal", MySqlDbType.Int32, 12))
.Add(New MySqlParameter("?p_ville", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_immat_tva", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_regime_tva", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_date_creation", MySqlDbType.Date, 45))
.Add(New MySqlParameter("?p_date_modif", MySqlDbType.Date, 45))
.Add(New MySqlParameter("?p_tiers_mi_sommeil", MySqlDbType.VarChar, 1))
.Add(New MySqlParameter("?p_pays", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_adresse1", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_adresse2", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_adresse3", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_text_lib_tiers1", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_text_lib_tiers2", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_text_lib_tiers3", MySqlDbType.VarChar, 45))
.Add(New MySqlParameter("?p_tiers_bloque", MySqlDbType.VarChar, 1))
.Add(New MySqlParameter("?p_idtbl_client", MySqlDbType.Int32, 12))
End With
'Attribution des valeurs aux paramètres
With myCommand
.Parameters("?p_code_cl").Value = code_cl
.Parameters("?p_raison_sociale").Value = raison_sociale
.Parameters("?p_code_postal").Value = code_postal
.Parameters("?p_ville").Value = ville
.Parameters("?p_immat_tva").Value = immat_tva
.Parameters("?p_regime_tva").Value = regime_tva
.Parameters("?p_date_creation").Value = date_creation
.Parameters("?p_date_modif").Value = date_modif
.Parameters("?p_tiers_mi_sommeil").Value = tiers_mi_sommeil
.Parameters("?p_pays").Value = pays
.Parameters("?p_adresse1").Value = adresse1
.Parameters("?p_adresse2").Value = adresse2
.Parameters("?p_adresse3").Value = adresse3
.Parameters("?p_text_lib_tiers1").Value = text_lib_tiers1
.Parameters("?p_text_lib_tiers2").Value = text_lib_tiers2
.Parameters("?p_text_lib_tiers3").Value = text_lib_tiers3
.Parameters("?p_tiers_bloque").Value = tiers_bloque
.Parameters("?p_idtbl_client").Value = idtbl_client
End With
myCommand.ExecuteNonQuery()
myCommand.Connection.Close() |
