TSQLQuery mit verschiedenen Tabellen benutzen

[Gast]

Hallo MadMason! 8)

Die Ursache für Dein Fehle kann verschieden Grunde haben... aber... falls Du vielleicht gar keine Komponente TQuery auf Dein Formular „ziehen“ möchtest kannst Du dein Query dynamisch erzeugen...so...das habe ich auf die „Schnelle“ für Dich gebastelt:

Gruß

Paul Jr.

Code:

// Erzeugt dynamisch eine Query-Componente
FUNCTION CreateQuery(VAR Query: TQuery; Frm: TForm; sDatabaseName : STRING): Boolean;
BEGIN
   Result := True;
   TRY
      Query := NIL;
      Query := TQuery.Create(Frm);
      Query.DatabaseName := sDatabaseName;
      Query.SQL.Clear; // muß nicht sein...
   EXCEPT
      ON E:Exception DO
      BEGIN
         Result := FALSE;
         IF Query <> NIL THEN
            BEGIN
               Query.Free;
               Query := NIL;
            END;
         ShowMessage( E.Message + #10 + 'Dynamisches Query konnte nicht erzeugt werden!');
         Sysutils.Abort;
      END;
   END;
END;

PROCEDURE TfrmMain.Button1Click(Sender: TObject);
VAR
   Query : TQuery;
BEGIN
   IF CreateQuery(Query, Self, 'MeinDataBase') THEN
      BEGIN
         // hier bestücke die SQL-Anweisung usw... mach was Du willst :-)
         // also z.B.:
         Query.SQL.Add('SELECT * FROM KUNDE');
         TRY
            Query.Open;
            (... weitere Anweisungen...)
         EXCEPT
            (* dummy *)
         END;
         Query.Close;
      END;

   // Und nicht vergessen:
   IF Query <> NIL THEN
      Query.Free;
END;