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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
| ''''********* update // mise a jour
Dim SqlConnection As MySqlConnection
SqlConnection = New MySqlConnection()
SqlConnection.ConnectionString = SQL_CONNECTION_STRING
'SqlConnection.Open()
Dim sqlCommand As New MySqlCommand
Dim str_carSql As String
Dim maConnexionSQLsrv As MySqlConnection
Dim myCommand As MySqlCommand
Dim maRequete, ConnexionSQL As String
Dim MySqlConnexionSQL As MySqlCommand
Dim maConnexionSQL As New MySqlConnection
Dim num As Integer
Dim code_cl As String
Dim raison_sociale As String
Dim code_postal As String
Dim ville As String
Dim immat_tva As String
Dim regime_tva As String
Dim date_creation As Date
Dim date_modif As Date
Dim tiers_mi_sommeil As String
Dim pays As String
Dim adresse1 As String
Dim adresse2 As String
Dim adresse3 As String
Dim text_lib_tiers1 As String
Dim text_lib_tiers2 As String
Dim text_lib_tiers3 As String
Dim tiers_bloque As String
num = Convert.ToInt32(Me.TextBox20.Text)
code_cl = Trim(Me.TextBox3.Text)
raison_sociale = Trim(Me.TextBox4.Text)
code_postal = Trim(Me.TextBox5.Text)
ville = Trim(Me.TextBox6.Text)
immat_tva = Trim(Me.TextBox7.Text)
regime_tva = Trim(Me.TextBox8.Text)
date_creation = Convert.ToDateTime(TextBox9.Text).ToString("yyyy-MM-dd")
' date_creation = Convert.ToDateTime(Me.TextBox9.Text)
date_modif = Convert.ToDateTime(TextBox10.Text).ToString("yyyy-MM-dd")
' date_modif = Convert.ToDateTime(Me.TextBox10.Text)
tiers_mi_sommeil = Trim(Me.TextBox11.Text)
pays = Trim(Me.TextBox12.Text)
adresse1 = Trim(Me.TextBox13.Text)
adresse2 = Trim(Me.TextBox14.Text)
adresse3 = Trim(Me.TextBox15.Text)
text_lib_tiers1 = Trim(Me.TextBox16.Text)
text_lib_tiers2 = Trim(Me.TextBox17.Text)
text_lib_tiers3 = Trim(Me.TextBox18.Text)
tiers_bloque = Convert.ToString(Trim(Me.TextBox19.Text))
Dim northwindConnection As New MySqlConnection(connectionString)
num = Str(Me.TextBox20.Text)
' Dim strSQL As String = "update tlb_client set code_cl='" & code_cl & "', raison_sociale='" & raison_sociale & "', code_postal='" & code_postal & "', ville='" & ville & "', immat_tva=" & immat_tva & "', regime_tva=" & regime_tva & "', date_creation=" & date_creation & "', date_modif=" & date_modif & "', tiers_mi_sommeil=" & tiers_mi_sommeil & "', pays=" & pays & "', adresse1=" & adresse1 & "', adresse2=" & adresse2 & "', adresse3=" & adresse3 & "', text_lib_tiers1=" & text_lib_tiers1 & "', text_lib_tiers2=" & text_lib_tiers2 & "', text_lib_tiers3=" & text_lib_tiers3 & "', tiers_bloque='" & tiers_bloque & " where idtbl_client=" & Trim(Str(num))
'Création de la commande SQL
str_carSql = "update tlb_client set (code_cl, raison_sociale, code_postal, ville, immat_tva, regime_tva, date_creation, date_modif, tiers_mi_sommeil, pays, adresse1, adresse2, adresse3, text_lib_tiers1,text_lib_tiers2,text_lib_tiers3, tiers_bloque ) values (@p_code_cl,@p_raison_sociale,@p_code_postal,@p_ville,@p_immat_tva,@p_regime_tva,@p_date_creation,@p_date_modif,@p_tiers_mi_ensommeil,@p_pays,@p_adresse1,@p_adresse2,@p_adresse3,@p_text_libtiers1,@p_text_libtiers2,@p_text_libtiers3,@p_tiers_bloque )"
' MySqlConnexionSQL = MySqlConfigurationSettings.AppSettings("ConnectionStringSQLsrv")
' maConnexionSQLsrv = New MySqlConnection(ConnexionSQL)
'Requete mise a jour de la table client
' maRequete = "INSERT INTO [article] ( [idclient],[idarticle],"
' [prixarticle]) VALUES (@id_article, @prix_article, @nom_article)"
'Création de la commande SQL
myCommand = New MySqlCommand(str_carSql, maConnexionSQL)
'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_postale", 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))
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_postale").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
End With
'Try
'Execution de la requête
' myCommand.Connection.Open()
' myCommand.ExecuteNonQuery()
' myCommand.Connection.Close()
' Catch ex As SqlException
'Response.Write(ex.Message)
' End Try
'Try
'Execution de la requête
sqlCommand.Connection.Open()
sqlCommand.ExecuteNonQuery()
sqlCommand.Connection.Close()
' Catch ex As MySqlException
'Response.Write(ex.Message)
' End Try
northwindConnection.Close()
' Catch sqlExc As SqlException
'MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
' MessageBoxButtons.OK, MessageBoxIcon.Error)
' End Try |
