Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   TDBF File erzeugen (https://www.delphipraxis.net/158563-tdbf-file-erzeugen.html)

hanspeter 22. Feb 2011 13:30

Datenbank: DBase • Version: 1 • Zugriff über: TDBF

TDBF File erzeugen
 
Hallo,
da werkle ich schon solange mit SQL, das ich nicht mehr weis wie das in der alten DBase Zeit mit TTable ging.

Wie kann ich am zweckmäßigsten eine DBF Tabelle erzeugen. Eine Tabelle habe ich als Strukturvorlage.
Ich möchte praktisch die Tabellenstruktur (TFields) kopieren und als leere Tabelle unter einen anderen Namen ablegen und dann füllen.
Ich arbeite mit TDBF.

Weis wer noch wie das ging?
Für einen Tip dankbar.

Gruß Peter

DeddyH 22. Feb 2011 13:36

AW: TDBF File erzeugen
 
CreateTable?

hanspeter 22. Feb 2011 14:29

AW: TDBF File erzeugen
 
Zitat:

Zitat von DeddyH (Beitrag 1083509)

Create table und dann
Delphi-Quellcode:
with FieldDefs.AddFieldDef do
begin
  Name := 'SPIEGEL';
  DataType := ftString;
  Size := 44;
  Required := False;
end;
...
kenne ich schon noch. Ich habe mir einen Generator geschrieben, der diese Struktur aus einem bestehenden Table als Delphi-Quelltext generiert.
Ich hatte nur gehofft eine weniger aufwendige Möglichkeit zum Kopieren einer Fielddefs zu finden.
Da ich so fast 20 Tabellen erzeugen muss.

joachimd 22. Feb 2011 14:47

AW: TDBF File erzeugen
 
gibt es nicht auch die Möglichkeit, die FieldDefs per assign zuzuweisen?
Delphi-Quellcode:
newtable.FieldDefs.Assign(oldtable.FieldDefs);

DeddyH 22. Feb 2011 14:48

AW: TDBF File erzeugen
 
Kannst Du die Struktur nicht einfach aus der alten Tabelle zuweisen?

[edit] *Oops* zu spät [/edit]

hanspeter 22. Feb 2011 20:53

AW: TDBF File erzeugen
 
Erst mal vielen Dank für die Tips.
Ich meinte mich dunkel erinnern zu können, das es da mal eine scriptartige Lösung gab.
Kann aber auch mit einem anderen zugekauften Filesystem zusammen hängen.
Ich habe mir jetzt einen Generator gebaut, der mir den Quelltext zum Definieren einer Tabelle aus der Tabellenstruktur einer vorhandenen Tabelle generiert.
Das funktioniert erst mal
Man ist halt von SQL verwöhnt.

Gruß
Peter


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:50 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz