Fehlermeldung weiterer SQL-Anweisungen nach (fetch, execute, fetchrow_array) (Allgemeines zu Perl)

[thread]13441[/thread]

Fehlermeldung weiterer SQL-Anweisungen nach (fetch, execute, fetchrow_array)

Leser: 19

Articles: hide open all | hide show old branches

+8 replies
xcoder44

2009-04-27 14:38
User since
2009-04-27
16 Artikel
BenutzerIn
Hallo Leute,

Ich habe folgendes Problem.
Ich arbeite mit MS-SQL Server 2005 und Windows Server 2003.

Mein Datenbankinterface ist DBI::ODBC und es funktioniert alles soweit mit den SQL abfragen, nur nicht, wenn ich es in folgender Reihe ablaufen lasse:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

my $fetch = $db->prepare("SELECT [zeit] FROM [doro].[dbo].[meldung] WHERE [fahrer_id]='1899';"); $fetch->execute(); my ($zeitstempel) = $fetch->fetchrow_array(); print "\n\nZeit:$zeitstempel"; sleep (1); my $data = 'XYZ'; my ($id) = $db->selectrow_array("INSERT INTO [doro].[dbo].[system] ([bezeichnung]) VALUES('$data'); SELECT SCOPE_IDENTITY();"); print "\n\nZu suchende id:$id"; sleep (1); my ($test2) = $db->selectrow_array("SELECT * FROM [doro].[dbo].[system] WHERE [id] = '$id';"); print "\n\nGefundene id:$id";
Ich denke es liegt an dem Handle der 'fetch'-Geschichte, welcher immer noch die Finger in der Datenbank hat, oder?

Aber eigentlich ist müsste dies doch nach 'execute' vobei sein, oder?

Was habe ich hier vergessen,
muss ich die Variable '$fetch' danach schliessen ?

(ich dachte zuerst, die Abfragen liegen zu nahe beinander, dachte die 'sleep'-Anweisungen)

Gruss, xcoder44
- +5 replies
- GwenDragon
  
  2009-04-27 14:46
  
  User since
  2005-01-17
  14835 Artikel
  Admin1
  
  Warum fragst du nicht ab, wo der Fehler ist?
  Das solltest du dir angwöhnen, bei den DBI-Datenbankfunktionen.
  
  In $DBI::ErrStr steht nachfehlgeschlagener Aktion doch der Fehler.
  
  Schau dir mal http://www.perl.com/pub/a/1999/10/DBI.html an
  Last edited: 2009-04-27 14:50:43 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - xcoder44
    
    2009-04-27 14:59
    User since
    2009-04-27
    16 Artikel
    BenutzerIn
    
    Hallo und danke für die schnelle Antwort.
    
    Das habe ich nun mittels
    
    Code (perl): (dl )
    
    $db->errstr
    
    gemacht und es kam folgende Fehlermeldung, wie vorhin schon auch:
    
    Code: (dl )
    
    1 2 3
    
    DBD::ODBC::db selectrow_array failed: [Microsoft][ODBC SQL Server Driver] Die Verbindung ist mit Ergebnissen von einem anderen hstmt belegt (SQL-HY000) at MSSQL_connection_test.pl line 60, <DATA> line 164.
    
    ?
    - +3 replies
    - GwenDragon
      
      2009-04-27 15:19
      
      User since
      2005-01-17
      14835 Artikel
      Admin1
      
      Schön, nur kenne ich nicht dein Skript, denn ich kann nicht Gedanken lesen.
      
      Welches ist bitte Zeile 60?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - xcoder44
        
        2009-04-27 15:43
        
        User since
        2009-04-27
        16 Artikel
        BenutzerIn
        
        ...Da zeigt er auf den nächsten '$db->selectrow_array'-Befehl.
        
        Doch nun habe ich das Problem komischerweise nicht mehr,
        da ich die fetch-Abfolge in einen Funktionsaufruf gesteckt habe:
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        sub test05 { my $fetch = $db->prepare("SELECT [kommtzeit] FROM [dau].[dbo].[meldung] WHERE [fehlercode_id]='1899';"); $fetch->execute(); my ($zeitstempel) = $fetch->fetchrow_array(); print "\n\nKommtzeit:$zeitstempel"; }
        
        wenn ich nun die nächste Funktion aufrufe:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        sub test06 { my $data = 'ZYX'; my $test; ($id) = $db->selectrow_array("INSERT INTO [dau].[dbo].[subsystem] ([bezeichnung]) VALUES('$data'); SELECT SCOPE_IDENTITY();") or die "\nFehler: id konnte nicht angelegt werden:" . $db->errstr; print "\n\nid angelegt:$id"; }
        
        ist dieses Problem verschwunden.
        Ich denke das hatte wirklich mit der '$fetch'-Variable zutun,
        da sie nach Funktionsdurchlauf nicht mehr gültig ist, und somit das handle entfernt wird, oder?
        Aber warum ist das so?
        
        GwenDragon
        
        2009-04-27 15:50
        
        User since
        2005-01-17
        14835 Artikel
        Admin1
        
        Ich tippe mal darauf, dass du irgendwelche Datenbank- bzw. -Abfrage-Handles mehrfach verwendest oder nicht richtig in deinen Funktionen definierst
        //EDIT: oder du mehrere Connections aufhast udn die Datenbank das nicht verträgt?
        
        verwendets du in deinen Skripten:
        
        Code (perl): (dl )
        
        1 2
        
        use strict; use warnings;
        
        ?
        
        Wenn nein, solltest du das tun.
        Last edited: 2009-04-27 16:09:41 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- nepos
  
  2009-04-27 16:29
  User since
  2005-08-17
  1420 Artikel
  BenutzerIn
  Denke, das Problem liegt daran, dass du nur eine Zeile aus deinem ersten SELECT ausliest. Wenn du nicht mehr willst, musst du wohl einfach
  
  Code: (dl )
  
  $fetch->finish()
  
  benutzen, dann sollten die anderen auch wieder tun.
  
  Kleiner Quote aus DBI:
  
  Quote
  When all the data has been fetched from a "SELECT" statement, the driver should automatically call "finish" for you. So you should
  not normally need to call it explicitly except when you know that you’ve not fetched all the data from a statement handle. The most
  common example is when you only want to fetch one row, but in that case the "selectrow_*" methods are usually better anyway. Adding
  calls to "finish" after each fetch loop is a common mistake, don’t do it, it can mask genuine problems like uncaught fetch errors.
  
  Für meine Begriffe wäre es also geschickter, einfach direkt mit selectrow_array(...) zu arbeiten als prepar+execute+fetchrow_array.
  Das prepare+execute bringt dir hier ja eh keine Vorteile.
  - xcoder44
    
    2009-04-27 16:55
    
    User since
    2009-04-27
    16 Artikel
    BenutzerIn
    
    Gut,
    
    das macht Sinn.
    Ich bedanke mich nochmalsfür die schnelle Hilfe.
    
    Gruss, xcoder44

View all threads created 2009-04-27 14:38.