und was ist hier nun wieder falsch? also die ausgeliehenen medien sollen dem user nochmal in einer übersicht gezeigt werden. ich dachte eiegtnlich das geht ganz leicht über eine Abfrage...
Delphi-Quellcode:
procedure TForm2.Button8Click(Sender: TObject);
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('
SELECT medium, autor, titel, id, ausleihdatum FROM TTitelaufnahme WHERE ausleiher = '
+ user);
showmessage(AdoQuery1.SQL.Text);
//hier lasse ich mir den SQL-Text anzeigen, aber sehe da keine fehler...
AdoQuery1.Open;
if AdoQuery1.RecordCount = 0
then
showmessage('
Sie haben zur Zeit keine Medien ausgeliehen.')
else
begin
form2.Label22.Caption := AdoQuery1.FieldByName('
medium').AsString;
form2.Label23.Caption := AdoQuery1.FieldByName('
autor').AsString;
form2.Label24.Caption := AdoQuery1.FieldByName('
titel').AsString;
form2.label25.Caption := DateToStr(AdoQuery1.FieldByName('
ausleihdatum').AsDateTime);
end;
end;
könnte es sein dass das schreiben in die tabelle beim ausleihen nicht so ganz klappt? aber die werte stehen dennoch in der Tabelle....
DAS IST DOCH ECHT ZUM MÄUSE MELKEN!!!!!!!!!! und dabei wird das programm morgen schon vorgestellt.....
