Erstellen einer AccessDB über Firedac, falsche Feldtypen und -längen

[Keldorn]

Hallo,

ich muss auch mal wieder was programmieren und versuche mich ein wenig an Datenbanken.

Ich möchte über Firedac eine accessdb erstellen und möchte dort später diverse aus xml importierte Daten ablegen. Diese liegen aktuell in Clientdatasets.

Kleines Demo, prinzipiell geht das:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
const const_DBDateiname='D:\TestDB\Test2.mdb';

  procedure proc_debugType(const Caption:string;const fieldno:integer);
  Var s:string;
    begin
      s:=GetEnumname( TypeInfo(TFieldType), Ord(FDTable1.FieldDefs[fieldno].DataType));
      Memo1.Lines.add(Caption+'-'+FDTable1.Name+': Fieldtype:'+s+' Size:'+FDTable1.FieldDefs[fieldno].size.ToString);
    end;

  procedure Proc_debug(const Caption:string);
    begin
      proc_debugType(Caption,0);
      proc_debugType(Caption,1);
      proc_debugType(Caption,2);
      proc_debugType(Caption,3);
    end;

begin
  if FileExists(const_DBDateiname) then
    deletefile(const_DBDateiname);

  FDMSAccessService1.Database :=const_DBDateiname;
  FDMSAccessService1.CreateDB;

  FDConnection1.ConnectionName:='test2';
  FDConnection1.DriverName:='MSAcc';
  FDConnection1.Params.clear;
  FDConnection1.Params.Add('DriverID=MSAcc');
  FDConnection1.Params.Add('Database='+const_DBDateiname);

  FDTable1.TableName:='Testname';
//  FDTable1.FieldDefs.Assign(ClientDataSet1.FieldDefs); //egal ob so oder direkt wie folgend:
  FDTable1.FieldDefs.Add('Test_ftInteger',ftInteger,0);
  FDTable1.FieldDefs.Add('Test_ftString',      ftString,25);
  FDTable1.FieldDefs.Add('Test_ftWideString',  ftWideString,25);
  FDTable1.FieldDefs.Add('Test_ftMemo',        ftMemo,0);
  FDTable1.CreateTable(false);

  FDConnection1.Open;

  Proc_debug('vor table open');
  FDTable1.Open;
  Proc_debug('nach table open');
end;

Problem: nach table.open sind alle string-Felder vom Typ ftwidememo und von der Länge offen. Damit kann ich in access keine Beziehungen setzen.

Code:

vor table open-FDTable1: Fieldtype:ftInteger Size:0
vor table open-FDTable1: Fieldtype:ftString Size:25
vor table open-FDTable1: Fieldtype:ftWideString Size:25
vor table open-FDTable1: Fieldtype:ftMemo Size:0
nach table open-FDTable1: Fieldtype:ftInteger Size:0
nach table open-FDTable1: Fieldtype:ftWideMemo Size:0
nach table open-FDTable1: Fieldtype:ftWideMemo Size:0
nach table open-FDTable1: Fieldtype:ftWideMemo Size:0

Wenn ich in access eine DB erstelle und die mit dem Prog öffne, sind die Feldtypen und Längen richtig.

Was mache ich falsch , bzw was muss ich mir nochmal genauer anschauen?

Danke und Gruß Frank