Entwickler-Ecke :: Thema anzeigen - DB-Struktur übernehmen

D. Annies - Sa 09.01.10 18:12
Titel: DB-Struktur übernehmen

Hi, Delpher,

mit dem folgenden Code erzeuge ich eine DBTabelle. Diese Struktur ist allerdings bei einer anderen Tabelle schon vorhanden. Wie man sieht, gibt es keine ID, keine Indizes.

Kann ich die Struktur irgendwie übernehmen? For-Schleife?

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

with TbSynctab do
    begin
      Active := False;
        DatabaseName := TbSchueler.DatabaseName;  //listbox11.items[listbox11.ItemIndex];
        TableName := 'Ssynctab'+ inttostr(j)+ '.dbf';
        TableType := ttDefault;  //  FoxPro, ttDBase;
        FieldDefs.Clear;
        FieldDefs.Add('Ident_Nr',   ftInteger,   0, False);
        FieldDefs.Add('Name',       ftString,   25, False);
        FieldDefs.Add('Vorname',    ftString,   25, False);
        FieldDefs.Add('Klasse',     ftString,    5, False);
        FieldDefs.Add('Fsprache1',  ftString,   15, False);
        FieldDefs.Add('Fsprache2',  ftString,   15, False);
        FieldDefs.Add('Wpk1name',   ftString,   50, False);
        FieldDefs.Add('Wpk2name',   ftString,   50, False);
        FieldDefs.Add('Wpk3name',   ftString,   50, False);
        FieldDefs.Add('Wpk4name',   ftString,   50, False);
        FieldDefs.Add('Geschlecht', ftString,    1, False);
        FieldDefs.Add('Gebdat',     ftDate,      0, False);
        FieldDefs.Add('Telefon',    ftString,   30, False);
      // IndexDefs.Clear;  IndexDefs.Add('PrimaryIndex', 'Klasse', NewIndexOptions);
      CreateTable;
      showmessage('Tabelle '+ TbSynctab.tablename+ ' ist erstellt');
    end;

Danke für Hilfe,
Detlef

BenBE - Sa 09.01.10 18:41

Nimm ne TQuery und führ damit sowas aus wie das folgende:

Wenn die Zieltabelle noch nicht existiert:

SQL-Anweisung

1:
2:

CREATE TABLE Zieltabelle
SELECT * FROM Quelltabelle WHERE 0

Whenn Du die Bedingung entsprechend formulierst, kannst Du auch beim Erzeugen gleich Daten reinkopieren lassen.

D. Annies - Sa 09.01.10 19:34

also, ich käme dann auf:

Delphi-Quelltext

1:
2:
3:
4:
5:

create table TbHelp
select * from TbIst
where 0
insert into TbHelp
select * from TbIst

Det

D. Annies - Sa 09.01.10 19:50

ohne Insert, perfekt.

Meine Meinung: :D :D

Gruß, Det

---Moderiert von Narses: Beiträge zusammengefasst---

Na, ja, es gibt (noch) einen Fehler:

Allgemeiner SQL-Fehler, Syntax Error:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  chdir(label30.caption);

    TbSynctab2.DatabaseName := TbLk.DatabaseName;  // listbox11.items[listbox11.itemindex];
    TbSynctab2.TableName := 'Lsynctab'+ inttostr(j)+ '.dbf';
    TbSynctab2.TableType := ttDefault;  //ttFoxPro,  ttDBase;

    //****************************!!!
    QLk2.close;  QLk2.sql.clear;
        QLk2.sql.text := format('Create Table TbSynctab2 ' +
                                'Select * from "%s" ', [TbLk.tablename]);
    QLk2.ExecSql;
    //****************************!!!

  showmessage('Tabelle '+ TbSynctab2.tablename+ ' ist erstellt und mit Daten gefüllt!');

Welche Lösung gibt es hier?
Gruß, Detlef

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!