[DBI] Syntaxfehler DBD::mysql::st execute failed und DBD::mysql::db selectrow_array failed (Datenbanken und Verzeichnisdienste)

[thread]20226[/thread]

[DBI] Syntaxfehler DBD::mysql::st execute failed und DBD::mysql::db selectrow_array failed

Tags: perl5 CGI Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+6 replies

saschaw

2017-01-24 15:41

User since
2017-01-23
2 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich habe ein Problem mit meinem wetter.cgi, wo ich irgendwie nicht weiterkommen. Wenn ich die Syntax mit perl -c teste, bekomme ich folgende Meldungen:

Code: (dl )

defined(%hash) is deprecated at wetter.cgi line 1742.
        (Maybe you should just omit the defined()?)
defined(%hash) is deprecated at wetter.cgi line 2110.
        (Maybe you should just omit the defined()?)
defined(%hash) is deprecated at wetter.cgi line 5935.
        (Maybe you should just omit the defined()?)
defined(%hash) is deprecated at wetter.cgi line 6142.
        (Maybe you should just omit the defined()?)
defined(%hash) is deprecated at wetter.cgi line 6175.
        (Maybe you should just omit the defined()?)
defined(%hash) is deprecated at wetter.cgi line 6371.
        (Maybe you should just omit the defined()?)
defined(%hash) is deprecated at wetter.cgi line 8699.
        (Maybe you should just omit the defined()?)
defined(%hash) is deprecated at wetter.cgi line 8741.
        (Maybe you should just omit the defined()?)
defined(%hash) is deprecated at wetter.cgi line 9960.
        (Maybe you should just omit the defined()?)
defined(%hash) is deprecated at wetter.cgi line 10231.
        (Maybe you should just omit the defined()?)
wetter.cgi syntax OK

Die Syntax scheint ok und die anderen Meldungen, kann man (lt. Internet) ignorieren bzw. scheinen nur Warnungen zu sein(?).
Wenn ich dann aber das wetter.cgi im Broswer aufrufe bekomme ich folgende zwei Fehlermeldungen:
1. Fehlermeldung

Code: (dl )

DBD::mysql::st execute failed: You have an error in your SQL syntax; check 
the manual that corresponds to your MySQL server version for the right 
syntax to use near 'AND sensid=1 ORDER by datetime DESC LIMIT 2' at line 1 
at /var/www/cgi-bin/wetter.cgi line 7184. DBD::mysql::st execute failed: 
You have an error in your SQL syntax; check the manual that corresponds to 
your MySQL server version for the right syntax to use near 'AND sensid=1 
ORDER by datetime DESC LIMIT 2' at line 1 at /var/www/cgi-bin/wetter.cgi 
line 7184.

Hier der Code (Zeile 7184 ist hier Zeile 17):

