1 2 3 4 5 6 7 8 9 10 11 12
|
Dim write_modif As String = "UPDATE tbl_Voyage, tbl_VoiturePerso SET idDestination='" & iddestination & "'," & _
"dateheuredepart='" & CultureConversion.DateCulture(dateheuredepart, "Long") & "'," & _
"dateheureretour='" & CultureConversion.DateCulture(dateheureretour, "Long") & "'," & _
"dateheuredemande='" & CultureConversion.DateCulture(Now(), "Long") & "',autredestination='" & autredestination & "'," & _
"hotel='" & hotel & "',motif='" & motif & "',commentaire='" & commentaire & "',deplacementde='" & Me.txt_deplacementde.Text & "'," & _
"deplacementa='" & Me.txt_deplacementa.Text & "',nbkm='" & Me.txt_nbkm.Text & "',marque='" & Me.txt_marque.Text & "'," & _
"puissancefiscale='" & Me.txt_puissancefiscale.Text & "',immatriculation='" & Me.txt_numerodimmatriculation.Text & "'," & _
"premieremiseencircu='" & CultureConversion.DateCulture(Me.txt_premieremiseencircu.Text, "Long") & "'," & _
"numeropermis='" & Me.txt_numeropermis.Text & "',catpermis='" & Me.txt_catpermis.Text & "'," & _
"delivrele='" & CultureConversion.DateCulture(Me.txt_delivrele.Text, "Long") & "',delivrepar='" & Me.txt_delivrepar.Text & "' WHERE idVoyage='" & idVoyage & "'" |
Partager