Datenerfassung mit Firebird Datenbank

[Jens Hartmann]

Ich denke das habe ich gemacht

Delphi-Quellcode:

{Datenbank}

{Datenbankpfad zuweisen}
procedure TFUebung.Button8Click(Sender: TObject);
var
s :String;
begin
  Query1.Active := false;
  SelectDirectory('Wählen Sie das Datenbankverzeichnis aus ' + 'wo sich Ihre Datenbank befindet',' ',s);
  Edit1.Text := s+'\Securdat.fdb';
  Query1.DatabaseName := Edit1.Text;
end;

{SQL-Abfrage starten}
procedure TFUebung.Button7Click(Sender: TObject);
begin
  Query1.SQL := Memo1.Lines;
  Query1.Active := true;
end;