Datenbankabfrage durchläuft while nicht vollständig (gelöst) (Datenbanken und Verzeichnisdienste)

[thread]19999[/thread]

Datenbankabfrage durchläuft while nicht vollständig [gelöst]

Tags: perl5 DBI MySQL DBD Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+3 replies

Stefan_S

2016-02-26 12:54

User since
2014-04-15
30 Artikel
BenutzerIn
[default_avatar]

Servus,

mit DBD::ODBC frage ich eine Sybase-Datenbank ab (DB1). Die Ergebnisse vergleiche ich mit einer mySQL-Datenbank, die ich per DBI abfrage (DB2). Ziel ist, jeden Datensatz aus DB1 mit allen Datensätzen aus DB2 zu vergleichen.

Meine Schleife sieht derzeit wie folgt aus (hab's auf Print-Ausgaben reduziert):

Code (perl): (dl )

my ( $artikelnr_s, $bestand_s );
my ( $id_t, $artikelnr_t, $timestamp_t, $bestand_t );
print "=====================================================================\n";
while ( ( $artikelnr_s, $bestand_s ) = $dbs_result->fetchrow_array() ) {
        print Dumper ( "DB1: \t " . $artikelnr_s . "\t" . $bestand_s );
        print "\n";
        # alle Datensätze aus dem Ziel einlesen
        while ( ( $id_t, $artikelnr_t, $timestamp_t, $bestand_t ) = $dbt1_result->fetchrow_array() ) {
                print Dumper ( "DB2: \t " . $artikelnr_t . "\t" . $bestand_t );
        }
        print "--------------------------------------------------------------------\n";
}
        print "\n\n\n";

In DB1 befinden sich zwei Datensätze.
In DB2 befinden sich ebenfalls zwei Datensätze.

Als Ergebnis erhalte ich:

Code: (dl )

====================================================================
$VAR1 = 'DB1: 	 AGI14077	66.28';

$VAR1 = 'DB2: 	 AGI14077	66.28';
$VAR1 = 'DB2: 	 AGI15070	300.00';
--------------------------------------------------------------------
$VAR1 = 'DB1: 	 AGI15070	300';

--------------------------------------------------------------------

Im ersten Durchlauf wird der erste Datensatz aus DB1 gelesen. Dazu beide Datensätze aus DB2.
Im zweiten Durchlauf wir der zweite Datensatz aus DB1 gelesen. Aber leider keiner mehr aus DB2.

Richtig wäre die Ausgabe aus meiner Sicht so:

Code: (dl )

====================================================================
$VAR1 = 'DB1: 	 AGI14077	66.28';

$VAR1 = 'DB2: 	 AGI14077	66.28';
$VAR1 = 'DB2: 	 AGI15070	300.00';
--------------------------------------------------------------------
$VAR1 = 'DB1: 	 AGI15070	300';

$VAR1 = 'DB2: 	 AGI14077	66.28';
$VAR1 = 'DB2: 	 AGI15070	300.00';
--------------------------------------------------------------------

Im Error-Log finde ich folgende Fehlermeldung:

Code: (dl )

DBD::mysql::st fetchrow_array failed: fetch() without execute() at C:\...\import.pl line 8.

Wo ist mein Denkfehler?

Grüße und Dank Stefan

+2 replies

Linuxer

2016-02-26 13:00

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Ich vermute, dass das SQL_Statement vor den Schleifen durchgeführt wurde und dann dbt1_result->fetchrow_array() nach dem ersten Durchlauf am Ende angekommen ist.
Für den zweiten Durchlauf müsste das zurückgesetzt (falls das möglich ist) oder eben das SQL-Statement erneut aufgerufen werden, damit wieder Daten mit fetchrow_array abgeholt werden können.

edit: Alternativ, wenn die Datenmenge klein ist und bleibt, könnte man die Daten von dbt1_result->fetchrow_array() einmal in einem Array-of-Arrays zwischenspeichern und dann diesen zum Vergleich in der Schleife benutzen anstatt wiederholt das gleiche SQL-Statement durchzuführen.
Last edited: 2016-02-26 13:10:33 +0100 (CET)

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

Stefan_S

2016-02-26 13:25

User since
2014-04-15
30 Artikel
BenutzerIn
[default_avatar]

Bingo, genau das war's.

So funktioniert's jetzt:

Code (perl): (dl )

my ( $artikelnr_s, $bestand_s );
my ( $id_t, $artikelnr_t, $timestamp_t, $bestand_t );
print "====================================================================\n";
while ( ( $artikelnr_s, $bestand_s ) = $dbs_result->fetchrow_array() ) {
        # alle Datensätze aus Ziel lesen
        $statement_t1 = "SELECT id, artikel_nr, timestamp, bestand FROM bestaende";
        &dbt1_execute;
        print Dumper ( "DB1: \t " . $artikelnr_s . "\t" . $bestand_s );
        print "\n";
        while ( ( $id_t, $artikelnr_t, $timestamp_t, $bestand_t ) = $dbt1_result->fetchrow_array() ) {
                print Dumper ( "DB2: \t " . $artikelnr_t . "\t" . $bestand_t );
        }
        print "--------------------------------------------------------------------\n";
}
        print "\n\n\n";

und

Code (perl): (dl )

# Datenbankabfrage DB2 ausführen
sub dbt1_execute {
        $dbt1_result = $dbt->prepare ( qq {$statement_t1} );
        $dbt1_result->execute() or die DBI->errstr;
        }

Danke und Gruß Stefan

View all threads created 2016-02-26 12:54.