Types de données incompatibles lors d'une requête sous access

**RodEpsi** · 21/07/2006, 10h06

Bonjour à tous, voilà j'ai un petit soucis, j'ai une bdd access avec une table nommée "Heures",voici la structure de la table :

Réf détail : NuméroAuto
RéfFicheHoraire : Numérique (Entier long)
CodeEmployé : Numérique (Entier long)
DateTâche : Date/Heure
RéfProjet : Numérique (Entier long)
HeuresAFacturer : Numérique (Réel Double)
RéfCodeTâche : Numérique (Entier long)

Je voudrai à l'aide d'une requête SQL (par l'outil ADO) insérer des enregistrements dans cette table. Pour cela j'effectue la requête suivante (portant le nom ADOQueryAjoutHeures) :

INSERT INTO Heures (RéfFicheHoraire, CodeEmployé, DateTâche, RéfProjet, HeuresAFacturer, RéfCodeTâche) VALUES (:ref_fiche, :ref_employe, :date_tache, :ref_projet, :heures, :ref_tache);

Mes paramètres sont défini de la manière suivante :

[0] ref_fiche -> DataType : ftInteger
-> Value
-> Type : Integer
[1] ref_employe -> DataType : ftInteger
-> Value
-> Type : Integer
[2] date_tache -> DataType : ftDateTime
-> Value
-> Type : Date
[3] ref_projet -> DataType : ftInteger
-> Value
-> Type : Integer
[4] heures -> DataType : ftFloat
-> Value
-> Type : Double
[5] ref_tache -> DataType : ftInteger
-> Value
-> Type : Integer

Voici maintenant le code que j'exécute du côté du code delphi :

var
ref_fiche, c_employe, RefProjet: Integer;
DateTache: TDate;
terrain: real;

begin

ADOQueryAjoutHeures.Close; ADOQueryAjoutHeures.Parameters[0].Value:=ref_fiche; ADOQueryAjoutHeures.Parameters[1].Value:=c_employe; ADOQueryAjoutHeures.Parameters[2].Value:=DateTache; ADOQueryAjoutHeures.Parameters[3].Value:=RefProjet;
ADOQueryAjoutHeures.Parameters[4].Value:=terrain;
ADOQueryAjoutHeures.Parameters[5].Value:=1;
ADOQueryAjoutHeures.ExecSQL;

end;

cependant lors de l'execution de la requête j'obtiens l'erreur suivante :
"Type de données incompatible dans l'expression du critère"

j'ai essayé d'executer à nouveau cette requête en virant le paramètre "heures" de type reel, et la requête s'exécute alors parfaitement, ce qui signifie bien que l'erreur vient de ce paramètre "heures" et de la variable "terrain" de type réel. Cependant je n'arrive pas à résoudre ce problème d'incompativbilité des types. Quelqu'un aurait-il une réponse à m'apporter svp ?

**RodEpsi** · 21/07/2006, 10h14

ps : je viens de tester en affectant directement une valeur au paramètre de la requête au lieu de passer par une variable.

j'ai testé de 2 manières différentes :

ADOQueryAjoutHeures.Parameters[4].Value:=4;

-> La requête s'execute parfaitement

ADOQueryAjoutHeures.Parameters[4].Value:=4.5;

-> Erreur type incompatible !!

**Rayek** · 21/07/2006, 10h26

Ca doit être du au fait qu'ACCESS veut des , au lieu de . pour le séparateur décimal.

Je te propose la solution suivante :

1- Tu vires toutes les définitions des paramètres (ca sert à rien, sauf a se limiter au niveau de la saisie)
2- tu ecris :

Code :

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

1
2
 
ADOQueryAjoutHeures.Parameters[4].Value:=FormatFloat('0,00',terrain);

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  OldDecimal : char;
begin
...
 
OldDecimal := DecimalSeparator;
DecimalSeparator := ',';
...
 
ADOQueryAjoutHeures.Parameters[4].Value:=terrain;
 
...
DecimalSeparator := OldDecimal;

**RodEpsi** · 21/07/2006, 10h42

J'ai testé la première méthode et effectivement ma requête s'est exécutée correctement sauf que mes valeurs ont été arrondies :

3.50 -> 4
4.30 -> 4
1.30 -> 1
1.00 -> 1
8.00 -> 8
0.30 -> 0
0.15 -> 0
8.00 -> 8

**Rayek** · 21/07/2006, 10h43

Alors teste comme ça :

Code :

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

1
2
 
ADOQueryAjoutHeures.Parameters[4].Value:=FormatFloat('0.00',terrain);

un . à la place de la , dans 0,00

**RodEpsi** · 21/07/2006, 10h47

Non là par contre ça passe plus du tout

**Rayek** · 21/07/2006, 11h05

Pourrais tu faire un screen de ta table ACCESS en pointant sur le champ HeuresAFacturer, afin de voir la définition que tu as faites et le mettre en ligne que je puisse voir ta configuration du champ.

**RodEpsi** · 21/07/2006, 11h08

J'aurai voulu tester ton second code mais je le comprends pas trop...

tu attribues la valeur decimalseparator à la variable OldDecimal alors que tu initialise la valeur de DecimalSeparator après !

OldDecimal := DecimalSeparator;
DecimalSeparator := ',';

De plus pourquoi attribuer à la fin à DécimalSeparator la valeur de OldDecimal (sachant que DecimalSeparator n'est pas une varivale) ??

Enfin bref avec la première méthode on est pas mal il fo juste arriver à lui indiquer kil prenne les 2 chiffres après la virgule (quoi que ça ne suffira pas car il tronque pas il arrondi d'après le 3,50 -> 4)

**RodEpsi** · 21/07/2006, 11h11

Voilà le screen.

**Rayek** · 21/07/2006, 11h13

Envoyé par RodEpsi

J'aurai voulu tester ton second code mais je le comprends pas trop...

tu attribues la valeur decimalseparator à la variable OldDecimal alors que tu initialise la valeur de DecimalSeparator après !

OldDecimal := DecimalSeparator;
DecimalSeparator := ',';

De plus pourquoi attribuer à la fin à DécimalSeparator la valeur de OldDecimal (sachant que DecimalSeparator n'est pas une varivale) ??

DecimalSepartor est une variable d'environement si tu la modifies, ca modifie toute ton application au niveau du traitement donc :
- Sauvegarde de la valeur du decimalseparator
- Modification du decimalseparator pour qu'il convienne au traitement
- Traitement des données
- Remet le decimalspeparator comme il etait avant la modification.

Envoyé par RodEpsi

Enfin bref avec la première méthode on est pas mal il fo juste arriver à lui indiquer kil prenne les 2 chiffres après la virgule (quoi que ça ne suffira pas car il tronque pas il arrondi d'après le 3,50 -> 4)

C'est pour ca que je t'ai demandé plus haut de me montrer la structure directement depuis ACCESS afin de voir la configuration de ce champ

**RodEpsi** · 21/07/2006, 11h16

ok ok.

ps: je vois ke t sur tous les fronts tu luttes aussi avec forzaxelah

**RodEpsi** · 21/07/2006, 11h22

La 2ème soluce marche pas, j'ai toujours cette erreur des types incompatibles, il faut donc bien rester sur la première...

**Cl@udius** · 21/07/2006, 11h24

Salut

As-tu essayé simplement:

Code :

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

1
2
ADOQueryAjoutHeures.Parameters[4].AsFloat := terrain;

A voir ?!

**RodEpsi** · 21/07/2006, 11h29

Erreur : Opération de Variant incorrecte.

**Cl@udius** · 21/07/2006, 11h32

As-tu enlevé les définitions de paramètres comme la suggéré Malatar ?

**Rayek** · 21/07/2006, 11h32

Envoyé par Claudius40

Salut

As-tu essayé simplement:

Code :

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

1
2
ADOQueryAjoutHeures.Parameters[4].AsFloat := terrain;

A voir ?!

Ca existe pas cette synthaxe avec ADO, c'est Value uniquement pour les paramètres.

**RodEpsi** · 21/07/2006, 11h34

En réalité en passant par la 2ème solution évoquée par Malatar, c'est-à-dire le DecimalSeparator:=','; j'ai toujours l'erreur types incompatibles mais pour tant l'enregistrement dans ma table s'effectue correctement :
3.50 -> 3,5

Cependant l'erreur entraine l'arrêt de l'application

**Cl@udius** · 21/07/2006, 11h34

Ok Malatar. Ca fait quelques temps que je ne travaille pas avec Access.

@+

**Cl@udius** · 21/07/2006, 11h35

Envoyé par RodEpsi

En réalité en passant par la 2ème solution évoquée par Malatar, c'est-à-dire le DecimalSeparator:=','; j'ai toujours l'erreur types incompatibles mais pour tant l'enregistrement dans ma table s'effectue correctement :
3.50 -> 3,5

Cependant l'erreur entraine l'arrêt de l'application

Ouahh !!

**Rayek** · 21/07/2006, 11h36

Envoyé par Claudius40

Ok Malatar. Ca fait quelques temps que je ne travaille pas avec Access.

@+

PAs access mais ADO qui fait ca

Envoyé par RodEpsi

En réalité en passant par la 2ème solution évoquée par Malatar, c'est-à-dire le DecimalSeparator:=','; j'ai toujours l'erreur types incompatibles mais pour tant l'enregistrement dans ma table s'effectue correctement :
3.50 -> 3,5

Cependant l'erreur entraine l'arrêt de l'application

As tu fait un pas à pas ?
Car autant l'erreur est plus loin dans ton code et pas sur la requete d'insertion.

Types de données incompatibles lors d'une requête sous access

Bases de données Delphi

Discussions similaires

Partager

Partager