Bonjour,
Dans un script VB, j'essaye d'accéder à une vue d'une base de données SYBASE.
Je réalise pour cela une connexion ADODB puis après avoir créé mon recordset je récupère les données de chaque colonne. Jusque là tout est classique.
Je n'utilise pas le même driver ODBC suivant ce que dispose l'ordinateur du client : soir "Sybase System 11" soit "Sybase ASE ODBC Driver". Tout fonctionne pour le mieux lorsque j'utilise le driver "Sybase ASE ODBC Driver".
Alors que pour le driver "Sybase System 11", certaines données sont tronquées. Lorsque je récupère un numéro de dossier, les numéro terminant par un zéro sont tronqués.
Voici le code :
======> "rstTable("DOSCTE_CDN").Value" me renvoie par exemple "3007" au lieu de "30070".
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 Set rstTable = New ADODB.Recordset 'Requête SQL récupérant les éléments engagés dont les dossiers ne sont pas clos et dont 'les actions sont fixes str_sql = "select distinct DOSCTE_CDN, ELT_ENGA_RFA from V_CTRL_ELENGA" _ & " where ETAT_DOSS_RFA='V' and ACT_FIX_RFA='F' and CTE_EFFET_DT<'" & _ Annee_element & "/01/01'" 'Execution de la requête rstTable.Open str_sql, cnx nb_objets = 0 While Not (rstTable.EOF) resultat = resultat & rstTable("DOSCTE_CDN").Value & "/" & rstTable("ELT_ENGA_RFA").Value & ";" rstTable.MoveNext nb_objets = nb_objets + 1 Wend Liste_objets = resultat
Merci de votre aide
Partager