Datenbank-Programmierung mit UPDATE (SQL)

[Reedx]

Zitat von haentschman:

Für die Anderen...poste bitte die Lösung.

Kam erst jetzt wieder dazu
Lösung kommt hier:

Delphi-Quellcode:

procedure TFormneuFrag.ButtonhinzuClick(Sender: TObject);
var antw:integer;
begin
if (EditFach.Text='') or (EditSchw.Text='') or (Editfr.Text='') or (Editl1.Text='') or (Editl2.Text='') or (Editl3.Text='') or (Editlr.Text='') then
     begin
     application.MessageBox('Bitte alle Felder ausfüllen','Fehler');
     end else
      begin
        antw:= MessageDlg('Frage wirklich hinzufügen? ',mtConfirmation,[mbyes,mbNo],0);
                                          //Message mit Fragezeichen, Möglk. Ja/Nein
        Datamodule1.ADOQuery5.SQL.Clear;
      if antw = mrYes then //mrYes - Benutzer auf yes
       begin //Frage hinzufügen               //hier direkt in SQL text rein -> Übersichtlicher
        Datamodule1.ADOQuery5.SQL.Text := 'INSERT INTO Fragen (Fach, Schwierigkeit, Frage, L1, L2, L3, Lösung) VALUES (FA, SW, FR, L1, L2, L3, LO);';
        Datamodule1.ADOQuery5.Parameters.ParamByName('FA').Value:= Editfach.Text;
        Datamodule1.ADOQuery5.Parameters.ParamByName('SW').Value:= Editschw.Text;
        Datamodule1.ADOQuery5.Parameters.ParamByName('FR').Value := Editfr.Text;
        Datamodule1.ADOQuery5.Parameters.ParamByName('L1').Value := EditL1.Text;
        Datamodule1.ADOQuery5.Parameters.ParamByName('L2').Value := EditL2.Text;
        Datamodule1.ADOQuery5.Parameters.ParamByName('L3').Value := EditL3.Text;
        Datamodule1.ADOQuery5.Parameters.ParamByName('LO').Value := EditLr.Text;
        Datamodule1.ADOQuery5.ExecSQL;
        application.MessageBox('Frage wurde hinzugefügt!','Meldung');
   end else
   begin
     application.MessageBox('Frage wird nicht hinzugefügt!','Meldung');
   end;
   end;
end;

[Reedx]

So, die Probleme gehen weiter
Ich möchte nun endlich beginnen das Quiz zu programmieren. Finde keinen Anfang.. möchte, dass zu Beginn die Fächer aus meiner Datenbank in einer DBRadioGroup erscheinen, dass man eines auswählen kann und dann weiter geht.

1. DBRadioGroup habe ich mit Datasource etc verbunden, aber wie bekomme ich nun die Fächer rein? Ich weiß, dass der Befehl .ItemIndex:= ist.. und nun??

2. Wie kann ich in einem Label die Fragen und dann bei weiteren RadioButtons die Fragen/Antworten zufällig anzeigen lassen, ohne dass sie wiederholt werden (randomize??)?

Vielleicht kann ja jemand helfen!

[hoika]

Hallo,
also ich würde mich von den TDB-Komponenten verabschieden und normale Komponenten benutzen.
Eine Query zum Laden der benötigten Daten ist schnell dahergezaubert.

PS:
Ja, ich mag und benutze die datensensitiven Elemente gar nicht.

[p80286]

Zitat von hoika:

Eine Query zum Laden der benötigten Daten ist schnell dahergezaubert.

Die gibt es schon, Du mußt nur die Daten von der Abfrage zu den Anzeigekomponenten bringen. Und unterwegs kannst Du mit den Daten machen was Du willst.

Gruß
K-H

P.S.
Ok Heiko weiß das. Aber anderen ist das nicht klar.

[himitsu]

Wenn du das QuotedStr bei SQLs von deinem Lehrer hast.

Öffne Word, drucke eine große Zahl aus und gib ihm bitte diese 6.

[haentschman]

Zitat:

Ja, ich mag und benutze die datensensitiven Elemente gar nicht

+ 1

PS:
Datamodule1.ADOQuery5.SQL.Text := 'INSERT INTO Fragen (Fach, Schwierigkeit, Frage, L1, L2, L3, Lösung) VALUES (FA, SW, FR, L1, L2, L3, LO);'; ...
:FA, :SW, :FR, :L1, :L2, :L3, :LO Parameter Namen beginnen immer mit :