1:

Query.SQL.Text:='UPDATE Bla SET Mem='''xxxxxxxx...xxxxxxxx''' WHERE ID=11                    

1:
2:
3:
4:
5:

begin
  Update Bla 
  SET Mem = :Text
  WHERE identifier = :uebergebeneridentifier;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:

{* Sample exported Advantage Extended Procedure. If you change the name of this
 * procedure remember to also change the name in the exports list at the bottom
 * of this file. *}
function MyProcedure( ulConnectionID: UNSIGNED32;
                    pusUserName: PChar;
                    pucPassword: PChar;
                    pucProcName: PChar;
                    ulRecNum: UNSIGNED32;
                    pucTable1: PChar;
                    pucTable2: PChar ): UNSIGNED32;
                    {$IFDEF WIN32}stdcall;{$ENDIF}{$IFDEF LINUX}cdecl;{$ENDIF} // Do not change prototype
var
   DM1 : TDM1;
   strTable1 : string;
   strTable2 : string;
   Texte: Array[1..7] of String;
begin

   try
      Result := AE_SUCCESS;

      {* Get this connection's data module from the session manager. *}
      DM1 := TDM1( AEPSessionMgr.GetDM( ulConnectionID ) );

      {* Use the ParamsConn connection to retrieve any input parameters passed
       * to this procedure. ExtractFileName and ExtractFileDir expect the
       * input to be in a native format, so convert if necessary. *}
      {$IFDEF LINUX}
      strTable1 := DosPathToUnixPath( StrPas( pucTable1 ) );
      strTable2 := DosPathToUnixPath( StrPas( pucTable2 ) );
      {$ELSE}
         {$IFDEF ADSDELPHI6_OR_NEWER}
         strTable1 := UnixPathToDosPath( StrPas( pucTable1 ) );
         strTable2 := UnixPathToDosPath( StrPas( pucTable2 ) );
         {$ELSE}
         strTable1 := StrPas( pucTable1 );
         strTable2 := StrPas( pucTable2 );
         {$ENDIF}
      {$ENDIF}

      DM1.ParamsConn.Disconnect;
      if ( Length( strTable1 ) > 0 ) then
         DM1.ParamsConn.ConnectPath := ExtractFileDir( strTable1 )
      else
         DM1.ParamsConn.ConnectPath := ExtractFileDir( strTable2 );

      with DM1 do
      begin
         tblInput.tablename  := ExtractFileName( strTable1 );
         tblOutput.tablename := ExtractFileName( strTable2 );

         {* The code commented out below shows how input parameters may be
          * read. *}
         // tblInput.open;
         // strManufacturer := tblInput.FieldByName( 'mfr' ).Value;
         // strProduct      := tblInput.FieldByName( 'product' ).Value;
         // tblInput.close;
         Texte[1]:=tblInput.FieldByName('Text1').AsString;
         Texte[2]:=tblInput.FieldByName('Text2').AsString;
         Texte[3]:=tblInput.FieldByName('Text3').AsString;
         Texte[4]:=tblInput.FieldByName('Text4').AsString;
         Texte[5]:=tblInput.FieldByName('Text5').AsString;
         Texte[6]:=tblInput.FieldByName('Text6').AsString;
         Texte[7]:=tblInput.FieldByName('Text7').AsString;


         {* Place to business logic of your procedure here. *}
         tblTexte.FieldByName('T1').Value:=Texte[1];
         tblTexte.FieldByName('T2').Value:=Texte[2];
         tblTexte.FieldByName('T3').Value:=Texte[3];
         tblTexte.FieldByName('T4').Value:=Texte[4];
         tblTexte.FieldByName('T5').Value:=Texte[5];
         tblTexte.FieldByName('T6').Value:=Texte[6];
         tblTexte.FieldByName('T7').Value:=Texte[7];

         {* Finally return any output parameters. *}
         // tblOutput.open;
         // tblOutput.append;
         // tblOutput.FieldByName( 'total_price' ).Value := 68.99;
         // tblOutput.post;
         // tblOutput.close;

      end;   {* with DM1 *}

   except
      on E : EADSDatabaseError do
         Result := E.ACEErrorCode;
      on E : Exception do
         {* other error *}
         Result := 1;
   end;

end;                    

1:
2:
3:

  Query.SQL.Text:='UPDATE test SET Memo=:T1 WHERE ID=1';
  Query.ParamByName('T1').Value:=Memo.Text;
  Query.ExecSQL;