Hallo
Um Den Inhalt einer Datenbank in eine andere Kopieren zu können, möchte ich jeweils den Spaltennamen von der DB auslesen, von der kopiert werden soll, um den Wert dann in die andere DB (mit anderer Struktur aber auch den zu kopierenden Feldern) kopieren zu können.
Nachdem ich zunächst dachte, das dies nicht besonders schwer ist, stelle ich jetzt fest, daß ich auf den jewiligen Spaltennamen nicht wie gedacht zugreifen kann - bzw keine andere Lösung durch auspprobieren gefunden habe
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:
| procedure TfoMainDBcopy.btDatenKopierenClick(Sender: TObject);
var
Feldname: string;
i: Integer;
begin
ADOTableCopyVon.First;
ADOTableCopyNach.First;
repeat
for i := 1 to x do // x wird später gesetzt
begin
Feldname:= ADOTableCopyVon. // hier ist das Problem
ADOTableCopyNach.Edit;
ADOTableCopyNach.FieldByName(Feldname).AsVariant:=
ADOTableCopyVon.Fields[i].AsVariant;
ADOTableCopyNach.Post
end;
ADOTableCopyVon.Next;
ADOTableCopyNach.Append;
until ADOTableCopyVon.Eof;
end; |
bei
Quelltext
1:
| Feldname:= ADOTableCopyVon. |
fehlt mir der weitere Code um auf den jeweiligen Spaltennamen in Abhängigkeit von der Spaltennummer zugreifen zu können
Über Tips hierzu würde ich mich sehr freuen
Vielen Dank im vorraus
