Discussion :

[flobuzz]

Bonjour à tous,

je suis en train de me faire des cheveux blancs depuis ce matin.
Histoire de gagner du temps dans la mise à jour de mes données, je souhaite modifier mes lignes de commandes de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Set Rst = Cn.Execute("select keys from A where rc_ncr = 'RC' and xdate is null") 
While Rst.EOF <> True
    Set Rst_ = New ADODB.Recordset
    Set Rst_ = Cn.Execute("select keys, actions, duration from B where keys = '" & Rst(0) & "' and duration is not null")
    While Rst_.EOF <> True
        If Rst_(1) Like "*Eval*" Or Rst_(1) Like "*review*" Then
            TAT1 = TAT1 + Rst_(2)
        End If
        Rst_.MoveNext
    Wend
    Cn.Execute ("update Concessions set TAT_Eval = " & TAT1 & " where keys = '" & Rst(0) & "'")
    Rst.MoveNext
wend

en simple update
j'ai cru comprendre qu'un DSUM s'imposait.
j'ai testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Cn.Execute ("update concessions set tat_eval = dsum(""duration"", ""workflow"", ""keys=concessions.keys and (actions like '%eval%' or actions like '%review%')"") where rc_ncr='rc' and xdate is null")

mais j'ai comme message d'erreur "trop peu de paramètres. 1 attendu."

mais là... je ne vois pas...

vous auriez des tuyaux ?...

Flobuzz

[tee_grandbois]

Bonsoir,
concessions.keys est une variable et de ce fait doit être en dehors de la phrase SQL (à quelques doubles apostrophes près):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cn.Execute ("update concessions set tat_eval = dsum(""duration"", ""workflow"", ""keys="" & concessions.keys & "" and (actions like '%eval%' or actions like '%review%')"") where rc_ncr='rc' and xdate is null")

le mieux c'est encore de passer par une variable pour construire la phrase SQL car on peut la visualiser avant l'exécution (avec Debug.Print)