SQL - Parameter

[Hansa]

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.

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. :mrgreen: Wer weiß, was da fehlt oder falsch ist :?:

[Sharky]

Zitat:

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. :mrgreen: 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?

[Hansa]

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

[Sharky]

Zitat:

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.

[oki]

Hi Hansa,

wenn ich den Namen für den Pasameter nicht setzen möchte (Faulheit), schreibe ich folgendes:

Delphi-Quellcode:

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.:

Delphi-Quellcode:

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

Gruß oki

[Lemmy]

Hi,

Zitat:

Zitat von Hansa

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? :shock: 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

[Hansa]

Zitat:

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. :chat:

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.

[MrSpock]

Hallo Hansa,

ich vermute, es liegt an der Reihenfolge.

Vor der Anweisung:

Delphi-Quellcode:

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.

[Hansa]

Zitat:

Zitat von Lemmy

Oohhh Hansa, was soll das? :shock:

Das war mir schon klar, daß das irgendein Schwachsinn ist. :mrgreen: 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.

[Hansa]

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

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 !

[MrSpock]

Hallo Hansa,

der Fehler liegt wahrscheinlich in der Zeile:

Delphi-Quellcode:

 StatModul.StatDS.ParamByName ('KDNR').AsInteger := KuModul.KuDataSet.FieldByName ('ID').AsInteger;

Wenn ID wirklich ein gültiges Feld von KuDataSet ist, könnte es sein, dass du einige Felder dieser Tabelle über den Feldeditor eingefügt hast, ID jedoch nicht !? Oder ID ist eben gar kein Feld dieser Datenmenge.

[Hansa]

in UpdateSQL ist das Feld ID nicht drin. Sonst schon. Hier kommt der Fehler :

SQL-Code:

StatModul.StatDS.ParamByName ('KDNR').AsInteger := KuModul.KuDataSet.FieldByName ('ID').AsInteger;

Liegt das vielleicht an dem AsInteger ?

[MrSpock]

Hallo Hansa,

nein, an dem AsInteger liegt es nicht. Die Fehlermeldung deutet wie gesagt darauf hin, dass das Feld ID nicht in KuDataSet gefunden wurde. Das ist -auch wenn ich mich da wiederhole- in der Regel dann der Fall, wenn ID wirklich nicht in dem DataSet KuDataSet enthalten ist oder wenn es zwar enthalten ist, aber -im Gegensatz zu anderen Feldern- nicht über den Feldeditor ins Programm eingefügt wurde.

[Sharky]

Hai Hansa,

ich habe beim MS-SQL die Erfahrung gemacht das es Probleme geben kann wenn ein Feld den Namen ID hat.

Ich weiss nicht mehr genau was mein Problem damals war. Aber sobald ich das Feld umbenannt hatte lief alles ohne Probleme. ID ist IMHO ein Resserviertes Wort bei einigen Datenbank-Servern.

[Hansa]

wenn ich folgendes versuche :

Delphi-Quellcode:

StatModul.StatDS.ParamByName ('KDNR').AsInteger := KuModul.KuDataSet.FieldByName ('ID').AsInteger;

D.h. ich will in diesem Fall die ID aus der Kundentable als Parameter übergeben. Müssen die Datenmengen dann active sein oder nicht :?: Oder nur eine oder keine ?

[Gollum]

Hallo,

wenn Du Daten aus Deiner Kundentabelle lesen willst, muss diese natürlich aktiv sein. Ist dem nicht so, kann auch der Parameter nicht zugewiesen werden.

[MrSpock]

Hallo Hansa,

StatModul.StatDS soll NICHT active sein, KuModul.KuDataSet muss active sein.

[Sharky]

KuModul.KuDataSet muss natürlich aktiv sein! Sonnst gibt es ja keine Daten die Du holen kannst!

Eine geschlosene DatenMenge (aktiv = False) gibt dir immer NIX zurück. :lol:

[Hansa]

Wegen so einem Mist den halben Tag vergeudet :

so sah es aus (mit Fehler) :

Code:

KuModul.KuDataSet.SelectSQL.Text := 'SELECT ANREDE,NAME,STRASSE,ORT FROM KUNDE WHERE NR = ' + KuNr.Text;

so gehts jetzt (man beachte die ID :!: ):

Code:

KuModul.KuDataSet.SelectSQL.Text := 'SELECT [B]ID,[/B]ANREDE,NAME,STRASSE,ORT FROM KUNDE WHERE NR = ' + KuNr.Text;

da war ich wohl etwas zu sparsam. :mrgreen:

[MrSpock]

Hallo Hansa,

... und ich sach noch ... Bisse dir sicha, dat dat Feld auch wirklich da is... :mrgreen:

[Hansa]

Na klar war ich mir sicher, daß das Feld da ist. Es war halt schon da. In der DB waren sogar Werte drin. :mrgreen: Merke : Feld in DB <> Daten in abgefragter Datenmenge :!: