wie schreibe ich daten in eine paradox7 tabelle?

[Robert_G]

Moin

Habt ihr beide schon mal was von Code-formatierung gehört?
Hättest du dein SQL-Statement besser formatiert (bei der Spaltenanzahl ein Muss!!!), hättest du zum Bleistift ein paar doppelte "," bemerkt.

Warum eigentlich das?
...'Ort ', ' + Datum + ', ' + Name + ', ... So ist es doch viel einfacher (und es funktioniert ) :
...'Ort, Datum, Name ... Ich habe mal schnell deinen Code etwas umformatiert.
Da ich ein paar Stellen geändert habe, kann es sein, dass er von dir korrigiert werden muss.

Delphi-Quellcode:

  With Query1 Do
  Begin
    SQL.Text :=
      'Insert INTO ' + StrTable + #10 +
      '  (Ort' + #10 +
      '  ,Datum' + #10 +
      '  ,Name' + #10 +
      '  ,Bahn1' + #10 +
      '  ,Bahn1Ab' + #10 +
      '  ,Bahn1Drops' + #10 +
      '  ,Bahn2' + #10 +
      '  ,Bahn2Ab' + #10 +
      '  ,Bahn2Drops' + #10 +
      '  ,Bahn3' + #10 +
      '  ,Bahn3Ab' + #10 +
      '  ,Bahn3Drops' + #10 +
      '  ,Bahn4' + #10 +
      '  ,Bahn4Ab' + #10 +
      '  ,Bahn4Drops' + #10 +
      '  ,GesDrops' + #10 +
      '  ,GesSL' + #10 +
      '  ,GesGT' + #10 +
      '  ,GesEL' + #10 +
      '  ,Gesamt)' + #10 +
      'VALUES' + #10 +
      '  (:i_Ort' + #10 +
      '  ,:i_Datum' + #10 +
      '  ,:i_Name' + #10 +
      '  ,:i_Bahn1' + #10 +
      '  ,:i_Bahn1Ab' + #10 +
      '  ,:i_Bahn1Drops' + #10 +
      '  ,:i_Bahn2' + #10 +
      '  ,:i_Bahn2Ab' + #10 +
      '  ,:i_Bahn2Drops' + #10 +
      '  ,:i_Bahn3' + #10 +
      '  ,:i_Bahn3Ab' + #10 +
      '  ,:i_Bahn3Drops' + #10 +
      '  ,:i_Bahn4' + #10 +
      '  ,:i_Bahn4Ab' + #10 +
      '  ,:i_Bahn4Drops' + #10 +
      '  ,:i_GesDrops' + #10 +
      '  ,:i_GesSL' + #10 +
      '  ,:i_GesGT' + #10 +
      '  ,:i_GesEL' + #10 +
      '  ,:i_Gesamt)';
    Prepared := True;
    With Params Do
    Begin
      ParamByName('i_Ort')       .AsString   := ORT;
      // Ich nahm an, dass DATUM in der Tabelle ein Datumsfeld ist
      ParamByName('i_DATUM')     .AsDateTime := DATUM ;
      ParamByName('i_NAME')      .AsString   := NAME ;
      ParamByName('i_Bahn1')     .AsInteger  := wupb1;
      ParamByName('i_Bahn1Ab')   .AsString   := wupb1ab;
      ParamByName('i_Bahn1Drops').AsInteger  := wupb1d;
      ParamByName('i_Bahn2')     .AsInteger  := wupb2;
      ParamByName('i_Bahn2Ab')   .AsString   := wupb2ab;
      ParamByName('i_Bahn2Drops').AsInteger  := wupb2d;
      ParamByName('i_Bahn3')     .AsInteger  := wupb3;
      ParamByName('i_Bahn3Ab')   .AsString   := wupb3ab;
      ParamByName('i_Bahn3Drops').AsInteger  := wupb3d;
      ParamByName('i_Bahn4')     .AsInteger  := wupb4;
      ParamByName('i_Bahn4Ab')   .AsString   := wupb4ab;
      ParamByName('i_Bahn4Drops').AsInteger  := wupb4d;
      ParamByName('i_GesDrops')  .AsInteger  := wupgesd;
      ParamByName('i_GesSL')     .AsString   := GesSL;
      ParamByName('i_GesGT')     .AsString   := GesGT;
      ParamByName('i_GesEL')     .AsString   := GesEL;
      ParamByName('i_Gesamt')    .AsInteger  := wupges;
    End;
    ExecSQL;
  End;

Edit: Ein Haufen Tippfehler und Doppelpunkte in der Parameterzuweisung...
Edit 573 ( ) : Noch ein Doppelpunkt