Thema: Delphi SQL INSERT Problem

Einzelnen Beitrag anzeigen

Benutzerbild von Leuselator
Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
 
Delphi 8 Architect
 
#14

Re: SQL INSERT Problem

  Alt 29. Jan 2004, 23:49
Also, zu Deinem letzten Versuch: mir scheint, Du benutzt die qr_spielerliste auch zum Anzeigen der Spieler, willst dann kurz einen neuen Spieler einfügen, um anschließend wieder die Spielerliste anzuzeigen - wenn ich richtig vermute, und deine qr_spielerliste vor Eintritt in die bbtn_hinzuClick in etwa so aussieht:
SQL-Code:
SELECT *
  FROM Spielerdaten
dann kommst Du so zum Ziel:
Delphi-Quellcode:
procedure Tfrm_personeingabe.bbtn_hinzuClick(Sender: TObject);
var nr
  , vorname
  , nachname
  , OldSql : string;
begin
  nr := edt_nr.Text;
  vorname := edt_vorname.Text;
  nachname := edt_nachname.Text;
  with DataModule1.qr_spielerliste do
  begin
    Close;
    OldSql := SQL.Text;
    SQL.Clear;
    SQL.Add ('INSERT INTO spielerdaten (Nr, Vorname) ');
    SQL.Add (' ( Nr ');
    SQL.Add (' , Vorname) ');
    SQL.Add (' VALUES ');
    SQL.Add (' ('+QuotedStr(Nr) );
    SQL.Add (' ,'+QuotedStr(Vorname)+') ');
    ExecSQL; // führt die Insertanweisung aus (Datenmenge bleibt geschlossen, da
             // kein ergebnis zurückgeliefert wird

    SQL.Text := OldSql; // zuweisen der ursprünglichen Select-Anweisung
    Open; // öffnen der Liste
  end;
  frm_personeingabe.hide;
end;
Gruß
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
  Mit Zitat antworten Zitat