Accès à une base de donnée Sybase via ADODB
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 :
Code:
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 |
======> "rstTable("DOSCTE_CDN").Value" me renvoie par exemple "3007" au lieu de "30070".
Merci de votre aide
