TIBTable

[RaGro]

Hallo,

ich habe ein Problem mit Interbase und TIBTable. Ich habe immer mit der BDE gearbeitet und bin in Interbase Anfänger!

Ich wollte eine Datenbank erstellen zur Entwurfszeit als TIBTable. Ich habe die Datenbank mit der IBConsole erstellt. Habe dann über die Komponentenproperties die Felder festgelegt.
Wollte dann mit create Table zur Entwurfszeit die Tabelle erstellen.
Ich habe keine Möglichkeit gefunden dies zu tun
Nun da alle Felder bereits angezeigt wurden wollte ich dann mit einer kleinen Dummyunit eben zur Laufzeit die Tabelle erstellen.

Bekomme zur Laufzeit jedoch immer die Meldung: Error nicht unterstützter Datentyp.

System:
Win10 64 Bit
Tokyo 10.2
Interbase Developer 64 Bit

Hier einmal die Dummyunit. Die Deklarationen sind bereits über die Komponenten da. Wahrscheinlich werde ich einige Komponenten zu viel drin haben.
Anfänger eben

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DBXInterBase, Data.FMTBcd, Data.DB,
  Datasnap.DBClient, Datasnap.Provider, Data.SqlExpr, Vcl.StdCtrls, Vcl.ToolWin,
  Vcl.ComCtrls, IBX.IBCustomDataSet, IBX.IBDatabase, IBX.IBTable,
  IBX.IBConnectionBroker, Vcl.Grids, Vcl.DBGrids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    IBDataSet1: TIBDataSet;
    DataSource1: TDataSource;
    IBDataSet1Nummer: TAutoIncField;
    IBDataSet1Bild: TStringField;
    IBTransaction1: TIBTransaction;
    IBDataSet1Memo: TMemoField;
    IBDataSet1Name: TMemoField;
    N: TMemoField;
    IBDataSet1Eigenschaft: TMemoField;
    IBDataSet1Körper: TMemoField;
    IBDataSet1Zeit: TMemoField;
    IBDataSet1Person: TMemoField;
    IBDataSet1Karma: TMemoField;
    IBDatabase1: TIBDatabase;
    DBGrid1: TDBGrid;
    IBTable1: TIBTable;
    IBTable1Nummer: TAutoIncField;
    IBTable1Bild: TStringField;
    IBTable1Memo: TMemoField;
    IBTable1Name: TMemoField;
    IBTable1Schlüssel: TMemoField;
    IBTable1Eigenschaft: TMemoField;
    IBTable1Körper: TMemoField;
    IBTable1Zeit: TMemoField;
    IBTable1Person: TMemoField;
    IBTable1Karma: TMemoField;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

 begin
    Button1.Caption:='DB 123';
    IBTable1.CreateTable;


    Button1.Caption:='DB erstellen';
end;
end.