probleme de recuperation de donnees AS400

Question

bonjour

J'ai un souci avec l'AS400, lorsque je me connecte avec vb sur une table AS400 par ADO, certaines de mes donn&#233;es ne sont pas correctes, voici mon code (qui parait simple) 

    Dim SystemName As String
    Dim UserSec As String
    Dim PwdSec As String
    Dim StrSql As String
    
    Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset


    SystemName ="nomdusysteme"
    UserSec = "utilisateur"
    PwdSec = "motdepasse"


    Set con = New ADODB.Connection     
    
    con.Open "provider=IBMDA400;data source=" & SystemName & "", "" & UserSec & "", "" & PwdSec & "" 
   
    Set rs = New ADODB.Recordset 


    StrSql = "SELECT ccco,ccname FROM DURDTAP2.F0010"
    
    rs.Open StrSql, con


    While Not (rs.EOF)
        For i = 0 To rs.Fields.Count - 1
            MsgBox rs.Fields(i)
        Next i
        rs.MoveNext
    Wend


    rs.Close

Lorsque le prog arrive a la msgbox, cette boite m'affiche ???? pour la premiere zone du select. Je pense que c'est un probleme de CCSID et vous ? car la je n'arrive pas a trouver de solution (sauf utiliser une autre methode d'acc&#233;s)

Merci d'avance pour votre aide

asecher · Answer

En AS400, les caract&#232;res sont peut-&#234;tre en EBCDIC et non pas en ASCII;
Il faut peut-&#234;tre chercher par l&#224;....

Alain 31

billout80000 · Answer

salut alain

Je suis d'accord avec toi, mais la deuxieme zone du select s'affiche correctement.
les deux zones sont des zones alphanumeriques dans l'AS/400 et seul le deuxieme s'affiche correctement.

Merci pour ta reponse

Probleme de recuperation de donnees AS400

2 réponses

Discussions similaires