AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

SQLite select geht nicht

Ein Thema von Dr. Jack · begonnen am 19. Nov 2018 · letzter Beitrag vom 20. Nov 2018
Antwort Antwort
Seite 1 von 3  1 23      
Dr. Jack

Registriert seit: 17. Mär 2010
78 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#1

SQLite select geht nicht

  Alt 19. Nov 2018, 13:02
Datenbank: sqlite • Version: 10.1 • Zugriff über: firedac
Hallo zusammen,

ich habe von MSSQL auf die SQLite DB umgestellt, jedoch funktionieren jetzt einige select-Anweisungen nicht, die aber bereite in MSSQL funktionierten. Woran kann das liegen?

Delphi-Quellcode:
procedure TfrmGettingStarted.BitBtn5Click(Sender: TObject);
var
  Column: TListColumn;
   Item: TListItem;
   i:Integer;

begin



 if not main.dbMain.Connected then
    Exit;

 main.qryproducts.FetchOptions.AutoClose := False;
 main.qryproducts.SQL.Clear;



  for i := 1 to Length(edit12.text) do
    if not (edit12.text[i] in ['0'..'9'])
    then begin



            main.qryproducts.SQL.Add(' and fam_db.name like ');
            main.qryproducts.SQL.Add(QuotedStr(#37+edit12.text+#37));

            main.qryproducts.SQL.Add(' and fam_db.menge like ');
            main.qryproducts.SQL.Add(QuotedStr(#37+edit13.text+#37));
            //einheit
            main.qryproducts.SQL.Add(' and fam_db.einheit_kurz like ');
            main.qryproducts.SQL.Add(QuotedStr(#37+edit14.text+#37));
            //dafo
            main.qryproducts.SQL.Add(' and fam_db.dafo_kurz like ');
            main.qryproducts.SQL.Add(QuotedStr(#37+edit15.text+#37));
            //hersteller
            main.qryproducts.SQL.Add(' and fam_db.hersteller_lang like ');
            main.qryproducts.SQL.Add(QuotedStr(#37+edit16.text+#37));

           main.qryproducts.SQL.Add('order by fam_db.name asc, fam_db.menge asc');
           main.qryproducts.SQL.Add('ORDER_BY fam_db.name, (cast(menge as integer)) ASC');

          main.qryproducts.Open;
            // main.qryproducts.ExecSQL;
         end

    else begin //pzn
            main.qryproducts.SQL.Add('SELECT *');
            main.qryproducts.SQL.Add('FROM fam_db') ;
            main.qryproducts.SQL.Add(' WHERE fam_db.nr_pzn like ') ;
           main.qryproducts.SQL.Add(QuotedStr(#37+edit12.text+#37));


            main.qryproducts.Open;
    end;



 listview2.Items.Clear;


 while not main.qryproducts.Eof do
     begin
        saveitemdata( main.qryproducts.fieldbyname('nr_pzn').asString, main.qryproducts.fieldbyname('name').asString, main.qryproducts.fieldbyname('menge').asString, main.qryproducts.fieldbyname('einheit_kurz').asString, main.qryproducts.fieldbyname('dafo_kurz').asString, main.qryproducts.fieldbyname('hersteller_lang').asString ,main.qryproducts.fieldbyname('n_bez').asString ,main.qryproducts.fieldbyname('bestand').asString, main.qryproducts.fieldbyname('listen_vk').asString );

         main.qryproducts.Next;
     end;



end;
[FireDAC][Phys][SQLite] ERROR: near "and": syntax error

FireDAC Executor Error
The application performed an incorrect operation with the database.
-------------------------------------------
Message text: near "and": syntax error
Error code: 00001
Error kind: Other
Server object:
Command text offset: 2
-------------------------------------------
Command text: and fam_db.name like
'%aspirin%'
and fam_db.menge like
'%%'
and fam_db.einheit_kurz like
'%%'
and fam_db.dafo_kurz like
'%%'
and fam_db.hersteller_lang like
'%%'
order by fam_db.name asc, fam_db.menge asc
ORDER_BY fam_db.name, (cast(menge as integer)) ASC
Command parameters:
-------------------------------------------
Exception class name: ESQLiteNativeException
FireDAC error code: 1600
FireDAC object name: main.qryProducts
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.618 Beiträge
 
Delphi 12 Athens
 
#2

AW: SQLite select geht nicht

  Alt 19. Nov 2018, 13:12
Was geschieht, wenn Du Deine Abfrage parametrisierst und das ORDER_BY (scheint eine Art Makro zu sein) einmal weglässt?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: SQLite select geht nicht

  Alt 19. Nov 2018, 13:13
Zudem fehlt die Grundabfrage. Es get mit ' and ...' los.
Markus Kinzler
  Mit Zitat antworten Zitat
hhcm

Registriert seit: 12. Feb 2006
Ort: Wegberg
310 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: SQLite select geht nicht

  Alt 19. Nov 2018, 13:16
Ich würde sagen, dass dies selbst bei MSSQL nicht funktioniert hat. Wenn ich das richtig lese fängt der SQL Befehl mit

and fam_db.name like

an.
Da fehlt was.
Chris
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#5

AW: SQLite select geht nicht

  Alt 19. Nov 2018, 13:19
Da fehlt ein "Select"!
Delphi-Quellcode:
if not (edit12.text[i] in ['0'..'9'])
     then begin
        main.qryproducts.SQL.Text:='Select irgendwas from irgendeinetabelle '+
                                   'where irgendeinFeld=irgendwas ';


             main.qryproducts.SQL.Add(' and fam_db.name like ');
             main.qryproducts.SQL.Add(QuotedStr(#37+edit12.text+#37));
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Dr. Jack

Registriert seit: 17. Mär 2010
78 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#6

AW: SQLite select geht nicht

  Alt 19. Nov 2018, 13:21
stimmt, das war allerdings ein Flüchtigkeitsfehler. Es geht so los:
...
Delphi-Quellcode:
             main.qryproducts.SQL.Add('Select name from fam_db where fam_db.name like') ;
            main.qryproducts.SQL.Add(QuotedStr(#37+edit12.text+#37));

            main.qryproducts.SQL.Add(' and fam_db.menge like ');
            main.qryproducts.SQL.Add(QuotedStr(#37+edit13.text+#37));
...
  Mit Zitat antworten Zitat
hhcm

Registriert seit: 12. Feb 2006
Ort: Wegberg
310 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: SQLite select geht nicht

  Alt 19. Nov 2018, 13:25
Schau dir vor dem öffnen des Querys mal den Inhalt an. Da du nicht mit Parametern arbeitest sollte dort das komplette Statement zu sehen sein.

Code:
main.qryproducts.SQL.Text
Chris
  Mit Zitat antworten Zitat
Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.354 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: SQLite select geht nicht

  Alt 19. Nov 2018, 13:28
Command text: and fam_db.name like
'%aspirin%'
and fam_db.menge like
'%%'
and fam_db.einheit_kurz like
'%%'
and fam_db.dafo_kurz like
'%%'
and fam_db.hersteller_lang like
'%%'
order by fam_db.name asc, fam_db.menge asc
ORDER_BY fam_db.name, (cast(menge as integer)) ASC
stimmt, das war allerdings ein Flüchtigkeitsfehler. Es geht so los:
...
Delphi-Quellcode:
             main.qryproducts.SQL.Add('Select name from fam_db where fam_db.name like') ;
            main.qryproducts.SQL.Add(QuotedStr(#37+edit12.text+#37));

            main.qryproducts.SQL.Add(' and fam_db.menge like ');
            main.qryproducts.SQL.Add(QuotedStr(#37+edit13.text+#37));
...
Dein Command-Text sagt, dass es kein Flüchtigkeitsfehler war, sondern tatsächlich fehlt(e).
Mach doch mal sowas, bevor das Statement ausgeführt wird:
main.qryproducts.SQL.SaveToFile(<DeinDateiname>); Danach schaust dir das Statement an oder führst es manuell aus. Dann siehst du vermutlich genauer, was da schief läuft.
Peter
  Mit Zitat antworten Zitat
Dr. Jack

Registriert seit: 17. Mär 2010
78 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#9

AW: SQLite select geht nicht

  Alt 19. Nov 2018, 13:36
Danke für den Tip mit der Ausgabe. Funktioniert wunderbar im MSSQL...

Select * from fam_db where fam_db.name like
'%aspirin%'
and fam_db.menge like
'%%'
and fam_db.einheit_kurz like
'%%'
and fam_db.dafo_kurz like
'%%'
and fam_db.hersteller_lang like
'%%'
order by fam_db.name asc, fam_db.menge asc
  Mit Zitat antworten Zitat
hhcm

Registriert seit: 12. Feb 2006
Ort: Wegberg
310 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: SQLite select geht nicht

  Alt 19. Nov 2018, 13:40
Ich hab´s kurz ausprobiert. Funktioniert auch wunderbar in SQLite.
Chris
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz