Utiliser une méthode Replace sur un recordset, avant d'utiliser la méthode copyfromrecordset

Version imprimable

19/08/2010, 14h50
GarnierFlorian

Utiliser une méthode Replace sur un recordset, avant d'utiliser la méthode copyfromrecordset

Bonjour à tous !

Je pense que l'intitulé de mon problème est assez explicite :

je cherche à savoir si il est possible de faire une méthode Replace sur toutes les valeurs contenu dans mon recordset, afin de supprimer les retours chariots et les sauts de lignes, avant de faire un copyfromrecordset sur mon fichier excel !

Si vous avez besoin de précision n'hésitez pas, mais je ne vois pas comment être plus clair ^^

Merci d'avance !

Peace ;)
03/09/2010, 09h47
GarnierFlorian

Bonjour !

Toujours personne ?

J'ai fait pas mal de recherche mais je n'ai pas trouvé comment faire !

J'avais pensé faire mon Replace sur chaque ligne du recordset, mais on a pas d'éléments du style "Row", donc pas moyen :X A moins que quelqu'un sache comment faire ?^^

Ou autrement j'avais pensé à une autre chose : est-ce possible d'effectuer mon replace sur tout le contenu du recordset sans avoir besoin de traiter chaque ligne ?

Merci,

Peace
03/09/2010, 09h55
Invité

Bonjour

As-tu essayé d'utiliser le Replace dans la requête SQL qui alimente ton Recordset ?

Philippe

Bonjour Philippe !

Merci deja pour ta réponse ! Et bien je n'y avais pas pensé !

Mais à vrai dire je ne vois pas trop comment faire : voici mon code :

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
Sub SelectSQL()
    Dim supcar As String
    Dim plage, cellule As Range
 
    On Error GoTo SelectSQL_Error
        nbrecords = 0
        supcar = ""
        CHR_SUP_A = Chr(10)
        CHR_SUP_B = Chr(13)
        'On déclare le recordset
        Set rs = New ADODB.Recordset
        'Exécute la requête
        rs.CursorLocation = adUseClient
        rs.Open REQ_SELECT, connect_foxpro, adOpenStatic, adLockReadOnly
        'On sélectionne la feuille de destination
        ActiveWorkbook.Sheets(NOM_FEUILLE_SELECT).Activate
        'On efface l'ensemble du contenu précédent
        ActiveSheet.Cells.Clear
        'On vérifie que l'on a bien récupéré des enregistrements
        If Not rs.EOF Then
            rs.MoveFirst
            Set targetrange = ActiveWorkbook.Sheets(NOM_FEUILLE_SELECT).Cells(1, 1)
            'Mise en place des noms de champs comme entêtes de colonne
            For intcolindex = 0 To rs.Fields.Count - 1
                targetrange.Offset(0, intcolindex).Value = UCase(rs.Fields(intcolindex).Name)
            Next
            Application.StatusBar = "Extraction des enregistrements ..."
            'Intègre le contenu du jeu d'enregistrements dans la feuille de calcul Excel
            targetrange.Offset(1, 0).CopyFromRecordset rs

Je renseigne ma requete via une constante, mais je vois pas à quel moment je pourrais utiliser le recordset sur ma requete entre le moment où j'y fais appel, et le moment où mon recordset l'utilise !!

J'espère que je suis assez clair :$

Merci d'avance,

Peace

03/09/2010, 13h52
tototiti2008

Bonjour à tous,

Citation:

Mais à vrai dire je ne vois pas trop comment faire

Il faut modifier le SQL contenu dans REQ_SELECT, pour ça...

mais comme nous n'avons pas accès à ce contenu...
03/09/2010, 14h08
GarnierFlorian

Bonjour tototiti2008 !

Ba ecoute, c'est pas plus compliqué :

Code:

Public Const REQ_SELECT As String = "Select * from client"

Ma requete est toute simple, mais je vois pas vraiment ou est que l'on utilise un replace là-dessus :/

J'admet que j'ai encore jamais utilisé ça, et c'est la première fois que j'en entends parlé !!

Merci,

Peace
03/09/2010, 16h29
tototiti2008

Re,

Comme ta requête utilise * (qui signifie tous les champs), il faudrait la modifier pour citer chaque champ à lire, puis essayer un Replace sur chacun d'entre eux... bref pas forcément simple
en plus tu as l'air de te connecter à foxpro (?) et je ne connais pas les éventuelles spécificités du SQL foxpro

L'autre solution est de ne pas utiliser un copyfromrecordset mais de boucler sur chaque champ et chaque enregistrement pour ecrire dans chaque cellule, ce qui permettrait de remplacer avant d'ecrire dans la cellule
06/09/2010, 09h10
GarnierFlorian

BOnjour !

Merci pour ta réponse ! Du coup je vais voir comment je vais faire ça^^ Je pense que je vais laisser mon copyfromrecordset (au passage je me connecte bien à foxpro), et que je vais me faire une petite boucle pour supprimer les caractères spéciaux contenus dans les cellules de ma feuille excel !

En plus, je me suis apercu que j'ai ce problème de caractère seulement sur une colonne ! Donc je me dit que ce serait plus "optimisé" de ne faire mon replace que sur ma colonne plutôt que sur toutes !

Merci pour tout, au moins maintenant je vois comment utiliser le replace dans une requete : je savais pas qu'on pouvait effectuer cette action directement sur les champs !!

Je posterais quand j'aurais fini ma petite boucle^^ ou si j'ai un problème dessus ^^

Peace

Bon voici ma petite procédure pour supprimer les caractères spéciaux :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub MiseEnForme() Dim i, j As Integer j = 2 'On défini les caractères spéciaux à supprimer CHR_SUP_A = Chr(10) 'saut de ligne CHR_SUP_B = Chr(13) 'retour chariot 'On boucle sur la colonne qui contient des caractères spéciaux For i = 0 To nbrecords Range("BA" & j) = Replace(Range("BA" & j).Value, CHR_SUP_A, "") Range("BA" & j) = Replace(Range("BA" & j).Value, CHR_SUP_B, "") j = j + 1 Next i 'On réajuste les lignes et les colonnes Sheets(NOM_FEUILLE_SELECT).Columns("A:CH").AutoFit Sheets(NOM_FEUILLE_SELECT).UsedRange.EntireRow.AutoFit End Sub
Voila, à moins que quelqu'un ne me dise qu'il y a plus simple, ou plus rapide, je pense avoir résolu mon problème :)

Merci tototiti pour ton aide qui m'a permis de bien comprendre certaine, et finalement de m'aider à m'orienter vers cette solution :)

Bonne journée, et bonne continuation !!

Peace :)