Hallo Wissende!
Ich bin gerade dabei ein kleines Tool zu schreiben, mit dem ich meine DBF-Datenbanken in eine
SQL-Tabelle schreiben kann.
Dazu ist es erforderlich, dass ich den Feldtyp der DBF-
DB auslese und in den CREATE-Table-Abschnitt übersetzt unterbringe. Nun ist es aber so, dass bei
SQL zum einen VarChar immer mit einem Anzahlparameter befüttert werden muss und zum anderen ih nicht genau weiss, welche anderen Feldtypen nach
SQL überhaupt transformiert werden könnten.
Wie kann ich also herausbekommen, ob und wenn wieviele Stellen ein Integer-Feld, oder ein Stringfeld vorgabetechnisch haben??
Und wie kann ich die anderen Feldtypen nach
SQL-Feldtypen "übersetzen"?
Ich habe es bis jetzt so gemacht, aber das WAHRE ist "noch" es nicht.
Delphi-Quellcode:
function ReturnSQLTyp(T : TFieldType):string;
begin
case T of
ftString : Result := 'VARCHAR(255)';
ftFloat : Result := 'FLOAT(5)';
ftCurrency : Result := 'VARCHAR(50)';
ftMemo : Result := 'TEXT';
ftBlob : Result := 'BLOB';
ftDate : Result := 'DATE';
ftDateTime : Result := 'DATETIME';
ftTime : Result := 'TIME';
ftSmallInt : Result := 'SMALLINT';
ftInteger : Result := 'INT';
ftBoolean : Result := 'Boolean';
ftBytes : Result := 'Bytes';
ftWord : Result := 'Word';
ftTimeStamp : Result := 'TIMESTAMP';
ftVariant : Result := 'Variant';
ftBCD : Result := 'BCD';
ftVarBytes : Result := 'VarBytes';
ftAutoInc : Result := 'INT NOT NULL AUTOINCREMENT';
ftGraphic : Result := 'Graphic';
ftFmtMemo : Result := 'FmtMemo';
ftParadoxOle : Result := 'ParadoxOle';
ftDBaseOle : Result := 'DBaseOle';
ftTypedBinary : Result := 'TypedBinary';
ftCursor : Result := 'Cursor';
ftFixedChar : Result := 'CHAR(200)';
ftWideString : Result := 'WideString';
ftLargeint : Result := 'BIGINT';
else Result := 'Feldtyp unbekannt';
end;
end;
Für Tipps und/oder Hinweise bin ich dankbar!