Discussion :

[AnnSo]

Dans certaines de mes tables, il y a des dates à '01/01/0001'...
J'ai besoin de tranférer des données d'un TDataSet à un autre... Pour cela, je fais donc une boucle du genre :

Code :

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

1
2
3
 
    For i:= 0 to FieldCount -1 Do
          Tb.Fields[i] := Fields[i];

Là, erreur lorsque l'on passe sur une date à '01/01/0001'. Le message est le suivant :

Le projet a provoqué une classe d'exception EVariantOverFlowError avec le message 'Débordement lors de la conversion du variant de type (date)'

puis

Valeur incorrecte pour le champ DATE

Pour isoler mon cas, j'ai créé un projet avec une zone de saisie DBEdit sur une table créé pour l'occasion, ne contenant qu'une zone date.
Et effectivement, lorsque je saisie '01/01/0001' et que je tente d'alimenter la table, même plantage...
Pour une meilleure compréhension, voici le code :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
type
  TForm1 = class(TForm)
    BtnOpenInsert: TButton;
    BtnPost: TButton;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    Table1: TTable;
    procedure BtnPostClick(Sender: TObject);
    procedure BtnOpenInsertClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BtnPostClick(Sender: TObject);
begin
  with Table1 do
    begin
      Fields[1] := DBEdit1.Field;           // ****PLANTAGE ICI !!!!!!!! ****
      Post;
      Close;
    end;
end;
 
procedure TForm1.BtnOpenInsertClick(Sender: TObject);
begin
  with Table1 do
    begin
      Open;
      Insert;
    end;
end;

Y'aurait-il un paramêtrage à faire ou autre pour palier à ce problème ?
Merci d'avance pour votre aide !!!

[fs999]

Salut,

Je suppose que tu veux assigner la valeur du champ d'une table à une autre.

Alors il faut faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For i:= 0 to FieldCount -1 Do 
          Tb.Fields[i].Value := Fields[i].Value;
 
ou
 
with Table1 do 
    begin 
      Fields[1].Value := DBEdit1.Field.Value;
      Post; 
      Close; 
    end;

A+

[AnnSo]

Oui, merci !
Bin même plantage au même endroit !

Par contre, je pense que c'est un pb Delphi voir Windows car une telle date n'est pas envisageable apparement.
Rien que si je veux rentrer '01/01/0001' dans un TDateTimePicker, ce n'est pas possible !

[fs999]

Normalement cette date doit fonctionner.

Code :

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

StrToDate('01/01/0001') renvoi -693593

Il faut peut-être spécifier AsDateTime au lieu de Value.

A+

[AnnSo]

Effectivement, lorsque je fais du pas à pas, il fait bien la conversion qui donne le -693593 mais j'ai cru comprendre que c'est la valeur négative qui ne lui plait pas.

Dans l'unité Variant, on a la fonction :

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
 
function _VarToDate(const V: TVarData): TDateTime;
var
  LValue: Extended;
begin
  case V.VType of
    varEmpty:    LValue := 0;
    varSmallInt: LValue := V.VSmallInt;
    varInteger:  LValue := V.VInteger;
    varSingle:   LValue := V.VSingle;
    varDouble:   LValue := V.VDouble;
    varCurrency: LValue := V.VCurrency;
    varDate:     LValue := V.VDate;
...
...

Et je crois que c'est à ce niveau là que ça plante car LValue est un Extended alors que V.VDate = -693593 d'où plantage ! Car à moins que je ne me trompe mais le type Extended est un nombre POSITIF !

[fs999]

Normalement l'Extended accepte aussi les nombres négatifs. C'est peut-être une question de "range". Il faut essayer avec AsDateTime à la place de Value, comme ça pas de transformation Variant.

A+

[AnnSo]

Merci pour tous ces éléments de réponse !
Effectivement, avec AsDateTime, ça marche !
J'y avais pensé seulement, les tables gérées et leur contenu ne sont pas fixes mais maintenant que j'y pense, il y a un moyen pour connaitre le type du field...
Suis-je bête !!!!!!!!!!!!!

Merci beaucoup !!!!