1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| SQl = " UPDATE piece " & _
"set mat_loc = '" & _
Replace(TxtLoc(0).Text, "'","''") & _
"', date_limite_vers = " & _
TxtLoc(4).Text & _
", date_location = '" & _
TxtLoc(2).Text & _
"', duree_location = " & _
TxtLoc(3).Text & _
", montant_loyer = " & _
TxtLoc(7).Text & _
", type_loc = '" & _
Replace(Combo1.Text, "'","''") & _
"', caracteristique = '" & _
Replace(TxtLoc(5).Text, "'","''") & _
"', description = '" & _
Replace(TxtLoc(6).Text, "'","''") & _
"' where mat_loc = '" & _
Replace(TxtLoc(0).Text, "'","''") & _
"'"
Debug.Print SQL
MyCon.Execute SQL |
Partager