MySQL Insert und Delphi XE5

[juelin]

ich hätte ja die Source geschickt,
ist aber zu groß.
Ich arbeite mit DBEXPRESS Komponenten.
Gruß Jürgen

Form1.SQLDataSet1.CommandText:='TRUNCATE TABLE Strecke';
h2:=Form1.SQLDataSet1.ExecSQL(True);
if h2 <> 0 then
begin
JaNein:=messagedlg('Fehler beim Löschen Strecke', mtError, [mbOk], 0);
abbruch:=True;
close;
end;
Form1.SQLDataSet1.CommandText:='INSERT INTO Strecke (Type, Nummer, Einfahrt, Ausfahrt, Gleis, Gleisnummer, Stellung, vorher, nachher, Status) VALUES (:Type, :Nummer, :Einfahrt, :Ausfahrt, :Gleis, :Gleisnummer, :Stellung, :vorher, :nachher, :Status)';
Form1.SQLDataSet1.ParamByName('Type').Name:='Type' ;
Form1.SQLDataSet1.ParamByName('Type').DataType:=ft Integer;
Form1.SQLDataSet1.ParamByName('Type').Value:=0;
Form1.SQLDataSet1.ParamByName('Nummer').Name:='Num mer';
Form1.SQLDataSet1.ParamByName('Nummer').DataType:= ftInteger;
Form1.SQLDataSet1.ParamByName('Nummer').Value:=0;
Form1.SQLDataSet1.ParamByName('Einfahrt').Name:='E infahrt';
Form1.SQLDataSet1.ParamByName('Einfahrt').DataType :=ftString;
Form1.SQLDataSet1.ParamByName('Einfahrt').Value:=' ';
Form1.SQLDataSet1.ParamByName('Ausfahrt').Name:='A usfahrt';
Form1.SQLDataSet1.ParamByName('Ausfahrt').DataType :=ftString;
Form1.SQLDataSet1.ParamByName('Ausfahrt').Value:=' ';
Form1.SQLDataSet1.ParamByName('Gleis').Name:='Glei s';
Form1.SQLDataSet1.ParamByName('Gleis').DataType:=f tInteger;
Form1.SQLDataSet1.ParamByName('Gleis').Value:=0;
Form1.SQLDataSet1.ParamByName('Gleisnummer').Name: ='Gleisnummer';
Form1.SQLDataSet1.ParamByName('Gleisnummer').DataT ype:=ftInteger;
Form1.SQLDataSet1.ParamByName('Gleisnummer').Value :=0;
Form1.SQLDataSet1.ParamByName('Stellung').Name:='S tellung';
Form1.SQLDataSet1.ParamByName('Stellung').DataType :=ftInteger;
Form1.SQLDataSet1.ParamByName('Stellung').Value:=0 ;
Form1.SQLDataSet1.ParamByName('vorher').Name:='vor her';
Form1.SQLDataSet1.ParamByName('vorher').DataType:= ftInteger;
Form1.SQLDataSet1.ParamByName('vorher').Value:=0;
Form1.SQLDataSet1.ParamByName('nachher').Name:='na chher';
Form1.SQLDataSet1.ParamByName('nachher').DataType: =ftInteger;
Form1.SQLDataSet1.ParamByName('nachher').Value:=0;
Form1.SQLDataSet1.ParamByName('Status').Name:='Sta tus';
Form1.SQLDataSet1.ParamByName('Status').DataType:= ftInteger;
Form1.SQLDataSet1.ParamByName('Status').Value:=0;
h2:=Form1.SQLDataSet1.ExecSQL(False);
if h2 <> 1 then
begin
JaNein:=messagedlg('Fehler beim Anlegen Strecke', mtError, [mbOk], 0);
abbruch:=True;
close;
end;