Encodage des données issus d'une requête SQL
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:
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
