Datenerfassung mit Firebird Datenbank

Thema durchsuchen

Ansicht

Themen-Optionen

Datenerfassung mit Firebird Datenbank

Ein Thema von Jens Hartmann · begonnen am 24. Feb 2009 · letzter Beitrag vom 27. Feb 2009

Vorheriger Beitrag

Nächster Beitrag

Jens Hartmann

Registriert seit: 11. Jan 2009
Ort: Wilnsdorf
1.439 Beiträge

Delphi XE2 Professional

#11

Re: Datenerfassung mit Firebird Datenbank

25. Feb 2009, 14:04

Ich denke das habe ich gemacht

zusammenfalten · markieren

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;