Bonjour,

Je suis actuellement en train de développer un petit outil en VBA pour m'aider dans mon travail de tout les jours.

Je récupère des données d'un serveur Oracle grâce à la méthode ADODB et l'utilsation de requêtes SQL.

Je n'ai aucun soucis pour récupérer mes données et les traiter. Cepdant lorsque ces données contiennent des caractères spéciaux, j'ai un problème d'encodage (enfin je crois..). En effet, tous ces caractères ne s'affichent pas, préférant afficher un point d'interrogation à l'envers, à la place..

Ex: impossible de t¿l¿charger une ts dans jedeai
end user n'arrive pas ¿ acc¿der au produit

Ce n'est pas forcément bloquant, mais ce n'est pas très joli

J'ai eu beau chercher sur Internet, je n'ai pas trouvé de cas de ce genre...

Voici le code que j'utilise pour faire un retrieve des donnés stockées dans la BDD:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub detailChange(cid As Long)
 
    Connexion_iTrack
 
    Dim rs As ADODB.Recordset
    Dim sqlstr As String
 
    Set rs = New ADODB.Recordset
 
    sqlstr = "SELECT * FROM CHANGE WHERE service='fip' and CHG_NUM =" & CLng(cid)
 
    rs.Open sqlstr, conn, adOpenStatic
 
    rs.MoveFirst
    While Not rs.EOF
        With rs
 
            lien = !ID
            stat = !Status
            assgn = !Assignee
            euser = !END_USER
            prior = !Priority
            sumary = !Summary
            desc = !Description
            odate = !open_date
            close_d = !CLOSE_DATE
            typeC = "CHANGE"
 
        End With
        rs.MoveNext
    Wend
 
    rs.Close
    conn.Close
    Set conn = Nothing
 
End sub
Existe t'il des fonctions (comme on pourrait en trouver en PHP) pour récupérer ces caractères correctement?

Merci d'avance

Bonne journée et bon week-end.

Cdlt,
Chipss