TQuery-Felder zur Laufzeit ändern?

[Svenkan]

Hallo!
Ist es möglich, dass zur Laufzeit eines Programms die Felder, welche ich auslese aus einer Datenbank, ändern kann?
Ich benötige dies, da ich mit meinem Programm aus 2 verschiedenen Versionen einer Datenbank auslese, wo sich einzelne Values unterscheiden und mein Programm sonst rummeckert, dass die vorgegebenen Felder nicht zu denen in der Datenbank passen (z.B. verschiedene Zahlentypen wie Integer oder Float).

[RWarnecke]

Ich würde die Struktur der Tabelle auslesen und mir dann den SELECT-Befehl zusammenbasteln.

[Svenkan]

Es ist ja so, dass ich vorm Connecten schon die Felder hinzufügen muss, die ich da auslesen will.
Gibt es eine Möglichkeit eine Datei zu erstellen, wo die nötigen Spalten mit Ihren Eigenschaften verzeichnet stehen und diese dann einzulesen und der BDE diese Informationen dann zu überlassen?

[nahpets]

Hallo,

Du könntest zur Laufzeit über eine Abfrage des Spaltentypes an Deinem Problem "vorbeikommen".

Delphi-Quellcode:

tabelle.FieldDefs.Find('meinespalte').DataType
tabelle.FieldDefs[0].DataType

z.B. in der Form:

Delphi-Quellcode:

with tabelle do begin
  case FieldDefs[0].DataType of
    ftInteger : Fields[0].AsInteger := 123;
    ftFloat   : Fields[0].AsFloat := 123.456;
    // ... hier alle benötigten Feldtypen ergänzen
  else
    Fields[0].AsString := 'das geht doch nicht';
  end;
end;

Aber eigentlich müssen die benötigten Felder vor dem Aufbau der Datenbankverbindung noch nicht in der TQuery enthalten sein. Durch das Ausführen des SELECT-Statements der TQuery müsstest Du anschließend in der TQuery die richtigen Datentypen zur Verfügung haben.

[Svenkan]

Also wenn ich jetz z.B. über TQuery1 die Datenbank 'C:\Programme\svPlan\VT08_09.dbf' auslesen und prüfen möchte, ob das Feld 'ANZAHL' vom Typ 'SmallInt' oder 'Double' (Größe: 15) ist, müsste ich das z.B. wie anstellen?

[nahpets]

Hallo,

schau mal bitte in die Delphihilfe unter TFieldTyp, dort sind alle Datentypen aufgelistet.
Es könnte in etwas (nicht getestet) so gehen:

Delphi-Quellcode:

with TQuery1.FieldByName('ANZAHL') do begin
  case DataType of
    ftInteger  : AsInteger := 123;
    ftSmallInt : AsInteger := 123;
    ftFloat    : AsFloat   := 123.456;
  end;
end;