Problème lors de mise à jours requete ADODB access VB.NET
Bonjour,
j'ai un soucis au niveau d'access. Lorsque je fait une requête d'insertion mon enregistrement ne se met pas à jours.
Voici la requête :
Code:
UPDATE D0Pointr SET D0CodActif='A', D0KyLogemt='41495', D0KyPropri='228', D0NumrDoss='1079', D0DatCreat='26/07/2002', D0DatModif='26/09/2017 13:08:49', D0Concerne='IH', D0DatDebut='09/05/1988', D0DatFinal='26/09/2017', D0EnAttent='N', D0BaOccupe='_', D0remarque='du texte', D0SitPropr='T', D0CodDistr='TO', D0CodCadas='001H ', D0CodInsRu='1315', D0CodNoImm='0014', D0CodIndex='', D0ReparCom='I' WHERE D0KeyIdent=305
celle-ci s’exécute sans problème mais le record ne se met pas à jours.
et lorsque j'utilise cette manière. L'enregistrement se met à jours mais lorsque je quitte l'application et que je fait mon select, je ne retrouve pas l'enregistrement modififé :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| .Fields("D0CodActif").Value = GlossCode("ACT", CmbD0CodActif.SelectedItem)
.Fields("D0KyLogemt").Value = Val(TxtD0KyLogemt.Text)
.Fields("D0KyPropri").Value = Val(TxtD0KyPropri.Text)
.Fields("D0NumrDoss").Value = Val(TxtD0NumrDoss.Text)
.Fields("D0DatCreat").Value = StringToDate((TxtD0DatCreat.Text))
.Fields("D0DatModif").Value = Now
.Fields("D0Concerne").Value = GlossCode("CRN", CmbD0Concerne.SelectedItem)
.Fields("D0DatDebut").Value = StringToDate((TxtD0DatDebut.Text))
.Fields("D0DatFinal").Value = StringToDate((TxtD0DatFinal.Text), True)
.Fields("D0EnAttent").Value = TxtD0EnAttent.Text
.Fields("D0BaOccupe").Value = TxtD0BaOccupe.Text
If Not String.IsNullOrEmpty(TxtD0Remarque.Text) Or Not IsDBNull(.Fields("D0remarque").Value) Then 'If TxtD0Remarque.Text <> "" Or Not IsDBNull(.Fields("D0remarque").Value) Then
.Fields("D0remarque").Value = TxtD0Remarque.Text
End If
.Fields("D0SitPropr").Value = SvSitPropr 'WkSitPropr = Determine_SitPropr(!PrAdresPos, !PrAdresPay)
.Fields("D0CodDistr").Value = SvCodDistr
.Fields("D0CodCadas").Value = SvCodCadas
.Fields("D0CodInsRu").Value = SvCodInsRu
.Fields("D0CodNoImm").Value = SvCodNoImm
.Fields("D0CodIndex").Value = SvCodIndex
.Fields("D0ReparCom").Value = SvReparCom
.Update() |
Auriez-vous une idée de ce qu'il se passe car je n'y comprend rien ?
D'avance merci.
