Hallo
ich habe ein kleines Problem mit einer Queryabfrage.
In einer Form wird nach einer Seriennummer gesucht. Die Daten werden in einem Grid angezeigt.
Ich möchte nun die Daten mit einem Query nach dem Suchergebnis Filtern und über einen Button ins Hauptformular springen.
Dort sollen im einem Grid nur die Werte angezeigt, die dem Query entsprechen. Über ein anderes Tread habe ich folgendes zusammengetragen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TLagerseriennummersuche.BitBtn1Click(Sender: TObject);
var eingangnr:String;
begin
Lagerdata.ADOWareneingangQuery.close;
Lagerdata.ADOWareneingangQuery.SQL.Clear;
Lagerdata.ADOWareneingangQuery.SQL.Text:='SELECT Eingangsnummer FROM Wareneingang WHERE Eingangsnummer = :eingangnr';
lagerdata.ADOWareneingangQuery.Parameters.ParamByName('eingangnr.').DataType := ftString;
lagerdata.ADOWareneingangQuery.Parameters.ParamByName('eingangnr').Value := Lagerdata.ADOEingangQuery.FieldByName('Eingangsnummer').AsString;
Lagerdata.ADOWareneingangQuery.open;
Lagermain.wareneingang.Show;
close;
end; |
Wenn ich nun den Button betätige kommt folgende fehlermeldung:
ADOWareneingangQuery: Parameter 'eingangnr.' nicht gefunden.
Kann da einer helfen?
mfg
Arne Danikowski
