Discussion :

[oneDev]

Bonjour,

J'utilise Delphi 7.
J'ai besoin de lire un fichier Excel. Pour cela j'utilise ADO qui me permet de charger un CDS.

Mes composants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    cds1: TClientDataSet;
    dsp1: TDataSetProvider;

Le code de chargement des données :

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
  try
    ADOConnection1.Connected := False;
    ADOTable1.Active := False;
 
    ADOConnection1.ConnectionString := Format('Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;',
                                              + 'Extended Properties="Excel 12.0;HDR=YES";',
                                              [FXlFile]);
 
    ADOConnection1.Open;
 
    ADOTable1.TableName := '[Feuil1$]';
    ADOTable1.Open;
    cds1.Open;
  except
    on e: exception do
      ShowMessage(e.Message);
  end;

Le problème est que j'ai une colonne qui contient des numéros des séries, composés de chiffres et de lettres. La colonne est détectée comme un ftFloat, toutes les valeurs avec des lettres se trouvent alors ignonrés (valeurs vides).
Je n'ai pas trouvé comment corriger ce problème.

Merci de vos conseils pour résoudre cette erreur.

[ShaiLeTroll]

As-tu tenté des champs persistants pour forcer le typage avant ouverture ?
As-tu tenté un SQL qui force le type (je ne sais même pas si c'est possible)
As-tu tenté Excel en OLE qui n'est pas bien plus compliqué que ADO

[oneDev]

> As-tu tenté des champs persistants pour forcer le typage avant ouverture ?
J'ai effectivement essayé ce matin de forcer des champs persistent en ftWidestring, mais j'ai une erreur du type "donnée attendue ftWideString au lieu de ftFloat".

> As-tu tenté Excel en OLE qui n'est pas bien plus compliqué que ADO
Je voulais justement ne pas avoir à tout refaire en OLE. Mais j'ai peur que ce soit la solution.

> As-tu tenté un SQL qui force le type (je ne sais même pas si c'est possible)
Là je ne comprends pas de quoi il s'agit. C'est un juste un fichier Excel, il n'y a pas de lien avec une DB.

[ShaiLeTroll]

Pour le SQL c'est un TADOQuery au lieu de TADOTable

ceci fonctionne normalement

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

'SELECT * FROM [Feuil1$]'

donc voir si l'on peut pouser plus loin



Regarde aussi IMEX=1 dans la chaine de connexion qui permet d'avoir une colonne avec des données mélangées donc tout est comme du texte, comme dans ce sujet

[SergioMaster]

Le problème est que j'ai une colonne qui contient des numéros des séries, composés de chiffres et de lettres

Ah j'ai eu un problème avec des colonnes qu'excel croyais en notation scientifique. ceal soit être une mésaventure identique