DBD::SQLite - Datentypen (gelöst) (Datenbanken und Verzeichnisdienste)

[thread]21693[/thread]

DBD::SQLite - Datentypen [gelöst]

Tags: perl5 SQLite Ähnliche Threads

Leser: 7

Articles: hide open all | hide show old branches

+10 replies
Kuerbis

2025-09-25 07:36
User since
2011-03-20
963 Artikel
BenutzerIn
Zur Zeit ist es so, dass in App::DBBrowser mit
Code: (dl )

my $data_types = $sth->{TYPE};
die Datentypen ermittelt werden und dann Usereingaben entsprechen der Datentypen gequoted werden:
Code: (dl )

1 2 3 4 5 6

if ( $is_numeric_data_type{$col} ) { return $value; } else { return $dbh->quote( $value ); }
Jetzt frage ich mich (nur für SQLite), ob es besser wäre, entsprechend der Art der eingegebenen Werte zu entscheiden, ob gequoted wird oder nicht:
Code: (dl )

1 2 3 4 5 6

if ( looks_like_number $value ) { return $value; } else { return $dbh->quote( $value ); }
Warum es zu dieser Frage gekommen ist - hier ein Beispiel:
Code: (dl )

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

id | vorname | nachname ---|---------|----------- 1 | Max | Mustermann 2 | Lena | Müller 3 | Jonas | Schmidt 4 | Lisa | Schneider 5 | Tim | Fischer 6 | Max | Mustermann 7 | Lena | Müller 8 | Paul | Meier 9 | Anna | Huber 10 | Julia | Wagner
Gequoted entsprechend des Datentyps:
Code: (dl )

1 2 3

SELECT * FROM (SELECT "id", "vorname", "nachname", ROW_NUMBER() OVER (PARTITION BY "vorname","nachname" ORDER BY "id" ASC) AS "rn" FROM "namen") "t1" WHERE "rn" > '1'
Code: (dl )

1 2

id | vorname | nachname | rn ---|---------|----------|---
Gequoted entsprechend der Art des Wertes:
Code: (dl )

1 2 3

SELECT * FROM (SELECT "id", "vorname", "nachname", ROW_NUMBER() OVER (PARTITION BY "vorname","nachname" ORDER BY "id" ASC) AS "rn" FROM "namen") "t1" WHERE "rn" > 1
Code: (dl )

1 2 3 4

id | vorname | nachname | rn ---|---------|------------|--- 7 | Lena | Müller | 2 6 | Max | Mustermann | 2
Im ersten Fall wird die eingegebene Konstante (1) gequoted, weil DBD::SQLite VARCHAR als Fallback-Datentyp einsetzt, wenn kein deklarierter Datentyp vorhanden ist.

Welche Lösung ist vorteilhafter?
- rosti
  
  2025-09-25 11:17
  
  User since
  2011-03-19
  3747 Artikel
  BenutzerIn
  
  Datentypen sind Low Level. D.h., die sind nur auf Byte-Ebene interessant, nämlich dann wenn sie gespeichert werden. So wäre die Frage eigentlich so zu stellen:
  
  Was haben Deine Anwender mit diesem Level zu tun? Legen Deine Anwender fest ob numerische Werte als Text (varchar) oder als 8,16,32,64 Bit Sequenz gespiechert werden?
  https://www.rolfrost.de/
  
  Forum zu Fragen unserer Zeit
- barney
  
  2025-09-25 11:49
  User since
  2008-08-31
  227 Artikel
  BenutzerIn
  Mein erster Gedanke ist weder noch. Die
  
  Code: (dl )
  
  1
  
  oder
  
  Code: (dl )
  
  '1'
  
  kommt ja anscheinend aus einer User-Eingabe. Dann sollte der Wert auch als Bind-Variable übergeben werden. Mit Bind-Variablen musste ich mir, soweit ich mich errinnere, nie Gedanken über den Datentyp machen.
- GwenDragon
  
  2025-09-25 13:59
  
  User since
  2005-01-17
  14888 Artikel
  Admin1
  
  Fallbacks sind nicht so der Hit nah meinem Gefühl und Wissen.
  Datentypen der Datenbank sollten schon korrekt verwendet werden, wenn Perl/-Modul da mitdenkt ist das nett aber risikoreich.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Raubtier
  
  2025-09-25 16:05
  
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  
  Hm... SQLite ist ja sowieso etwas speziell, was diese Dinge angeht.
  
  Kann dir vielleicht sqlite_see_if_its_a_number helfen - siehe https://metacpan.org/pod/DBD::SQLite
  
  Also die Anfrage mit ?-Platzhalter stellen und dann beim Ausführen den Datentyp nicht explizit angeben?
