Datensatz unter Paradox kopieren

stelmaszyk · Hält's aus hier Beiträge: 2

Wie kann man einen (einen!!!) Datensatz von einer Paradoxtabelle in eine andere kopieren.
Die Zieltabelle enthält nicht alle Felder der Quelltabelle.
Die Lösung mit ...fieldbyname...:=...fieldbyname...usw ist mir zu umfangreich (ca. 36 Felder). Wer hat eine Lösung, bitte nicht mit SQL, das klappt in einer Multiuserumgebung nicht immer sauber, mit batch-move bekomme ich bei einem Datensatz (ohne range ...) eine Indexfehler, warum...???.

Danke für die Hilfe.

mkinzler · Verfasst: Fr 29.12.06 06:27

Zitat:

Wer hat eine Lösung, bitte nicht mit SQL, das klappt in einer Multiuserumgebung nicht immer sauber

??? Mit SQL funktioniert es genauso gut oder schlecht wie mit TTable.
Dein Vorhaben würde so einfach aber nur mit SQL funktionieren:

markieren

SQL-Anweisung

1:	Select ... into ...

_________________
Markus Kinzler.

jasocul · Verfasst: Fr 29.12.06 08:57

SQL wäre sicher die beste Lösung, aber wenn Du das nicht möchtest, dann gibt es auch andere Möglichkeiten.
Du musst nicht FieldByName verwenden. Es geht auch Fields[Feldnummer]. Mit einer Schleife kannst Du das dann sehr schnell durchlaufen.

Lake · Beiträge: 78 D6 prof., Delphi 10.2 Tokyo

Davon ausgehend, dass beide Tabellen die gleiche Structur haben, würde ich es so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

tblZiel.edit;
tblZiel.insert;
for iCnt := 0 to tblQuelle.FieldCount - 1 do 
begin
  tblZiel.Fields[iCnt].AsVariant := tblQuelle.Fields[iCnt].AsVariant;
end;
tblZiel.post;

_________________
Gruss Lake

mkinzler · Verfasst: Fr 29.12.06 11:12

[quote="

Lake"]Davon ausgehend, dass beide Tabellen die gleiche Structur haben, würde ich es so machen:

stelmaszyk hat folgendes geschrieben:

Die Zieltabelle enthält nicht alle Felder der Quelltabelle.

_________________
Markus Kinzler.

Lake · Beiträge: 78 D6 prof., Delphi 10.2 Tokyo

Wer lesen kann hat klare Vorteile. Sorry da habe ich nicht richtg hingesehen.

stelmaszyk hat folgendes geschrieben:

Die Zieltabelle enthält nicht alle Felder der Quelltabelle.

Dann muss man die zu kopierenden Felder vorher definieren und sagen welches Feld wohin soll.

markieren

Delphi-Quelltext

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

arFeldVon[0]:='Feld1';
arFeldVon[1]:='Feld3';

arFeldNach[0]:='Feld1';
arFeldNach[1]:='Feld24';
 

tblZiel.edit;
tblZiel.insert;
for iCnt := 0 to high(arFeldVon) do 
begin
  tblZiel.FieldByName(arFeldNach[iCnt]).AsVariant := tblQuelle.FieldByName(arFeldVon[iCnt]).AsVariant;
end;
tblZiel.post;

_________________
Gruss Lake

stelmaszyk · Hält's aus hier Beiträge: 2

Danke für alle Antworten.
Es ist wohl doch nur mit viel Schreibarbeit zu lösen.

Guten Rutsch und alles Gute für 2007.

B. Stelmaszyk

Ehemaliges Mitglied Erhaltene Danke: 1

soviel schreibaufwand sollte das nicht sein.

es gibt halt 2 möglichkeiten (a) mit SQL und (b) mit der ganznormalen tabelle

markieren

SQL-Anweisung

1:	insert into tabbelle (f1....) select * from tabbelle where....

markieren

Delphi-Quelltext

1:
2:
3:
4:

tabbelle.insert;
for i := 0 to tabbelle.fieldcount -1 do
 tabbelle.fields[i] := quelltabelle.fields[i];
tabbelle.post;

PS: wenn du am wenigsten arbeit haben möchtest, nimm das SQL statement, da kannst du dann die felder im insert als auch im select angeben... die übergabe erfolgt dann nach der stellung der parameter.

<HTH>

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme