Hallo Leute,
vielleicht könte mir jemand mit dem folgenden Problem helfen.
Ich habe zwei MS Access DatenBanken (Access 2000-Dateiformat), eine alte und eine neue. Ich möchte aus der neue die fehlende Felder auslesen und in die alte DB einfügen. Dafür mache ich eine Schleife durch die Felder, prüfe, welche es nicht gibt, lese ihre Namen, Datentyp UND DEFAULTWERT aus usw.
Das alles funktioniert prima, nur das die DefaultExpression komischerweise immer leer bleibt... als ob da nichts steht, aber da stehen die Werte.
Hier ein Stück Code:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| SQLdatentype := FieldTypeToSQLType(Data.DB.FieldTypeNames[RefQuery.Fields[x].DataType]); if SQLdatentype <> '' then begin SQLText := 'ALTER TABLE alteTabelle ADD '+ RefQuery.Fields[x].FieldName + ' ' + SQLdatentype; if SQLdatentype = 'VARCHAR' then SQLText := SQLText + '(' + RefQuery.Fields[x].Size.ToString + ')'; if RefQuery.Fields[x].DefaultExpression <> '' then SQLText := SQLText + ' DEFAULT ' + RefQuery.Fields[x].DefaultExpression; |
Der Weg mit DBQuery.Fields.Add(NewField) habe ich auch schon versucht, er spuckt keine Fehler, aber die DB bekommt keine neue Felder.
Etwas stimmt nicht, ich bin leider nicht so erfahren, um zu verstehen, was genau.
Ich verwende Delphi XE7, falls es wichtig ist.
Moderiert von Narses: Delphi-Tags hinzugefügt