Discussion :

[polo68]

Bonjour,

J'aimerais pouvoir remplacer des valeurs dans une variable tableau sans avoir à passer en revu chaque valeur avec une boucle. Est ce possible ?

Pour info : ma variable tableau est alimentée à l'aide d'un GetRows depuis un RecordSet créé à partir d'une requête SQL. Peut être est il possible de faire la modif en amont sans, bien entendu, toucher à la table d'origine ?

Merci

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Function rqt_sql_ope(ByVal nom_process As String) As Variant
 
Dim rcd As DAO.Recordset
Dim rqt_sql As String
Dim rqt_tab As Variant
Dim cpt As Integer
 
rqt_sql = "RQT SQL" 'celle-ci fonctionne très bien. Je l'ai enlevé.
 
Set rcd = CurrentDb.OpenRecordset(rqt_sql, dbOpenSnapshot)
 
rcd.MoveLast
cpt = rcd.RecordCount
rcd.MoveFirst
 
rqt_tab = rcd.GetRows(cpt)
 
rcd.Close
Set rcd = Nothing
 
'ici j'aimerais remplacer des valeurs qui sont maintenant dans rqt_tab
 
End Function

[Kloun]

Bonjour,

N'est il pas possible de modifier le SQL pour qu'il ramène directement les données qui vont bien ?

[polo68]

Merci pour votre réponse. Justement cela serait une solution, mais comment dire dans une requete sql de chercher et remplacer ?

[Kloun]

Avec un

Code :

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

Select Champ1, Champ2, replace(Champ3, 'toto', 'tutu') from LaTable

on ne peut pas y arriver ?

[polo68]

Je pensais à qqch de plus simple parce qu'il y a dans la fonction SQL un WHERE qui est variable et en fonction du résultat de la requête les champs dont les données sont à remplacer peuvent être n'importe où ...

[CoriS FrosT]

Salut,

Pourquoi tu ne tentes pas un replace() sur le résultat du recordset?

J'aurais fait comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Set rst = CurrentDb.OpenRecordset("SELECT...;", dbOpenSnapshot, dbReadOnly)
 
    If rst.RecordCount <> 0 Then
        Do Until rst.EOF
            For i = 0 To rst.Fields.Count - 1
                debug.print Replace(rst(i), "TOTO", "TITI")
            Next i
 
            rst.MoveNext
        Loop
    End If

[CoriS FrosT]

Bonjour,

...

sans avoir à passer en revu chaque valeur avec une boucle

...

J'avais pas vu ça, oublie moi

=> [] o(^^ o)(o ^^)o