Sql insert into

[Never01]

Zitat von Delphi.Narium:

Weiter oben hast Du geschrieben, dass Du schon Auswertungen hast.

Wie machst Du die denn?

In Post 37 und 39 dieses Threads stehen doch schon Selectanweisungen, kurz Selects.

Delphi-Quellcode:

begin           //Suchen des Siegers
datamodule3.ADOQuery3.Close;
  datamodule3.ADOQuery3.SQL.Text:='select Sieger_NN, Spieler1nn, Spieler1vn, Spieler2nn, Spieler2vn, Punktestand1, Punktestand2, Punktestand3 from Spiel where Sieger_NN = :sp1nn6 ';
  datamodule3.ADOQuery3.Parameters.ParamByName('sp1nn6').Value := edsp1nn6.Text;
  datamodule3.ADOQuery3.Open;
  TstringGrid(DBGrid1).DefaultColWidth:=100;

end;

und

Delphi-Quellcode:

begin

  if (edsp1nn5.Text='') or   (edsp1vn5.Text='')
  then begin
       showmessage ('Daten eingeben') ;
       end
       else begin
                                   // Suchen eines Spielers
datamodule3.ADOQuery3.Close;
  datamodule3.ADOQuery3.SQL.Text:='select Spieler1nn,Spieler1vn,Spieler2nn,Spieler2vn, Punktestand1, Punktestand2, Punktestand3, Sieger_NN from Spiel where Spieler1vn = :sp1vn5 and Spieler1nn = :sp1nn5 or (Spieler2vn = :sp2vn5 and Spieler2nn = :sp2nn5)';
  datamodule3.ADOQuery3.Parameters.ParamByName('sp1vn5').Value := edsp1vn5.Text;
  datamodule3.ADOQuery3.Parameters.ParamByName('sp1nn5').Value := edsp1nn5.Text;
  datamodule3.ADOQuery3.Parameters.ParamByName('sp2vn5').Value := edsp1vn5.Text;
  datamodule3.ADOQuery3.Parameters.ParamByName('sp2nn5').Value := edsp1nn5.Text;
  datamodule3.ADOQuery3.Open;
  TstringGrid(DBGrid1).DefaultColWidth:=90;

            end;
end;

Sorry für die Dusseligkeit.