Code: (dl )

    # Iterate over all sensorIds of one sensortype
      foreach $j ( @{${$sens}{$i}->{"sensorids"}} ){
	 $dbColName=$dbcols;
	 # The sensorids defined by the user in latest_th[] may be of the format
	 # sensorId.stationid. Here we have to split both values to get the right data
	 ($sensorId, $station)=split(/\./o, $j, 2);
	 $stationId=$station if( length($station) );
         # Only start sql query if there are dbcols to be retrieved by the sensors
	 # description and if this value is != "-" (rainsensor). The rainsensor is
	 # handled differently below
      	 if( length($dbcols) && $dbcols ne "-" ){
	    $sql="SELECT $qdbcols FROM $table WHERE stationid = $stationId AND sensid=$sensorId";
	    #$sql.=" ORDER by datetime DESC,id DESC LIMIT 2";
	    $sql.=" ORDER by datetime DESC LIMIT 2";
	    # Query database for min, max and average of sensor
	    $sth = $dbh->prepare($sql);
	    $sth->execute;
	    # Fetch the latest rows. We need two for values that encode a difference
	    # like the rain sensor
	    @res= $sth->fetchrow_array;
#	    @res1=$sth->fetchrow_array if( ${$sens}{$i}->{"type"}=~/RA/o );
	 }

Die zweite Fehlermeldung die ich beim Aufruf bekomme ist:

Code: (dl )

DBD::mysql::db selectrow_array failed: You have an error in your SQL 
syntax; check the manual that corresponds to your MySQL server version for 
the right syntax to use near 'AND datetime>="2017-01-22 23:00:00" AND 
LEFT(datetime,10) <="2017-01-23 22:59:59' at line 1 at /var/www/cgi-bin
/wetter.cgi line 7212. DBD::mysql::db selectrow_array failed: You have an 
error in your SQL syntax; check the manual that corresponds to your MySQL 
server version for the right syntax to use near 'AND datetime>="2017-01-22 
23:00:00" AND LEFT(datetime,10) <="2017-01-23 22:59:59' at line 1 at 
/var/www/cgi-bin/wetter.cgi line 7212.

Der Code hierzu (Zeile 7212 ist hier Zeile 19):

Code: (dl )

if( ${$sens}{$i}->{"datediff"} ){
	    $dbColName=${$sens}{$i}->{"dbcolName"};
	    $unitFactor=${$sens}{$i}->{"unitfactor"}->{"$dbColName"};

            $midnightDate=${$sens}{$i}->{"datediff"};  # date of day for which to calculate sum
	    $midnightTime="00:00:00";                  # starting from midnight
	    $dayEndTime="23:59:59";		       # Day end time
	    #
	    # Since the database stores dates in GMT we have to calculate what GMT time 
	    # corresponds to the local time "midnight" 
      	    ($midnightDateGMT, $midnightTimeGMT)=timeConvert($midnightDate, $midnightTime, "GMT");
	    # Now calculate what GMT time corresponds to local time "end of day"
      	    ($midnightDate, $dayEndTime)=timeConvert($midnightDate, $dayEndTime, "GMT");
    
	    # Now select data that is between midnight(GMT) and end of day(GMT)
      	    $sql="SELECT SUM($dbColName) AS \"SUM\" FROM $table WHERE stationid = $stationId AND".
	         " datetime>=\"$midnightDateGMT $midnightTimeGMT\" AND".
	         " LEFT(datetime,10) <=\"$midnightDate $dayEndTime\" AND sensid=$sensorId";
	    @res=$dbh->selectrow_array($sql);
            $tmp=$res[0] * $unitFactor;
            $tmp=int($tmp*100)/100;
    	    ${$sens}{$i}->{"sensorval"}->{"$j"}->[0]->{$dbColName}=$tmp;
	 }

Ich weiß jetzt ehrlich gesagt nicht wo der Fehler ist, habe schon Stundenlang gesucht, ohne Erfolg. Ihr seit Experten und deshalb hoffe ich, dass mir jemand helfen kann.
Gruß
Sascha
Last edited: 2017-01-24 16:01:12 +0100 (CET)

rosti

2017-01-24 16:13
User since
2011-03-19
3472 Artikel
BenutzerIn
Dann bring doch erstmal die SQL Query in Ordnung: Teste diese außerhalb vom Code. Wenn SQL keinen Fehler wirft, sollte das auch im Perlcode tun. Möglicherweise quotest Du nicht richtig.
Code (perl): (dl )

$sensorID = $DBH->quote($sensorID);
wäre eine Möglichkeit, das sauber ins Statement zu bringen--

GwenDragon

2017-01-24 16:15

User since
2005-01-17
14748 Artikel
Admin1

Du hast kein Problem mit Perl/CGI sondern deiner Datenbankprogrammierung. Ich verschiebe mal.

Kannst du bitte mal dein generiertes SQL in $sql in eine Logdatei oder die Shell ausgeben lassen?

Quoting im SQL-Code??!? Uhhh, da macht man nette fehler!
Und Feldbezeichner können sich mit internen Befehlen beißen, deswegen gibt es das bei MySQL in `....` zu setzen.
Und wozu gibt es prepared Statements in DBI?

Statt:

Code: (dl )

$sql="SELECT $qdbcols FROM $table WHERE stationid = $stationId AND sensid=$sensorId";
#$sql.=" ORDER by datetime DESC,id DESC LIMIT 2";
$sql.=" ORDER by datetime DESC LIMIT 2";
# Query database for min, max and average of sensor
$sth = $dbh->prepare($sql);
$sth->execute;

eher so:

Code: (dl )

$sql="SELECT ? FROM ? WHERE `stationid` = ? AND `sensid`=?";
#$sql.=" ORDER by `datetime` DESC,id DESC LIMIT 2";
$sql.=" ORDER by `datetime` DESC LIMIT 2";
# Query database for min, max and average of sensor
$sth = $dbh->prepare($sql);
$sth->execute($qdbcols,$table,$stationId,$sensorId );

Und bei

Code: (dl )

1
2
3

 $sql="SELECT SUM($dbColName) AS \"SUM\" FROM $table WHERE stationid = $stationId AND".
	         " datetime>=\"$midnightDateGMT $midnightTimeGMT\" AND".
	         " LEFT(datetime,10) <=\"$midnightDate $dayEndTime\" AND sensid=$sensorId";

Finde ich gruselig!

Code: (dl )

1
2
3

$sql=qq{SELECT SUM(?) AS `SUM` FROM ? WHERE `stationid`=? AND `datetime` >= "? ?" AND LEFT(`datetime`,10) <= "? ?" AND `sensid`=?};
$sth = $dbh->prepare( $sql );
$sth->execute($dbColName, $table, $stationId, $midnightDateGMT, $midnightTimeGMT, $midnightDate, $dayEndTime, $sensorId);

Schau mal rein: http://www.perl.com/pub/1999/10/DBI.html

PS: CamelCase bei Variablennamen ist auch eher unlesbar, das ist aber meine Geschmacksasche.
Last edited: 2017-01-25 12:56:07 +0100 (CET)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+3 replies
Muffi

2017-01-25 11:37

User since
2012-07-18
1465 Artikel
BenutzerIn

Setz doch erstmal das um, was vorher vorgeschlagen wurde und dann schau, dass die Warnungen weg sind, dann kann man weiterhelfen.

edit:
was aber sehr komisch ausschaut ist "ORDER by datetime ". Ich hoff die Spalte heißt nicht wirklich so.
Last edited: 2017-01-25 11:48:31 +0100 (CET)
1 + 1 = 10
- +2 replies
- saschaw
  
  2017-01-31 01:48
  
  User since
  2017-01-23
  2 Artikel
  BenutzerIn
  
  Hallo,
  zuerst mal vielen Dank für die Antworten.
  Ich muss gestehen, ich bin hier totaler Anfänger und das Script habe ich auch nicht selbst geschrieben, bin nur Anwender... Ich weiß nicht ob es schön oder unschön programmiert ist, will es auch gar nicht kritisieren, Hauptsache es funktioniert und das macht es jetzt :-)
  @Muffi: Eigentlich dachte ich ja, dass ihr mir dabei helft die Warnungen weg zu bekommen :-), was natürlich nicht so einfach ist, wenn einem Hintergrundinfos fehlen.
  Und ich geb's ja nicht gerne zu, aber ich hatte das Script falsch konfiguriert :-( (wer lesen kann, ist klar im Vorteil).
  Trotzdem vielen Dank für eure Mühe mit mir als Anfänger.
  Gruß
  Sascha
  - thomas38
    
    2017-02-21 23:46
    User since
    2012-11-04
    30 Artikel
    BenutzerIn
    
    Zu den Warnungen:
    
    die Lösung steht schon in den Warnungen selbst:
    
    Code: (dl )
    
    1 2
    
    defined(%hash) is deprecated at wetter.cgi line 1742. (Maybe you should just omit the defined()?)
    
    Also statt
    
    Code (perl): (dl )
    
    defined(%hash)
    
    reicht:
    
    Code (perl): (dl )
    
    %hash

View all threads created 2017-01-24 15:41.