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:
Existe t'il des fonctions (comme on pourrait en trouver en PHP) pour récupérer ces caractères correctement?
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
Merci d'avance
Bonne journée et bon week-end.
Cdlt,
Chipss
Partager