Selektierten Wert aus einer Combobox in eine SQL Abfrage....

[Zyro]

..übergeben.

Ich habe eine SQL Abfrage mit einer Ausgabe auf eine Combobox, in der man den Wert den man braucht. Aussuchen soll. Nun soll eine weitere Combobox nach ändern der ersten Box mit den nächsten Daten gefüllt werden, die sich aus der selektion der ersten Combobox ergeben.

Beispiel:

Combobox1: Fahrzeugtyp
->Sql Abfrage: Welche Kundennummern gehören zum Typ
Combobox2: Kunden Nummern.

[samson]

Hallo.

Die ComboBox enthält die Eigenschaft: Text. Mit folgendem kommst Du zum gewünschten ergebnis:

Delphi-Quellcode:

TQuery.Active := false;
TQuery.SQL.Text := 'select * from fahrzeuge where typ = '+QuotedStr(ComboBox1.Text);
TQuery.Active := true;

while not TQuery.eof do
begin
  .
  .
  .
end;

Gruss

Samson

[Zyro]

Also so?:

Delphi-Quellcode:

 object Qkdnr: TQuery
    DatabaseName = 'CARLINE1'
    SQL.Strings = ('SELECT KD_NR FROM SYSADM.FZ Sysadm_fz WHERE  FZTYP =+QuotedStr(ComboBox1.Text)')
    Left = 40
    Top = 128
  end

Sorry, bin noch total neu in Delphi. :?

[r_kerber]

Hallo zyro,

zunächst erst einmal herzlich willkommen in der Delphi-Praxis.

Der Code, den Du geschrieben hast, funktioniert so nicht. In der Form wird das nicht eingetragen. Das muß im "normalen" Quellcode passieren, so wie es samson geschrieben hat. Diesen Code kannst Du z.B im OnClick-Ereignis eines Buttons eintragen.
Ein Hinweis: Schau Dir ruhig mal die Demos an, die bei Delphi bei sind, und die Code-Beispiele in der Hilfe. Die könnten Dir auch schon weiterhelfen.

[Zyro]

hmm...was Samson geschrieben hat geht leider irgendwie net. :(

[r_kerber]

Und was geht nicht? Vielleicht kannst Du ja auch mal das Stück Code von Dir posten?

[Tester]

Hallo zusammen!

Delphi-Quellcode:

TQuery.Active := false; 
TQuery.SQL.Text := 'select * from fahrzeuge where typ = '+QuotedStr(ComboBox1.Text); 
TQuery.Active := true;

Vergiss bei dem Vorschlag von Samson nicht das du, den Wert nach 'where' in diesem Fall also 'typ' deiner Abfrage angleichen mußt.

Wenn du also möchtest das dieser angezeigt, welcher am 11.11.2002 geboren ist.
Dann müßtest du statt 'typ', 'Geburtstag schreiben'.

[Tester]

Wäre aber wirklich nicht schlecht wenn du mal ein paar Zeilen Code mitschickst, so kann man dir am besten helfen.

MFG

Tester

[Zyro]

:) Jo..es geht jetzt auch. Mir wurde von einem Kollegen geholfen ;)

So..hab aber ein weiteres Problem :D

Bei einer Count abfrage in SQL (zbsp: "Select count(*) from FZ.....") muss das Field wie heissen?

Also: Query.FieldByName('wie?'); //Das 'wie' will ich wissen ;)

[MrSpock]

Hallo Zyro,

dafür kannst du den AS Operator benutzen:

SQL-Code:

SELECT COUNT(*) AS wie FROM ...

[Tester]

Letzt endlich erzeugst dafür ja nur eine Temporäre Spalte, du hast aber die Möglichkeit folgendes festzulegen

Code:

select count(Name) 'Summe' form Geschaeftskunden

So würde die temporär angelegte Spalte die, die Summe der Einträge besitzt 'Summe'
heißen.

Da diese Spalte aber meiner Meinung nur temporär ist müßtest du den Wert ein Variable übergeben um dann weiter damit zu arbeiten.

Gruß Tester

[Zyro]

Delphi-Quellcode:

count.SQL.Clear;
Qcount.SQL.Add('SELECT COUNT(*) AS count FROM FZ where FZTYP=:FZTYP');
Qcount.ParamByName('FZTYP').AsString:=cmbModel.Text;
Qcount.Open;
    while not Qcount.Eof do
     begin
          LbCount.Items.Add(Qcount.FieldByName('Count').AsString);
          Qcount.Next;
     end;
     Qcount.Close;

Also wie in meinem Quelltext geschrieben scheint es nicht zu gehen.

Hab jetzt extra Code mitgeliefert:D

[Tester]

Das habe ich dir doch gerade geschrieben!

Er legt Spalte nicht wirklich an und deshlab nützt da auch kein Fieldbyname.

Oder lieg ich jetzt falsch?

[Zyro]

Und wie speicher ich das temporäre Feld in eine variable?

[MrSpock]

Hallo Zyro,

du darfst als Bezeichner auch keine reservierten Worte wie count benutzen.

[Zyro]

ach mist...das ist mir letztens bei PHP auch schon passiert...da habe ich eine Tabellenspalte Alter für das Alter eines Menschen benannt. Hat er auch rumgezickt.

[MrSpock]

Hallo Zyro,

na wenn es denn jetzt klappt, wäre es ja gut.

Noch eine Info: Die Query liefert jetzt ja nur die Anzahl aller Datensätze, die die Bedingung erfüllen. Deine Schleife:

Delphi-Quellcode:

 while not Qcount.Eof do
     begin
          LbCount.Items.Add(Qcount.FieldByName('Count').AsString);
          Qcount.Next;
     end;

wird deshalb auch nur genau einmal durchlaufen!?