Erreur de lecture fichier Excel

Version imprimable

20/02/2008, 10h40
fpascal

Erreur de lecture fichier Excel

Salut,

Voila, mon programme lit des donnée dans un fichier Excel et les stok dans des variable pour travailler dessus.
Cette ligne si marche super bien : (rr[j] est de type long)

Code:

rr[j]=ADOTable1->Fields->Fields[12]->Value;

Sauf quand la cellule Excel est vide, dans se cas la, j'ai comme erreur :

Citation:

Impossible de convertir le variant de type (Null) en type (Integer)

J'ai esseyer de métre se teste si :

Code:

if (ADOTable1->Fields->Fields[12]->Value==NULL)

Mais sa ne marche pas (il détecte les 0 uniquement).
J'ai aussi eseyer avec "" à la place de NULL, mais sans résultas.

Si vous avais une idée, merci.
20/02/2008, 19h24
blondelle

Salut fpascal
J'ai fait un essai comme ceci, avec un Variant que l'on ne defini pas

Citation:

Variant a;
a.Empty();
if(a.IsEmpty())
{
ShowMessage("Non defini ");
}

Je pense ne pas avoire bien compris, j'ai tester sa :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Variant test;
long rr[31];
 
 
ADOTable1->First();
 for (j = 0; j < tjour; j++) {
  test.Empty();
  test=ADOTable1->Fields->Fields[12]->Value;
  if (test.IsEmpty()) {
   rr[j]=999999;
 
  }
  else {
   rr[j]=ADOTable1->Fields->Fields[12]->Value;
  }
  ShowMessage(rr[j]);
  ADOTable1->Next();
 }

Mais j'ai toujours la méme erreur des que j'arrive à une cellule vide.

21/02/2008, 18h30
blondelle

Dans ton dernier code sur quelle ligne se situe ton erreur, quel est la valeur que tu recupere de ta table dans le Variant test.
De plus tu ecrit

Citation:

if (test.IsEmpty()) {
rr[j]=999999;

pourquoi ne pas faire un teste a l'enregistrement de ta cellule Excel dans la table, si elle est NULL alors elle prend la valeur " 999999 " ou autre chose qui te convienne
22/02/2008, 08h57
fpascal

La programme plante à la ligne :

Code:

test=ADOTable1->Fields->Fields[12]->Value;

Citation:

pourquoi ne pas faire un teste a l'enregistrement

maleureusement, je ne peut pas métre la valleur à l'ecriture dans le fichier Excell, car je n'ecris jamais dans ce fichier : en faite je vais resevoire tous les mois un fichier Excell par mail, et mon programme doit convertire les donnée dans un format lisible par un autre programme qui existe déjat. Le ShowMessage(rr[j]) n'est la que pour controle pandans le dévelopement, il vas disparaitre des que la lecture marche.
Le programme qui lit les donnée, travaille avec 999999 pour une valeur absante (qui n'est pas la méme chose qu'une valleur à 0)
22/02/2008, 13h22
blondelle

Ton champ est de quel format ( chaine, entier ...)
22/02/2008, 15h02
fpascal

Toute les cellules excell du fichier son en format standard.
22/02/2008, 17h55
blondelle

Je ne pensais pas a Excel mais au champ ici " 12 " de ta table, car la tu recupere bien une valeur stockee dans ta table et non dans Excel, tu a donc du en definie le format ( chaine, entier ...)

Citation:

test = ADOTable1->Fields->Fields[12]->Value;

Non, je lit directement dans Excel, via ca :

Code:

1
2
3
ADOConnection1->ConnectionString ="Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq="+OpenDialog1->FileName+";DefaultDir="+ExtractFilePath(OpenDialog1->FileName);
ADOConnection1->Connected=true;
ADOTable1->Active=true;

Apres avoir bien galere j'ai fais ceci, je ne sais pas si cela va t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
// chemin de la base
AnsiString FileName = "C:\\Classeur1.xls";
//AnsiString provider = "Provider=Microsoft.Jet.OLEDB.4.0;";
// on connecte avec ADOConnection
//        ADOConnection1->Provider = provider;
        Form1->ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName + ";Extended Properties=\"Excel 8.0;HDR=YES;IMEX=1\"";
        ADOConnection1->Connected = true;
        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Add("SELECT * FROM [Feuil1$]");
        ADOQuery1->Open();
        ADOQuery1->First();
Variant text = ADOQuery1->Fields->Fields[0]->Value;
if(VarIsNull(text))
{
ShowMessage("Non defini ");
}

25/02/2008, 09h23
fpascal

Je vien d'esseyer d'appliquer tas solution à mon programme, mais je me retrouve avec un erreur à la conpilation sur cette ligne si :

Code:

ADOQuery1->SQL->Add("SELECT"+"F3 = " + IntToStr(nannee) + " AND F2 = " + IntToStr(nmois) + " AND F4 = '" + station[i] +"' FROM [Feuil1$]");

je recois comme erreur :

Citation:

[BCC32 Erreur] Unit1.cpp(198): E2085 Addition de pointeur incorrecte
25/02/2008, 13h48
blondelle
Alors le code pour charger la base avec Excel ( "Provider=Microsoft.Jet.OLEDB.4.0;" ) est prevu pour ADO, tel qu'il est ecrit on suppose que la premiere ligne du tableau Excel contient les noms de champs, je ne suis pas tres bon en base de donnees encore moins en SQL mais pour lire un champ ceci fonctionne pour lire la colonne " Prenom "
Code:

1 2 ADOQuery1->SQL->Add("SELECT [Prenom] FROM [Feuil1$]");
les champs de mon tableau etaient Nom Prenom Adresse ....
25/02/2008, 15h09
fpascal

Je mérite le fouet. Mon sql devien vieu, j'ai trouver la bonne requéte :

Code:

ADOQuery1->SQL->Add("SELECT * FROM [Feuil1$] WHERE F3 = '" + IntToStr(nannee) + "' AND F2 = '" + IntToStr(nmois) + "' AND F4 = '" + station[i] + "'");

(F2,F3 et F4 son bien mes niom de collone)

se qui fait que le programme marche.

Merci beaucoup blondelle, l'ADOQuery (que je ne connaisai pas) ne plante pas avec les cellules vide, contrairement au ADOTable que j'utiliser.

Encore merci.
25/02/2008, 16h54
blondelle

Je suis contant pour toi
A+