Datenbankeinträge durch einen listbox-klick anzeigen lassen

[Ouou]

jo sry kleiner scherz am rande :lol: . das klappt leider nicht. es wird im dbedit feld nichts angezeigt. hab alle einträge durchgeklickt... ich verzweifel noch :evil:

[mkinzler]

Häng das Programm doch mal an

[Ouou]

Morgen,

hatte es gestern nicht mehr geschafft das programm anzuhängen. hier ist es hoffe es hilft.

mfg

[mkinzler]

Dreh mal die Reihenfolge um:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
    Query1.Close;
    Query1.SQL.Text := 'SELECT Programmierer, Kurzbeschreibung, MailProgrammierer, Status, Prioritaet, Anmerkungen, Tester, MailTester, StatusTester, PrioritaetTester, AnmerkungenTester, Bugnummer, Datum, Uhrzeit, Fehlermeldung FROM KFZ.DB WHERE Programmierer = :Programmierer';
    Query1.ParamByName('Programmierer').Value := ListBox1.Items[ListBox1.ItemIndex];
    Query1.Open;
    DBProgrammierer.DataSource      := dsKFZ;
    DBProgrammierer.DataField       := 'Programmierer';
    DBMailProgrammierer.DataSource  := dsKFZ;
    DBMailProgrammierer.DataField   := 'MailProgrammierer';
    DBStatus.DataSource             := dsKFZ;
    DBStatus.DataField              := 'Status';
    DBPrioritaet.DataSource         := dsKFZ;
    DBPrioritaet.DataField          := 'Prioritaet';
    DBAnmerkungen.DataSource        := dsKFZ;
    DBAnmerkungen.DataField         := 'Anmerkungen';
    DBBugnummer.DataSource          := dsKFZ;
    DBBugnummer.DataField           := 'Bugnummer';
    DBDatum.DataSource              := dsKFZ;
    DBDatum.DataField               := 'Datum';
    DBUhrzeit.DataSource            := dsKFZ;
    DBUhrzeit.DataField             := 'Uhrzeit';
    DBTester.DataSource             := dsKFZ;
    DBTester.DataField              := 'Tester';
    DBMailTester.DataSource         := dsKFZ;
    DBMailTester.DataField          := 'MailTester';
    DBStatusTester.DataSource       := dsKFZ;
    DBStatusTester.DataField        := 'StatusTester';
    DBPrioritaetTester.DataSource   := dsKFZ;
    DBPrioritaetTester.DataField    := 'PrioritaetTester';
    DBAnmerkungenTester.DataSource  := dsKFZ;
    DBAnmerkungenTester.DataField   := 'AnmerkungenTester';
    DBFehlermeldung.DataSource      := dsKFZ;
    DBFehlermeldung.DataField       := 'Fehlermeldung';
    DBKurzbeschreibung.DataSource   := dsKFZ;
    DBKurzbeschreibung.DataField    := 'Kurzbeschreibung';
    DBProgrammierer.DataField := 'Programmierer';

end;

Aber wie schon geschrieben, kannst du die Abfrage auch direkt in der IDE setzen

[Ouou]

Also es wird immer noch nichts angezeigt wenn ich auf einen eintrag in der Listbox klicke. Ich versteh es nicht müsste doch normal so passen alles :wall: