Community  »  Rund um das Thema Datenbank

perl:DBI: Nach Anfrage kommt ein Hashwert zurück	Seitenanfang
Hi, ich möchte zwei Sql Anweisungen ausführen: 1. Soll alle Beträge zwischen zwei Datumsangaben zusammenrechnen und in der Variable $abfrage_gesamt speichern. 2.Zweite Abfrage soll alle alle Beträge zwischen zwei Datumsangaben addieren wenn diese schon bezahlt sind. Danach möchte ich den zweiten Wert vom ersten abziehen und dann kommt sowas raus: DBI::st=HASH(0x82fa760) DBI::st=HASH(0x82fa658) Hier ist mein Code print file q/\section{Monatliche Außenstände}/."\n"; my $sql="SELECT SUM(betrag) FROM rechnungsliste WHERE datum BETWEEN '2007-10-01' AND '2007-10-31'"; my $sql2="SELECT SUM(betrag) FROM rechnungsliste WHERE datum BETWEEN '2007-10-01' AND '2007-10-31' AND status='bezahlt'"; my $abfrage_gesamt = $dbh->prepare($sql); $abfrage_gesamt->execute; $abfrage_gesamt->finish; my $gesamt=$abfrage_gesamt; my $abfrage_bezahlt = $dbh->prepare($sql2); $abfrage_bezahlt->execute; $abfrage_bezahlt->finish; my $gezahlt=$abfrage_bezahlt; my $offen=$gesamt-$gezahlt; print file q/Gesamte Außenstände ab dem 1. des Monats: /. $gesamt ." EUR\n"; print file q/Davon schon beglichen: /. $gezahlt." EUR\n"; print file q/Noch offener Betrag: /. $offen. " EUR\n"; Sieht jemand meinen Fehler? Gruß Timo Datum: 11.10.2007-22:24
re: perl:DBI: Nach Anfrage kommt ein Hashwert zurück	Seitenanfang
Du gibst ein präpariertes Statement aus, nicht jedoch das Ergebnis. Das würdest Du erhalten, wenn Du mit den fetchrow* Methoden durch die Tabelle gehst. Tipp: Da nur ein Wert erwartet wird, machs einfach so: my @row = $dbh->selectrow_array("SELECT ..."); my $sum = $row[0]; oder gleich so: my $sum = ($dbh->selectrow_array("SELECT..."))[0]; Hotte Datum: 12.10.2007-13:49
re: perl:DBI: Nach Anfrage kommt ein Hashwert zurück	Seitenanfang
Danke klappt prima! Gruß Timo Datum: 13.10.2007-13:35