Hallo zusammen
Ich habe eine Datenbank mit sagen wir mal 10 Felder.
In jedem dieser Felder stehen Daten. ich möchte jetzt 2 Felder der Datenbank hinzufügen und ein altes entfernen. Jemand ne Ahnung wie ich das mache?
Ich habs mit
Delphi-Quellcode:
FieldDefs.Find('Feldname').Delete
Fields.Remove(FieldByName('Feldname').Index)
probiert.
Allerdings sind die Felder danach immernoch da. Hab ich was vergessen?
Ich würde ja mit CreateTable eine neue Tabelle erstellen und die Daten rüber kopieren.
Wenn ich das aber mache sind die Nummern von dem AutoIncFeld wieder ab 0 statt ab 10000. Also wenn mir jemand sagen könnte wie ich die Werte des AutoIncFelds eins zu eins kopieren könnte würde mir das auch schon reichen. Habs mit:
Delphi-Quellcode:
Table1.FieldDefs.Find('Nummer').DataType:=ftInteger;
Table1.Open;
Table2.Open;
Table1.BatchMove(Table2,batCopy);
table2.close;
table1.close;
table1.FieldDefs.Find('Nummer').DataType:=ftAutoInc;
probiert, allerdings werden trotzdem nicht die Werte übernommen sondern es fängt wieder bei 1 an.
Hoffe auf die Mainzelmännchen die heute Abend ein paar gute Ansätze springen lassen.
Ich muss dann los, meld mich Morgen wieder.