Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
inventarnummer, raumnummer : integer;
name, raumbezeichnung, baujahr : string;
begin
inventarnummer:=strtoint(Edit1.Text);
raumnummer:=strtoint(Edit2.Text);
raumbezeichnung:=Edit3.Text;
name:=Edit4.Text;
baujahr:=Edit5.Text;
Query1.SQL.Text := 'INSERT INTO Raume VALUES (:raumnummer,:raumbezeichnung)';
Query1.ParamByName('raumnummer').Value := raumnummer;
Query1.ParamByName('raumbezeichnung').Value := raumbezeichnung;
Query1.ExecSQL;
end;
Wie sieht es so aus?
[edit] Übrigens ist "name" ein schlechter Bezeichner, da jede Komponente auch über eine gleichnamige Property verfügt, nicht, dass da der Compiler durcheinanderkommt. [/edit]