Huhu Ihr lieben Delphianer
Folgendes Problem. Ich habe eine Datenbankverbindung aufgebaut und möchte gerne über ein
SQL - Statement die Ergebnismenge von Table1 einschränken. Klappt leider nicht. könnt ihr mir sagen was ich falsch mache?
Delphi-Quellcode:
unit Database;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids,
Db, DBTables, StdCtrls;
type
TForm1 =
class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Query: TQuery;
Button1: TButton;
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Query.Close;
Table1.Active := FALSE;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Query.Active:=false;
Query.Sql.Clear;
Query.Sql.Add('
SELECT * from Version Where Kommentar is not Null');
Query.Active:=true;
end;
end.
Vielen Dank schonmal,
Christian