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
| ''''********* update // mise a jour
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))
northwindConnection.Open()
cmd.ExecuteNonQuery()
northwindConnection.Close() |
Partager