| Autor |
Beitrag |
D. Annies
Beiträge: 1843
windows 7
D6 Enterprise, D7 Pers und TD 2006
|
Verfasst: Sa 09.01.10 18:16
Hi, Delpher,
hier kommt mein zweites Problem:
Ich will eine Tabelle mit den Daten einer anderen Tabelle füllen. Geht das auch eleganter als so?
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| while not TbSchueler.eof do
begin
TbSynctab.append;
TbSynctab.fieldbyname('IDENT_NR').AsInteger := TbSchueler.fieldbyname('IDENT_NR').asinteger;
TbSynctab.fieldbyname('NAME').asstring := TbSchueler.fieldbyname('NAME').asstring;
TbSynctab.fieldbyname('VORNAME').asstring := TbSchueler.fieldbyname('VORNAME').asstring;
TbSynctab.fieldbyname('KLASSE').asstring := TbSchueler.fieldbyname('KLASSE').asstring;
TbSynctab.fieldbyname('FSPRACHE1').asstring := TbSchueler.fieldbyname('FSPRACHE1').asstring;
TbSynctab.fieldbyname('FSPRACHE2').asstring := TbSchueler.fieldbyname('FSprache2').asstring;
TbSynctab.fieldbyname('WPK1NAME').asstring := TbSchueler.fieldbyname('WPK1NAME').asstring;
TbSynctab.fieldbyname('WPK2NAME').asstring := TbSchueler.fieldbyname('WPK2NAME').asstring;
TbSynctab.fieldbyname('WPK3NAME').asstring := TbSchueler.fieldbyname('WPK3NAME').asstring;
TbSynctab.fieldbyname('WPK4NAME').asstring := TbSchueler.fieldbyname('WPK4NAME').asstring;
TbSynctab.fieldbyname('GESCHLECHT').asstring := TbSchueler.fieldbyname('GESCHLECHT').asstring;
TbSynctab.fieldbyname('GEBDAT').AsString := DatetoStr(TbSchueler.fieldbyname('GEBDAT').AsDateTime);
TbSynctab.fieldbyname('TELEFON').asstring := TbSchueler.fieldbyname('TELEFON').asstring;
TbSynctab.post; inc(nk); TbSchueler.Next;
end;
TbSynctab.close; |
Danke,
Det _________________ ut vires desint, tamen est laudanda voluntas
|
|
BenBE
 
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Sa 09.01.10 18:39
Jap. TQuery und dann mit einem INSERT-SELECT-Befehl arbeiten:
SQL-Anweisung
1:
2:
3:
4:
| INSERT INTO Zieltabelle
SELECT Spalten, die, zu, uebernehmen, sind
FROM Quelltabelle
WHERE Bedingung_fuer_Übernahme |
Zu beachten ist, dass die Spalten in der SELECT-Anweisung in der gleichen Reihenfolge wie in der Zieltabelle anzugeben sind. _________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
D. Annies 
Beiträge: 1843
windows 7
D6 Enterprise, D7 Pers und TD 2006
|
Verfasst: Sa 09.01.10 18:51
Hi, Benny,
also geht auch ein select * from ...
und: kann die where-Klausel auch fehlen?
Gruß, Detlef
_________________ ut vires desint, tamen est laudanda voluntas
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Sa 09.01.10 18:54
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
D. Annies
Beiträge: 1843
windows 7
D6 Enterprise, D7 Pers und TD 2006
|
Verfasst: Sa 09.01.10 18:56
aha, denn kann ich ja los-proggen,
melde mich wieder,
Detlef
_________________ ut vires desint, tamen est laudanda voluntas
|
|
|
D. Annies