DBD::SQLite: Meldung db table is locked(1) (Datenbanken und Verzeichnisdienste)

[thread]15898[/thread]

DBD::SQLite: Meldung db table is locked(1)

Leser: 16

Articles: hide open all | hide show old branches

+7 replies
Kean

2011-01-28 10:18
User since
2004-08-18
463 Artikel
BenutzerIn
Ich nutze DBI mit SQLite auf einem WindowsXP System und will in einer Schleife mehrere Datensätze löschen. Das ganze mit folgendem Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8

my $sql = "SELECT ID FROM User WHERE Status = 'X';"; my $sth = $dbh->prepare($sql); $sth->execute; while ( my $id = $sth->fetchrow_array ) { $dbh->do("DELETE FROM User WHERE ID = $id;"); }
Das funktioniert bei einem Datensatz wunderbar. Wenn es aber mehrere Datensätze sind löscht er bei jedem starten einen Datensatz und bringt ab dem zweiten folgenden Fehler:
Code: (dl )

DBD::SQLite::db do failed: database table is locked(1) at dbdimp.c line 402
An was könnte das liegen? Ich habe es vorher schon anstatt mit do mit prepare und execute versucht.
- nepos
  
  2011-01-28 10:55
  
  User since
  2005-08-17
  1420 Artikel
  BenutzerIn
  
  Zwar keine Antwort auf deine eigentliche Frage, aber warum machst du nicht einfach ein DELETE FROM User WHERE Status='X';?
- pq
  
  2011-01-28 11:07
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  ich vermute, dass sqlite die tabelle lockt, weil das select noch nicht fertig ist. bei nur einem datensatz ist der $sth vermutlich automatisch auf finished gesetzt, weshalb es dann funktioniert.
  du müsstest also die ids vorher in ein array holen, wenn du sie brauchst, ansonsten wäre der vorschlag von nepos natürlich sinnvoller.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +4 replies
- Kean
  
  2011-01-28 11:23
  
  User since
  2004-08-18
  463 Artikel
  BenutzerIn
  
  Die erste Select Abfrage ist eigentlich nur dazu da um die Anzahl der gelöschten Datensätze zu bestimmen.
  Gibt es vielleicht eine Möglichkeit die Anzahl der gelöschten Datensätze als Rückgabewert zu bekommen? Dann würde das Select wegfallen.
  - +3 replies
  - pq
    
    2011-01-28 11:29
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    mit $sth->rows bekommst du die anzahl der datensätze, die gelöscht wurden, wenn du es nach dem execute ausführst.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +2 replies
    - Kean
      
      2011-01-28 12:08
      
      User since
      2004-08-18
      463 Artikel
      BenutzerIn
      
      Es gab doch einen Grund warum ich für jeden Datensatz einen Durchlauf in einer Schleife benötige. Zu dem Datensatz gibt es lokale Dateien welche gelöscht werden müssen....
      
      Ich habe das ganze jetzt folgendermaßen gelöst:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      my $sql = "SELECT ID FROM User WHERE Status = 'X';"; my $sth = $dbh->prepare($sql); $sth->execute; my $cnt = 0; while ( my $id = $sth->fetchrow_array ) { if (-e "bilder\\$id.jpg") { system("del /F /Q bilder\\$id.jpg"); } $cnt++; } $dbh->do("DELETE FROM User WHERE Status = 'X';");
      
      Damit scheint es keine Probleme zu geben.
      - topeg
        
        2011-01-29 00:37
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        system("del /F /Q bilder\\$id.jpg");
        
        besser:
        
        Code (perl): (dl )
        
        unlink("bilder\\$id.jpg");
        
        Es ist nicht nur schneller den den Befehl von perl zu verwenden sondern auch sicherer, da man Fehlermeldungen leichter abfangen kann:
        
        Code (perl): (dl )
        
        unlink("bilder\\$id.jpg") or die("ERROR DELETE $id.jpg ($!)");
        
        Will man es System unabhängig gestalten, kann man das Modul File::Spec nutzen:
        
        Code (perl): (dl )
        
        1 2
        
        my $path=File::Spec->join("bilder","$id.jpg"); unlink($path) or die(qq#ERROR DELETE "$path" ($!)#);

View all threads created 2011-01-28 10:18.