Hi,

folgendes Problem : Die in einem Editfeld stehende Kunden-Nr. soll über einen Parameter an eine SQL - Abfrage geliefert werden. Diese soll dann den Kunden irgendwo anzeigen.

markieren

Code:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  KuDS.Active := false;
  KuDS.ParamByName ('KDNR').AsInteger := StrToInt (Edit1.Text);
  KuDS.SelectSQL.Text := 'SELECT * FROM KUNDE WHERE NR = :KDNR';
  KuDS.Active := true;
end;

Lasse ich das so ablaufen, heißt es "Parameter KDNR does not exist on Form". Zumindest, daß etwas mit einem Parameter gemacht werden soll, hat Delphi also erkannt. Wer weiß, was da fehlt oder falsch ist

Zitat von Hansa:

Lasse ich das so ablaufen, heißt es "Parameter KDNR does not exist on Form". Zumindest, daß etwas mit einem Parameter gemacht werden soll, hat Delphi also erkannt. Wer weiß, was da fehlt oder falsch ist

Hai Hansa,

hast Du denn den Parameter auch im OI angegeben (unter Params)?
Oder ihn im Code erzeugt?

Bei meinem DataSet gibts kein Params, zumindest nicht im OI.

Zitat von Hansa:

Bei meinem DataSet gibts kein Params, zumindest nicht im OI.

Hmmm.... ich verwende die ADOs.... dort habe ich die bei den Querys und bei den DataSets.

Hi Hansa,

wenn ich den Namen für den Pasameter nicht setzen möchte (Faulheit), schreibe ich folgendes:
MyQuery.Params[0].Value := KdNr; und die Abfrage wie Du sie geschrieben hast.

Will ich keine Params verwenden, oder es gibt keine wie bei Dir, dann verwende ich die Variable in der Abfrage zur Laufzeit.

Bsp.:

markieren

Delphi-Quellcode:

KdNr := StrtoInt(Edit1.Text);
KuDS.SelectSQL.Text := 'SELECT * FROM KUNDE WHERE NR = '''+ KDNR +''';

Gruß oki

Hi,

Zitat von Hansa:

markieren

Code:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  KuDS.Active := false;
  KuDS.ParamByName ('KDNR').AsInteger := StrToInt (Edit1.Text);
  KuDS.SelectSQL.Text := 'SELECT * FROM KUNDE WHERE NR = :KDNR';
  KuDS.Active := true;
end;

Oohhh Hansa, was soll das? Wie soll denn in Zeile 2 dem Parameter was zugewiesen werden, wenn Du in Zeile 3 die SQL-Anweisung änderst??? Dreh die beiden Zeilen um und versuchs nochmal. Wenn es nicht gehen sollte (aber nur dann) schiebe zwischen die beiden Zeilen ein

KuDS.Prepare

ein

Grüße
Lemmy

Zitat von oki:

Will ich keine Params verwenden, oder es gibt keine wie bei Dir

Das Bsp. mit dem Editfeld kann man so lösen, aber das ist hier nur aus Vereinfachungsgründen so einfach gehalten.

markieren

SQL-Code:

  
  KuDataSet.Params[0].Name := 'KDNR';
  KuDataSet.SelectSQL.Text := 'SELECT * FROM KUNDE WHERE NR = :KDNR';

So gehts auch nicht. Dann kommt : "Cannot assign to Read-Only property"
Also : ich brauche einen Parameter, den ich im SelectSQL nutzen kann. Dem muß ich doch wohl einen Namen geben, oder nicht ? Zur Laufzeit soll der Parameter dann einen gültigen Wert erhalten und im Select benutzt werden können.

Hallo Hansa,

ich vermute, es liegt an der Reihenfolge.

Vor der Anweisung:

KuDataSet.SelectSQL.Text := 'SELECT * FROM KUNDE WHERE NR = :KDNR'; gibt es noch gar keine Parameter. Die Zuweisung an die SQL Eigenschaft, bei der ein Parameter benutzt wird erzeugt aber einen Parameter, den du nutzen kannst. Also erst die Zuweisung des SQL Strings, dann Zugriff auf den Params Array. Es sei denn, du legst den Parameter bereits vorher, z.B. über die IDE an.

Zitat von Lemmy:

Oohhh Hansa, was soll das?

Das war mir schon klar, daß das irgendein Schwachsinn ist. Aber manchmal hat man halt Tomaten auf den Augen. 8) Lemmys Beitrag habe ich zu spät gesehen. Zeilen vertauscht und es geht Jetzt muß ich das ganze an dem eigentlichen Problem testen. Zumindest kann ich jetzt in dem Progrämmchen nachsehen, wie es richtig rum ist.

@MrSpock,Lemmy: Danke für die Hilfe. Da hatte ich echt einen Knoten im Gehirn.

Jetzt hänge ich wieder fest. Das ganze ging, aber jetzt nicht mehr bis zum Schluß.

markieren

Code:

        Active := false;
        SelectSQL.Text :='SELECT * FROM KUSTAT WHERE JAHR = ' + LabeledEdit1.text +
                         ' AND MONAT = ' + IntToStr (i) + ' AND ID_KUNR = :KDNR';
        StatModul.StatDS.ParamByName ('KDNR').AsInteger := KuModul.KuDataSet.FieldByName ('ID').AsInteger;
        Series1.AddXY(i,(FieldByName ('UMSATZ').value ));

was ist denn jetzt hier falsch ?

wieso beschwert sich Delphi : "Field ID not found" Bei den SQLs stehts richtig drin. So ein Mist !