- +2 replies
- Kuerbis
  
  2025-09-26 11:17
  
  User since
  2011-03-20
  963 Artikel
  BenutzerIn
  
  Ursprünglich hatte ich Platzhalter verwendet. Mit der Einführung von rekursivem Code bzw. verschachteltem SQL hatte ich diese wieder entfernt, weil ich die Beibehaltung der richtigen Reihenfolge der Argumente für die Platzhalter für zu aufwändig hielt. Mal probieren ob ich das trotzdem hinbekomme.
  - rosti
    
    2025-09-26 13:15
    User since
    2011-03-19
    3747 Artikel
    BenutzerIn
    
    2025-09-26T09:17:49 Kuerbis
    Ursprünglich hatte ich Platzhalter verwendet. Mit der Einführung von rekursivem Code bzw. verschachteltem SQL hatte ich diese wieder entfernt, weil ich die Beibehaltung der richtigen Reihenfolge der Argumente für die Platzhalter für zu aufwändig hielt. Mal probieren ob ich das trotzdem hinbekomme.
    
    Code (perl): (dl )
    
    $dbh->quote; $dbh->quote_identifier;
    
    https://www.rolfrost.de/
    
    Forum zu Fragen unserer Zeit
- +3 replies
- Kuerbis
  
  2025-09-27 17:25
  User since
  2011-03-20
  963 Artikel
  BenutzerIn
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  my $stmt = qq[SELECT * FROM (SELECT "id", "vorname", "nachname", ROW_NUMBER() OVER (PARTITION BY "vorname","nachname" ORDER BY "id" ASC) AS "rn" FROM "namen") "t1" WHERE "rn" > ?]; my $nr = 1; my $sth = $dbh->prepare( $stmt ); $sth->execute( $nr ); say $sth->dump_results(); say "============"; $dbh->{sqlite_see_if_its_a_number} = 1; $sth = $dbh->prepare( $stmt ); $sth->execute( $nr ); say $sth->dump_results();
  
  Code: (dl )
  
  1 2 3 4 5 6 7
  
  0 rows 0 ============ 7, 'Lena', 'MÃ¼ller', 2 6, 'Max', 'Mustermann', 2 2 rows 2
  
  Wenn ich das richtig sehe, wird nach dem Aktivieren von sqlite_see_if_its_a_number das gemacht, was auch
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  if ( looks_like_number $value ) { return $value; } else { return $dbh->quote( $value ); }
  
  machen würde.
  
  Darum neige ich jetzt dazu, es so zu machen:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  if ( $dbh->{sqlite_see_if_its_a_number} ) { if ( looks_like_number $value ) { return $value; } else { return $dbh->quote( $value ); } } else { if ( $is_numeric_data_type{$col} ) { return $value; } else { return $dbh->quote( $value ); } }
  - +2 replies
  - Kuerbis
    
    2025-09-29 10:23
    
    User since
    2011-03-20
    963 Artikel
    BenutzerIn
    
    Es hat sich wieder gelohnt hier nachzufragen. Ich habe es wie zuvor beschrieben gemacht.
    - rosti
      
      2025-09-29 18:03
      
      User since
      2011-03-19
      3747 Artikel
      BenutzerIn
      
      Hier noch eine universal insert-Methode aus meinem Framework:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      sub insert{ my $self = shift; my $dbh = ref $_[0] ? shift : $self->dbh('myweb'); my $tabn = shift; my %hunt = @_; my @fields = keys %hunt; $dbh->do(qq( INSERT INTO @{[$dbh->quote_identifier($tabn)]} (@{[join ',', map{$dbh->quote_identifier($_)}@fields]}) VALUES( @{[join ',', map{$dbh->quote($_)}@hunt{@fields}]} ) )); my @row = $dbh->selectrow_array("SELECT LAST_INSERT_ID()"); return $row[0]; }
      
      https://www.rolfrost.de/
      
      Forum zu Fragen unserer Zeit

View all threads created 2025-09-25 07:36.