[SQL]: SyntaxProbs

[Robert_G]

Das würde so auf jeden Falle klappen (du musst höchtens noch Prameter.Value durch irgendwas erstezen, dass die ZEOS verwenden):

Delphi-Quellcode:

With DeineQuery Do
Begin
  SQL.Text :=
    'SELECT *' + #10 +
    'FROM   Buecher' + #10 +
    'WHERE  Titel     Like :WTitel     And' + #10 +
    '       Verlag    Like :WVerlag    And' + #10 +
    '       Bestellnr Like :WBestellnr And' + #10 +
    '       Preis     =    :WPreis';
  // Parameterzuweisung
  With Parameters Do
    ParamByName('WTitel').Value     := WTitel;
    ParamByName('WVerlag').Value    := WVerlag;
    ParamByName('WBestellnr').Value := WBestellnr;
    ParamByName('WPreis').Value     := WPreis;
  End;
  // Ausführen
  Open;
End;

[yankee]

Jo, thx. Ein Problem bleibt noch: Die while-Schleife wird nur einmal durchlaufen, anstatt 3mal.
Was soll das?

Delphi-Quellcode:

    while not ZQuery1.Eof do
    begin
        TitelComboBox.Items.Add(ZQuery1.FieldByName('Titel').AsString);
        VerlagComboBox.Items.Add(ZQuery1.FieldByName('Verlag').AsString);
        BestellnrComboBox.Items.Add(ZQuery1.FieldByName('Bestellnr').AsString);
        PreisComboBox.Items.Add(ZQuery1.FieldByName('Preis').AsString);
        ZQuery1.Next;
    end;

[Sharky]

Bist Du sicher das auch drei Einträge zurück gegeben werden?
Prüfe das mal durch ein einfaches:

Delphi-Quellcode:

begin
  //Die Abfrage
  Open;
  ShowMessage ('Es wurden ' + IntToStr (ZQuery1.RecordCount) + ' Einträge gefunden');
  while not ZQuery1.Eof do
    begin
        TitelComboBox.Items.Add(ZQuery1.FieldByName('Titel').AsString);
        VerlagComboBox.Items.Add(ZQuery1.FieldByName('Verlag').AsString);
        BestellnrComboBox.Items.Add(ZQuery1.FieldByName('Bestellnr').AsString);
        PreisComboBox.Items.Add(ZQuery1.FieldByName('Preis').AsString);
        ZQuery1.Next;
    end;
end;

[yankee]

Nein, es wird nur ein Ergebnis zurückgegeben.
Aber PHPMyAdmin bestätigt mir, dass 3 Einträge vorhanden sind...

[Sharky]

Zitat:

Zitat von yankee

Nein, es wird nur ein Ergebnis zurückgegeben.
Aber PHPMyAdmin bestätigt mir, dass 3 Einträge vorhanden sind...

Dann liegt es an der WHERE Bedingung. Hast Du da noch einen kleinen Fehler?
Poste mal deine Aktuelle Procedure und die Feld-Definition der Tabelle.

[yankee]

Delphi-Quellcode:

procedure TMainForm.LoadTitleList(WTitel, WVerlag, WBestellnr, WPreis:string);
begin
    With ZQuery1 Do
    Begin
        SQL.Text :=
        'SELECT *' + #10 +
        'FROM   Buecher' + #10 +
        'WHERE  Titel     Like :WTitel     And' + #10 +
        '       Verlag    Like :WVerlag    And' + #10 +
        '       Bestellnr Like :WBestellnr And' + #10 +
        '       Preis     =    :WPreis';
      // Parameterzuweisung
        ParamByName('WTitel').Value     := WTitel;
        ParamByName('WVerlag').Value    := WVerlag;
        ParamByName('WBestellnr').Value := WBestellnr;
        ParamByName('WPreis').Value     := WPreis;
        Open;
         ShowMessage ('Es wurden ' + IntToStr (ZQuery1.RecordCount) + ' Einträge gefunden');
    End;
    while not ZQuery1.Eof do
    begin
        TitelComboBox.Items.Add(ZQuery1.FieldByName('Titel').AsString);
        VerlagComboBox.Items.Add(ZQuery1.FieldByName('Verlag').AsString);
        BestellnrComboBox.Items.Add(ZQuery1.FieldByName('Bestellnr').AsString);
        PreisComboBox.Items.Add(ZQuery1.FieldByName('Preis').AsString);
        ZQuery1.Next;
    end;
end;

Aufruf:
LoadTitleList('%','%','%','%');
Könnte es damit zusammenhängen, dass der Preis FLOAT ist und nicht mit einem % aufgerufen werden kann. Ich habe nämlich einen Datensatz, der bei Preis null hat...

[Sharky]

Zitat:

Zitat von yankee

...Könnte es damit zusammenhängen, dass der Preis FLOAT ist und nicht mit einem % aufgerufen werden kann. Ich habe nämlich einen Datensatz, der bei Preis null hat...

Ja klar! Es würde ja auch keinen Sinn machen einen Preis zu suchen der z.B. 1* Euro kostet ;-)
Entweder wird genau nach einem Preis gesucht oder Du machst es mit zwei Variablen und einer BETWEEN abfrage.

[yankee]

Gut, dann lasse ich den Preis vorläufig mal raus...
Jedenfalls lautet die SQL-Abfrage jetzt so:

Delphi-Quellcode:

SQL.Text :=
        'SELECT *' + #10 +
        'FROM   Buecher' + #10 +
        'WHERE  Titel     Like :WTitel     And' + #10 +
        '       Verlag    Like :WVerlag    And' + #10 +
        '       Bestellnr Like :WBestellnr And';

Und es gibt 'ne exception. (Also jetzt nicht beim compilieren, sondern zur Laufzeit). Wieso?

[Sharky]

Zitat:

Zitat von yankee

...

Delphi-Quellcode:

' Bestellnr Like :WBestellnr And';

Und es gibt 'ne exception. (Also jetzt nicht beim compilieren, sondern zur Laufzeit). Wieso?

Das letze AND muss natürlich raus ;-)

[shmia]

Zitat:

Zitat von yankee

Und es gibt 'ne exception. (Also jetzt nicht beim compilieren, sondern zur Laufzeit). Wieso?

Weil nach dem letzten AND nichts mehr folgt !! :wall: