Einzelnen Beitrag anzeigen

Reedx

Registriert seit: 19. Feb 2020
26 Beiträge
 
Delphi 7 Enterprise
 
#16

AW: Datenbank-Programmierung mit UPDATE (SQL)

  Alt 25. Feb 2020, 19:57
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;
  Mit Zitat antworten Zitat