Boucle sur recodset UPDATE table

Version imprimable

1 pièce(s) jointe(s)

Bonjour a tous,

Je bosse sur un classeur, qui est la partie graphique d'une base ACCESS.

on importe la table ACCESS dans une feuille.
on modifie, on repère les changements des valeurs
on stocke les les entêtes, les id, et la valeur des champs modifiés
Juste avant d'enregistrer on bouclee sur les valeur stockées et lance un UPDATE pour chacune des lignes.

Pièce jointe 206831

De temps à autre j'ai des loupés, certaine valeurs ne sont pas transmisent à access.....
J'imagine que c'est un problème sur les close ou peut-être que le UPDATE n'a pas le temps de se faire ?

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
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub update_tot()
    Dim rs As Object
    Dim strSQL As String
    Dim strConnection As String
 
 
    Set cn = CreateObject("ADODB.Connection")
 
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" & "\\chemin\madb.acdb"
 
    der_li = der_ligne_feuille("a updater", "A")
 
    Dim Range_Update As Range
    Set Range_Update = Sheets("a updater").Range("A2:A" & (der_li - 1))
 
    cn.Open strConnection
 
    For Each cellule In Range_Update
 
        Id_val = Sheets("a updater").Cells(cellule.Row, 1).Value
        Entete = Sheets("a updater").Cells(cellule.Row, 2).Value
        Val_champs = Sheets("a updater").Cells(cellule.Row, 3).Value
 
        strSQL = "UPDATE Table SET [" & Entete & "] = '" & Val_champs & "' WHERE ID = " & Id_val
        Sheets("a updater").Cells(cellule.Row, 8).Value = "UPDATE Table SET [" & Entete & "] = '" & Val_champs & "' WHERE ID = " & Id_val
        Set rs = cn.Execute(strSQL)
 
        rs.Close
        Set rs = Nothing
 
    Next cellule
 
        cn.Close
        Set cn = Nothing
End Sub

13/04/2016, 18h00
Invité
Bonjour,
Je ne sais pas si ça interfère, mais je ne vois pas l'intérêt de ça
Code:

1 2 3 4 Set rs = cn.Execute(strSQL) rs.Close Set rs = Nothing
Code:

cn.Execute strSQL
15/04/2016, 18h09
oxedet

je pencherai plus pour une mauvaise valeur : connait-on les valeurs qui ne passent pas à la mise à jour ?

une chaine comme :

Code:

strSQL = "UPDATE Table SET [" & Entete & "] = '" & Val_champs & "' WHERE ID = " & Id_val

est forcément sensible à ce qui va être écrit à la place de Entete et Val_champs
16/04/2016, 09h42
XLRATOR

Bonjour à tous,

Citation:

connait-on les valeurs qui ne passent pas à la mise à jour ?

Des valeurs qui ne passent pas, il y en a, et les plus connues en SQL sont celles qui portent des apostrophes qui déterminent en effet le début et la fin de chaines de caractères.

Alors s'il arrive que vous ayez des valeurs qui portent des apostrophes, vous aurez à doubler l'apostrophe dans vos instruction de MAJ SQL en faisant appel à la fonction REPLACE de la cellule contenant votre valeur
Dans votre cas ce serait:

Code:

strSQL = "UPDATE Table SET [" & Entete & "] = '" & Val_champs.Replace "'","''" & "' WHERE ID = " & Id_val

NB: Je suppose dans le code que Val_champs est une Cellule c.à.d un objet Range.

Bon courage.
16/04/2016, 10h02
Invité

Bonjour,
Sauf si notre amis à placé un on error en amont de sa sub une erreur d'apostrophes générerait une erreur et dans ce cas il faudrait effectivement doublé les apostrophe.

La construction de sont code en récupérant un recordeset bien quand principe correct est source de désagrément! Mais le problème ne provient pas forcément de là.

Si nous analysons la requête en fonction du tableau forcément ça marche pas car Id_1 n'est pas un numérique, mais ce tableau n'est là que pour notre compréhension!

Donc soit les messages d'erreur sont inhibé soit le Where Id renseigne un enregistrement qui ne figure pas dans la table!
16/04/2016, 11h08
XLRATOR

Citation:

Sauf si notre amis à placé un on error en amont de sa sub une erreur d'apostrophes générerait une erreur et dans ce cas il faudrait effectivement doublé les apostrophe.

En effet Oui, ça m'est venu à l'esprit à l'envoi de ma réponse, et me suis dis peut être que notre gars à fait appel à un bloc On Error Resume Next, celà ignorerait tout simplement l'erreur et passe à l'enregistrement suivant, ce qui ferait que des enregistrements soient loupés en cas d'erreur, quant à l'ID introuvable il est bien vrai que c'est plausible et qu'il fallait bien y penser :)

Bien cordialement.