1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

with Datamodule1 do begin
        cds.First;
        CDS.Active:=False;
        CDS.SelectSQL.Clear;
        CDS.SelectSQL.Add('Select * From Teil2710 WHERE ART_NR='+art+'');
        CDS.Active:=True;
        CDS.ModifySQL.Clear;
        CDS.ModifySQL.Add('UPDATE TEIL270 SET:ART_SCHN = :'''+SCHArt+''' WHERE ART_NR = '''+art+'''');
        Showmessage(CDS.ModifySQL.Text); //Zum gucken was wirklich drin steht
        CDS.ExecSQL;  //Hier erscheint die Fehlermeldung
        CDS.ApplyUpdates;
        CDS.Refresh;
      end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

      with Datamodule1 do begin
        cds.First;
        CDS.Active:=False;
        CDS.SelectSQL.Clear;
        CDS.SelectSQL.Add('Select * From Teil2710 WHERE ART_NR='+art+'');
        CDS.Active:=True;
        CDS.ModifySQL.Clear;
        CDS.ModifySQL.Add('UPDATE TEIL2710 SET ART_SCHN = '''+SCHArt+''' WHERE ART_NR = '''+art+'''');
        CDS.Open;
        if cds.CanModify=True then
          Showmessage ('Canmodify ist True')
        else
          Showmessage ('Canmodify ist False');
        CDS.ExecSQL;  //<- hier kommt: 'Verwenden Sie Open für eine Selectanweisung'
        CDS.ApplyUpdates;
        CDS.Refresh;
        Showmessage('Art: '+cds.FieldByName('ART_NR').AsString+' |Grp: '+cds.FieldByName('ART_GR').AsString+' |SchnorrNr: '+cds.FieldByName('ART_SCHN').AsString);
      end;