Discussion :

[edisson81]

J'utilise le composant tDBF avec la fonction CopyFrom(DataSet:TDataSet;FileName:string;
DateTimeAsString:Boolean;Level:Integer) pour générer les états.
Le problème est : quand le dataset à copier contient un champs de type Time alors j'ai cette erreur : "VCL field type A not supported by DBF".
Y-a-t-il un moyen pour remédier à ce problème et merci.

[ShaiLeTroll]

Je fais quelques fois du DBase (fichier DBF) sous Appollo, il me semble que les Types Time et DateTime n'existent pas, c'est que le type DATE ...

[edisson81]

j'ai trouvé ça sur la doc mais je ne sais comment ça fonctionne

property OnCopyDateTimeAsString: TConvertFieldEvent read
FOnCopyDateTimeAsString write FOnCopyDateTimeAsString;
Write an OnCopyDateTimeAsString event to provide a custom formatting of DateTime ?elds
into string Fields. See the CopyFrom procedure.

[ShaiLeTroll]

Je ne connais pas ce composant mais cela me semble être ceci

pour l'appel de ta méthode faut écrire

Code :

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

1
2
 
CopyFrom(DataSet, 'MaTable.DBF', True, 0);

pour OnCopyDateTimeAsString, c'est un Evènement doit tu fois fournir le Gestionnaire

tu affecte un Gestionaire de ce type au composant

Code :

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

1
2
3
4
5
 
procedure TFormDBF.ComponentDBFCopyDateTimeAsString(DataSet: TDataSet; const FieldName: string; var StringValue: string);
begin
  // tu dois avoir une valeur datetime à ce moment, avec un FormatDateTime tu dois pouvoir faire une chaine ...
end;

pour affecter le Gestionnaire, tu clicque sur le composant DBF, tu fais F11, tu vas dans l'onglet Evenement, tu double clique dans OnCopyDateTimeAsString, ça devrait te créer un code proche de celui ci dessus, ...

[Cl@udius]

Salut

Tu as cet échec simplement parce que le type ftTime n'existe pas sous dBase, et ne peut être transcrit.

2 solutions s'offre à toi:

1. Tu modifies le code source du compo pour transcrire le champ Time en String
2. Ou plus simple, tu castes ton champ Time en String dans ta requête source

@+ Claudius

[ShaiLeTroll]

@Claudius
Justement, la conversion ne serait pas prévu via l'implémentation d'un Gestionnaire pour OnCopyDateTimeAsString ???

Sinon, selon les moteurs, le SQL est très très lent avec Dbase, il existe un script natif pour faire des filtres assez poussé sous Apollo ...

[Cl@udius]

Salut Shai

Justement, la conversion ne serait pas prévu via l'implémentation d'un Gestionnaire pour OnCopyDateTimeAsString ???

Ben non le problème est en amont lorsque le compo créé la structure de la table dBase cible. Paf échec lorsqu'il tombe sur champ ftTime qu'il ne sait pas transcrire.

Peut-être en définissant des champs persistants sur la table cible ? Il faut que je teste.

@+ Claudius

[edisson81]

Merci à vous deux, j'ai essayé la solution que ShaiLeTroll a proposé c.à.d:

Code :

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

1
2
3
4
5
6
7
CopyFrom(DataSet, 'MaTable.DBF', True, 0);
 
procedure TFormDBF.Dbf_PRNCopyDateTimeAsString(Dbf: TDbf; DstField,
  SrcField: TField);
begin
  DstField.AsString := FormatDateTime('hh:mm', SrcField.AsDateTime);
end;

Mais toujours le même problème. Il reste à tester la solution de Cl@udius.

[Cl@udius]

Salut

Il reste à tester la solution de Cl@udius.

Champs persistants ou pas: même problème.

De quelle version du compo disposes-tu ?
Perso j'ai la version 6.9.0 que je viens de modifier pour qu'il gère les champs ftTime

@+ Claudius

[edisson81]

Je dispose de la version 6.48. Peux tu m'envoyer la 6.9?
et merci.

[Cl@udius]

Re,

En fait je dispose de la 6.9.1 que tu peux télécharger ici
C'est la dernière en date.

Ensuite je te prépare les modifs à effectuer...

[edit]
Et voici.

Unit dbf.pas

Modification de l'implémentation de la procedure TDbf.CopyFrom (1 ajout, 1 modif)

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
 
procedure TDbf.CopyFrom(DataSet: TDataSet; FileName: string; DateTimeAsString: Boolean; Level: Integer);
var
  lPhysFieldDefs, lFieldDefs: TDbfFieldDefs;
  lSrcField, lDestField: TField;
  I: integer;
begin
  FInCopyFrom := true;
  lFieldDefs := TDbfFieldDefs.Create(nil);
  lPhysFieldDefs := TDbfFieldDefs.Create(nil);
  try
    if Active then
      Close;
    FilePath := ExtractFilePath(FileName);
    TableName := ExtractFileName(FileName);
    FCopyDateTimeAsString := DateTimeAsString;
    TableLevel := Level;
    if not DataSet.Active then
      DataSet.Open;
    DataSet.FieldDefs.Update;
    // first get a list of physical field defintions
    // we need it for numeric precision in case source is tdbf
    if DataSet is TDbf then
    begin
      lPhysFieldDefs.Assign(TDbf(DataSet).DbfFieldDefs);
      IndexDefs.Assign(TDbf(DataSet).IndexDefs);
    end else begin
{$ifdef SUPPORT_FIELDDEF_TPERSISTENT}
      lPhysFieldDefs.Assign(DataSet.FieldDefs);
{$endif}      
      IndexDefs.Clear;
    end;
    // convert list of tfields into a list of tdbffielddefs
    // so that our tfields will correspond to the source tfields
    for I := 0 to Pred(DataSet.FieldCount) do
    begin
      lSrcField := DataSet.Fields[I];
      with lFieldDefs.AddFieldDef do
      begin
        if Length(lSrcField.Name) > 0 then
          FieldName := lSrcField.Name
        else
          FieldName := lSrcField.FieldName;
        FieldType := lSrcField.DataType;
        Required := lSrcField.Required;
        if (1 <= lSrcField.FieldNo)
            and (lSrcField.FieldNo <= lPhysFieldDefs.Count) then
        begin
          // Ajout -------------------------------------------------------------
          if DataSet.Fields[I].DataType = ftTime then
            Size := 8   // 'hh:mm:ss'
          else
          // Fin Ajout -------------------------------------------------------------
            Size := lPhysFieldDefs.Items[lSrcField.FieldNo-1].Size;
          Precision := lPhysFieldDefs.Items[lSrcField.FieldNo-1].Precision;
        end;
      end;
    end;
 
    CreateTableEx(lFieldDefs);
    Open;
    DataSet.First;
{$ifdef USE_CACHE}
    FDbfFile.BufferAhead := true;
    if DataSet is TDbf then
      TDbf(DataSet).DbfFile.BufferAhead := true;
{$endif}      
    while not DataSet.EOF do
    begin
      Append;
      for I := 0 to Pred(FieldCount) do
      begin
        lSrcField := DataSet.Fields[I];
        lDestField := Fields[I];
        if not lSrcField.IsNull then
        begin
          // Modif -------------------------------------------------------------
//        if lSrcField.DataType = ftDateTime then
          if lSrcField.DataType in [ftDateTime, ftDate] then
          // Fin Modif ---------------------------------------------------------
          begin
            if FCopyDateTimeAsString then
            begin
              lDestField.AsString := lSrcField.AsString;
              if Assigned(FOnCopyDateTimeAsString) then
                FOnCopyDateTimeAsString(Self, lDestField, lSrcField)
            end else
              lDestField.AsDateTime := lSrcField.AsDateTime;
          end else
            lDestField.Assign(lSrcField);
        end;
      end;
      Post;
      DataSet.Next;
    end;
    Close;
  finally
{$ifdef USE_CACHE}
    if (DataSet is TDbf) and (TDbf(DataSet).DbfFile <> nil) then
      TDbf(DataSet).DbfFile.BufferAhead := false;
{$endif}      
    FInCopyFrom := false;
    lFieldDefs.Free;
    lPhysFieldDefs.Free;
  end;
end;

unit dbf_fields.pas

Modication de la procédure TDbfFieldDef.VCLToNative (1 Ajout)

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
 
procedure TDbfFieldDef.VCLToNative;
begin
  FNativeFieldType := #0;
  case FFieldType of
    ftAutoInc  : FNativeFieldType  := '+';
    // Ajout -------------------------------------------------------------------
    ftTime     : FNativeFieldType  := 'C';
    // Fin Ajout ---------------------------------------------------------------
    ftDateTime :
    [...]
  end;
  if FNativeFieldType = #0 then
    raise EDbfError.CreateFmt(STRING_INVALID_VCL_FIELD_TYPE, [GetDisplayName, Ord(FFieldType)]);
end;

Voilà !

Le champs de type ftTime sont automatiquement transformés en champs de type ftString de longueur 8.

Et ceci fonctionne indépendemment de l'option DateTimeAsString (True ou False).

@+ Claudius

[edisson81]

ça marche sans erreur, mais au lieu d'avoir 15:00:00 j'ai 30/12/18 et ce dans toutes les colones

[Cl@udius]

Quand tu dis dans toutes les colonnes, tu veux sûrement dire pour tous les enregistrements de ma colonne du type ftTime. Oui?


Appelle la fonction CopyFrom de cette façon, pour voir:

Code :

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

1
2
 
  DBF1.CopyFrom(DataSetSource, 'c:\temp\CopyTest.dbf', False, 4);

@+

[edisson81]

c'est bon ça marche mnt, j'ai ajouter le ftTime dans le test :

Code :

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

1
2
3
4
5
6
7
 
  [...]
//Modif -------------------------------------------------------------
//        if lSrcField.DataType = ftDateTime then
          if lSrcField.DataType in [ftDateTime, ftDate, ftTime] then
// Fin Modif ---------------------------------------------------------
   [...]

[Cl@udius]

Ah OK ! Il te manquait un morceau !!!

Bon ravi que cela fonctionne.

@+ Claudius