Paradox 7 Tabelle dynamisch aus DB erstellen

[Christian18]

achso einz vieleicht noch hier einmal ein aktueller quellcode:

Delphi-Quellcode:

procedure TFFFeld.BitBtn4Click(Sender: TObject);
  var i : Integer;
begin
  // Datenbank Dynamisch erstellen
  DM.Table1.Active:=False;
  DM.Table1.DatabaseName:=ExtractFilePath(Application.ExeName) + 'dynamischeDB\';
  DM.Table1.TableName:=DM.TFormulareFormular.AsString;
  DM.Table1.TableType:=ttParadox;

  DM.Table1.FieldDefs.Clear;
  DM.TFelder.First;

while NOT DM.TFelder.Eof do
begin
  if DM.TFelderFeld.AsString='T' then
      DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftString, DM.TFelderLaenge.AsInteger, false)
  else if DM.TFelderFeld.AsString='Z' then
      DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftInteger, DM.TFelderLaenge.AsInteger, false)
  else if DM.TFelderFeld.AsString='D' then
      DM.Table1.FieldDefs.Add(DM.TFelderFeld.AsString, ftDate, DM.TFelderLaenge.AsInteger, false);

   DM.TFelder.Next;
end;
DM.Table1.CreateTable;

  DM.Table1.CreateTable;
end;

[MrSpock]

Hallo Christian,

du hast Recht dein Code macht das gleiche. War nur etwas ungewöhnlich.

Es liegt glaube ich an der Länge der Felder. Für Integer und Date muss glaube ich immer 0 übergeben werden.

[zusatz]
Du kannst zumindest bei D7 die letzten beiden Parameter auch weglassen. Sie haben default Werte für alles außer Strings.
Außerdem gibt es die neue Funkion AddFieldDefs
[/zusatz]

[Christian18]

hallo Mr. Spock,

wenn in der erstellten DB das Feld vom Typ datum oder integer ist, dann habe ich das so gemacht das, das jeweilige längen Feld auf 0 gesetz wird. also das kann es dann auch nicht sein.

[MrSpock]

Hallo Christian,

gehe die Schleife einmal Schritt für Schritt durch und überpüfe die Werte für Feld und Laenge an der Stelle, an der der Fehler auftritt.

Könnte es sein, das keine Bedingung erfüllt ist, weil z.B. 'T ' (mit blank) in der Tabelle steht und deshalb FieldDefs leer ist, wenn die Tabelle erstellt werden soll?

[Christian18]

Hallo,

der fehler tritt immer bei Create table auf. Die Idee mit der Schleife hatte ich auch schon. :)

MFG

Christian18

[MrSpock]

Hallo Christian,

hat einer der Namen Umlaute oder Sonderzeichen?

Hänge doch einmal die Tabelle TFelder an, dann probier ich das mal aus.

Bist du auch sicher, dass die Tabelle noch nicht existiert?

[Christian18]

hier die tabelle TFelder

[Christian18]

Zitat:

Zitat von MrSpock

Hallo Christian,

hat einer der Namen Umlaute oder Sonderzeichen?

Hänge doch einmal die Tabelle TFelder an, dann probier ich das mal aus.

Bist du auch sicher, dass die Tabelle noch nicht existiert?

eigentlich schon denn im verzeichnis wo die DB erstellt werden soll, da ist keine DB :)

[MrSpock]

Hallo Christian,

ich muss Morgen auf Dienstreise und kann mir das erst übermorgen genauer anschauen. Aber ich bin sicher, das das lösbar ist.

[MrSpock]

Hallo Christian,

Feldnamen dürfen nicht mit einer Ziffer beginnen!