SQL- Abfrage

[pronny31]

Jetzt kommt die Meldung das das Feld bei Mir Memo1 nicht gefunden wurde !!!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, IBDatabase, StdCtrls, DBCtrls, IBCustomDataSet, IBQuery;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    IBQuery1: TIBQuery;
    DBMemo1: TDBMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var test : string;
    qry  : string;
begin

  IBQuery1.Open;
  DBMemo1.SelectAll;
  test :=DBMemo1.SelText;
  StringReplace(test,'FormStammArtikel','FormArtiekl_Stamm,,',[rfReplaceAll]);
  IBQuery1.SQL.Clear;


  Qry := 'UPDATE Tabelle SET MEMO1 =:Spalte where zaehler = 32';
  IBQuery1.sql.Add(Qry);
  IBQuery1.Prepare;
  IBQuery1.ParamByName('Spalte').AsString := test;
  IBQuery1.Open;
end;

end.