Standardwert bei ADO-Abfrage

[dominikkv]

Hi,

ich versuche grade über ADO auf eine Access-Datenbank zuzugreifen.

Delphi-Quellcode:

procedure TDatenbank.DiscountExists(EAN: string);
begin
  if fConnection.Connected then
    with fQuery do
      begin
        Close;
        SQL.Clear;
       // Active := False;

       // fConnection.BeginTrans;

        SQL.Add('SELECT * FROM `Products`, `Discounts` WHERE (`Discounts`.ProduktFKID = `Products`.PKID) AND (EAN = ''0123456789'')');
        try
          Open;
         // fConnection.CommitTrans;
        except
         // fConnection.RollbackTrans;
        end;
      end;
end;

Jetzt kommt nach dem Open; aber immer die Fehlermeldung

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt MeinProgramm.exe ist eine Exception der Klasse EOleException mit der Meldung 'Parameter`Discounts`.ProduktFKID hat keinen Standardwert' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Was mache ich falsch?

mfg.Dominik

[DeddyH]

Muss man bei Access nicht eckige Klammern statt der Backticks verwenden? Diese kenn ich nämlich eigentlich eher von MySQL.

[onkelmehli]

schon mal so versucht?
SQL.Add('SELECT * FROM Products, Discounts WHERE (Discounts.ProduktFKID = Products.PKID) AND (EAN = ''0123456789'')');

[DeddyH]

Oder so?

Delphi-Quellcode:

procedure TDatenbank.DiscountExists(EAN: string);
begin
  if fConnection.Connected then
    with fQuery do
      begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT [Products].*,[Discounts].* FROM [Products] ');
        SQL.Add('INNER JOIN [Discounts] ON [Discounts].ProduktFKID = [Products].PKID');
        SQL.Add('WHERE EAN = :EAN');
        Parameters.ParamByName('EAN').Value := EAN;
        try
          Open;
         // fConnection.CommitTrans;
        except
         // fConnection.RollbackTrans;
        end;
      end;
end;

[dominikkv]

Danke schon mal für eure Antworten.

Zitat von onkelmehli:

schon mal so versucht?
SQL.Add('SELECT * FROM Products, Discounts WHERE (Discounts.ProduktFKID = Products.PKID) AND (EAN = ''0123456789'')');

Ja, gleiche Fehlermeldung wie oben.

Zitat von DeddyH:

Oder so?

Delphi-Quellcode:

procedure TDatenbank.DiscountExists(EAN: string);
begin
  if fConnection.Connected then
    with fQuery do
      begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT [Products].*,[Discounts].* FROM [Products] ');
        SQL.Add('INNER JOIN [Discounts] ON [Discounts].ProduktFKID = [Products].PKID');
        SQL.Add('WHERE EAN = :EAN');
        Parameters.ParamByName('EAN').Value := EAN;
        try
          Open;
         // fConnection.CommitTrans;
        except
         // fConnection.RollbackTrans;
        end;
      end;
end;

Neue Fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt MeinProgramm.exe ist eine Exception der Klasse EOleException mit der Meldung 'Für mindestens einen erforderlichen Parameter wurde kein Wert angegeben' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

In EAN: string steht aber etwas drinn.
Wenn ich

Delphi-Quellcode:

SQL.Add('WHERE EAN = 0123456789');// oder
SQL.Add('WHERE EAN = ''0123456789''');

schreibe kommt wieder die Fehlermeldung mit dem Standardwert von oben.

[DeddyH]

Lass Dir die Abfrage doch von Access selbst generieren, dann müsstest Du nur den Parameter einsetzen. Ich kenne leider die genaue Syntax nicht.

[onkelmehli]

fehlt dann da nicht noch [], also so?
SQL.Add('WHERE [EAN] = :EAN');

[dominikkv]

Zitat von DeddyH:

Lass Dir die Abfrage doch von Access selbst generieren, dann müsstest Du nur den Parameter einsetzen. Ich kenne leider die genaue Syntax nicht.

Daran habe ich noch garnicht gedacht

Die korrekte Syntax lautet

Delphi-Quellcode:

SQL.Add('SELECT Discounts.ProductFKID');
SQL.Add('FROM Products, Discounts');
SQL.Add('WHERE (([Discounts]![ProductFKID]=[Products]![PKID]) AND ([Products]![EAN]="' + EAN + '"));');

Danke für eure Hilfe

[DeddyH]

Trotzdem solltest Du die Abfrage besser parametrisieren wie oben gezeigt, sonst kann es zu dummen Fehlern oder gar zu SQL-Injection kommen.

[p80286]

bei dieser Syntax überkommt einen das Grausen:
WHERE (([Discounts]![ProductFKID]=[Products]![PKID]) AND ([Products]![EAN]="' + EAN + '")); Gruß
K-H