[XL-2007] Problème de valeur de champ ADO

[Omsalam]

Bonjour à tous,

Je rencontre un problème avec un fichier .dbf.
J'essaye d'effectuer des requete SQL, pour le moment aucun problème

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
   Dim source As ADODB.Connection
    Dim Requete As ADODB.Recordset
    Dim Chemin As String, fichier As String, texte_SQL As String
 
    Chemin = ThisWorkbook.Path
    fichier = "fichier.dbf"
 
    Set source = New ADODB.Connection
    source.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & Chemin & ";"
 
    texte_SQL = "SELECT * FROM " & fichier & ";"
 
    Set Requete = New Recordset
    Requete.Open texte_SQL, source, adOpenKeyset, adLockOptimistic

Tous fonctionne correctement cependant sur une colonne j'ai un problème : les valeurs qui me sont retourner n'on absolument rien à voir avec ce que contient le fichier DBF.

Par exemple je devrais attendre ce genre de valeur (présente dans mon dbf):

76035
271435
271439
271445
271450
274875

et j'obtient ceci :

33648
35243
35243
35243
35243
35278

Je tiens à préciser que je n'ai de problèmes que sur cette colonne et que les 19 autres fonctionnent sans aucun soucis.

Est ce que quelqu'un à une idée, une piste ?

PS : question bonus : est-il possible de faire des requete SQL sur un fichier de type .SLK

Cordialement
Omsalam

Je me permet d'ajouter quelques précision :

- quand j'ouvre le fichier avec visual studio j'obtiens bien les même nombre que je souhaite afficher en vrai (avec même leur code hexadécimal qui correspond)
Pour moi cela prouve que le fichier est correcte, qu'il est bien former.

Cela viens donc de mon code :

- peut être de la référence vers : Microsoft ActiveX Data Objects 2.X Library
Il y en a tellement que je ne sait lequel prendre : 2.0, 2.1, 2.2, 2.3, ....

- Peut être de mes paramètre lors de l’exécution de la requête : dOpenKeyset, adLockOptimistic

- Ou alors de ma connectionString ?

Des idées ?

Ps : Sinon est-il possible de faire ce même genre de requete SQL mais directement sur des fichiers excel : les nom de colonnes serait alors j'imagine le numero de colonne sur excel "A,EA, ..."

[jfontaine]

Bonjour,

Je ne vois rien dans une connexion ou un recordset qui puisse modifier les données.
Peux tu nous donner le code qui écrit les données dans la feuille

[Omsalam]

Bonjour jfontaine,

Le code que j'utilise pour copier la valeur dans la feuille excel est de ce style :

Code :

 Cells(2, 1).CopyFromRecordset requete

Cependant, je ne pense pas non plus que cela vienne de la.
J'ai oublier de préciser mais j'ai aussi parcouru le fichier a la main (while EOF ...) en mode débogage, et le champs Fields(0) contient bien les fausses valeurs.

Merci

[jfontaine]

a tout hasard, quel est le type de données de ce champ?

[Omsalam]

Je ne sais pas.

En faite c'est pour mon taf.
Une requête est effectuer sur un énorme système qui nous sort donc des lignes correspondante, ensuite ce système nous offre la possibilité d'exporter en SKL ou DBF.

Personnellement j'ai choisi DBf afin de pouvoir effectuer encore des requêtes SQL derrière.

Cependant rien ne me permet dans le fichier de décrire le type de donnée dont il s'agit. Seul le nom de la colonne est ecrit une unique fois.

Je tiens à préciser que j'ai d'autre valeur "numérique" dans mon fichier qui ne pose pas de problèmes.

EDIT : Apres comme je l'ai dit.
Si j'ai possibilité simple de faire des requête sur un .xls alors ca devrait faire l'affaire. En effet les .skl peuvent être facilement transfomer en .xls

[Omsalam]

Bonjour,

Mon problème étant incomprehensible (pour moi)
J'essaye de voir d'autre solution, notament récuperer des données dans des classeurs fermer.

Cependant j'ai un poblème au niveau de la chaine de connexion

Code :

1
2
3
4
5
 If TTL = True Then HDR = "Yes" Else HDR = "No"
  myConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
              "Data Source=" & srcFile & ";" & _
              "Extended Properties=""Excel 12.0;" & _
              "HDR=" & HDR & ";IMEX=1;"""

excel me dit que la table n'est pas au format attendu.
D'après ms recherches sur internet il s'agit d'un problème de version de fichier excel et que si je tente d'ouvrir des fichier 2007 ou avant ce n'est pas la même chaine de connection.

J'en ai essayer plusieurs et je n'ai rien trouver qui fonctionne.
De plus je ne sais pas vraiment quelle est le type de mon fichier puisqu'a la base je travaille sur un .SLK (.Sylk)

merci