Einlesen von SQL-Daten in Combobox

[marabu]

Oberhalb von dem Fenster, in dem du deinen Beitrag schreibst, ist ein Button "Delphi-Code". Hau drauf, bevor du deinen Quellcode schreibst und nochmal, wenn du fertig bist. Dann sieht dein Beitrag etwa so aus:

Delphi-Quellcode:

procedure TfrmTestauswahl.FormCreate(Sender: TObject); 
begin
  ComboBox.Items.Clear; 
  with myQuery do begin
    SQL.Text := 'SELECT Testnummer FROM Test WHERE Testabschnitt = 3 ORDER BY Testnummer'; 
    Open;
    while not Eof do begin 
      Combobox.Items.Add(myQuery.Fields[0].AsString); 
      Next;
    end;
    Close;
  end;
end;

marabu

FROM-Klausel nach Hinweis von Sharky eingefügt

[ibp]

Delphi-Quellcode:

procedure TfrmTestauswahl.cbotestnummerChange(Sender: TObject); 
begin
  ComboBox.Items.Clear 
  myQuery.SQL.Text:='SELECT Testnummer WHERE Testabschnitt = 3 ORDER BY Testnummer'; 
  myQuery.Open;
  myQuery.First; 
  while not (myQuery.Eof) do 
    Combobox.Items.Add(myQuery.Fields[0].AsString); 
end;

delphi tags sind: [_delphi_] und [_/delphi_] ohne die "_" oder drück einfach beim editieren den button "delphi-code"

[cell]

Delphi-Quellcode:

procedure TfrmTestauswahl.cbotestnummerChange(Sender: TObject); 
begin 
  ComboBox.Items.Clear 
  myQuery.SQL.Text:='SELECT Testnummer WHERE Testabschnitt = 3 ORDER BY Testnummer'; 
  myQuery.First; 
  while not (myQuery.Eof) do 
    Combobox.Items.Add(myQuery.Fields[0].AsString); 
end;

kann ich das so übernehmen ??
bzw statt

Combobox.Items.Add(myQuery.Fields[0].AsString); gehört
cbotestnummer.Items.Add(myQuery.Fields[0].AsString); oda ??

[marabu]

Hi cell,

der von dir vorgeschlagene Code funktioniert garantiert nicht. Du legst das SQL-Statement fest, aber startest die Anfrage (myQuery.Open) an die Datenbank gar nicht. Dann verwendest du eine Schleife ohne Ende-Kriterium.

Es ist dir vielleicht nicht aufgefallen, aber für den Fall, dass du mehrere Testnummern in deiner ComboBox haben wolltest, habe ich deinen Code in meinem letzten Beitrag bereits an deine Bedürfnisse angepasst. Du musst nur noch darauf achten, dass du die richtigen Namen einsetzt. Einfach übernehmen ist wohl keine gute Idee. Du solltest den Code auch verstehen. Was du über die Online-Hilfe nicht klären kannst, frage hier nach.

marabu

[Sharky]

Hai,

neben der Ausführung von marabu wird der Code zur Laufzeit einen Fehler verursachen weil das SQL-Statement einen Fehler hat.
Es wird nämlich nicht angegeben auf welche Tabelle es sich bezieht.

Allgemein muss der Aubau so sein:

Code:

[b]SELECT[/b] [i]feldnamen[/i] [b]FROM[/b] [i]tabellennamen[/i]

Bei deinem Statement fehlt das FROM.

[cell]

hätte noch eine Frage zuu einem Quelltext

Delphi-Quellcode:

procedure TfrmTestauswahl.FormCreate(Sender: TObject); 
begin 
  ComboBox.Items.Clear; 
  with myQuery do begin 
    SQL.Text := 'SELECT Testnummer FROM Test WHERE Testabschnitt = 3 ORDER BY Testnummer'; 
    Open; 
    while not Eof do begin 
      Combobox.Items.Add(myQuery.Fields[0].AsString); 
      Next; 
    end; 
    Close; 
  end; 
end;

das hat marabu geschrieben und ich wollte wissen was das

with myQuery do begin macht weil hier zeigt es mir einen Fehler an
thx

[marabu]

Zitat von cell:

with myQuery do begin hier zeigt es mir einen Fehler an

Welchen Fehler meldet denn der Compiler?

myQuery ist ein Platzhalter für deine Query, wie auch immer die heißen mag - oder hast du Probleme mit dem with-block?

marabu

[cell]

undefinierteer Bezeichner: 'myQuery'

Zitat:

myQuery ist ein Platzhalter für deine Query, wie auch immer die heißen mag - oder hast du Probleme mit dem with-block?

ich hab doch meine abfrage schon vorher gemacht ???

SQL.Text := 'SELECT Testnummer FROM friktionstest;

[cell]

könnte bitte jemand auf die Fragen antworten oder mir ein gutes Tutorial geben wo das drinnen steht

thx

[marabu]

Mit SQL ist das so: du schreibst auf was du wissen willst:

myQuery.SQL.Text := 'SELECT Testnummer FROM friktionstest WHERE ... ORDER BY ...'; Dann musst du deine Anfrage noch an den Server schicken:

myQuery.Open; Weil der Server sich ein paar Resourcen dafür zurecht gelegt hat, solltest du ihm auch wieder Bescheid sagen, wenn du fertig bist:

myQuery.Close; Klarer jetzt?

marabu