用ADOStoredProc1去執行access上的更新語法

須新增TADOConnect,TADOStoreProc,TButton,TEdit。
在TADOConnect的connected屬性改為True及LoginPrompt屬性改為False，以及ConnectionString設定好access位置。
TADOStoreProc的connection屬性設ADOConnect1。
TButton1點一下後
貼上程式碼

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FMTBcd, StdCtrls, DB, ADODB, SqlExpr, Grids, DBGrids;

type
  TForm1 = class(TForm)
    ADOStoredProc1: TADOStoredProc;
    ADOConnection1: TADOConnection;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOStoredProc1.ProcedureName:='q1';
  ADOStoredProc1.parameters.clear;
  ADOStoredProc1.parameters.CreateParameter('va', ftInteger, pdInput, 1, edit1.text);
  ADOStoredProc1.Prepared;
  ADOStoredProc1.execproc;
end;

end.

access的資料庫新增一個資料表ccc，及查詢q1，ccc資料表有a、b欄位(a為整數，b為文字)，q1的程式碼如下：
update ccc set ccc.b='ok' where ccc.a=[va];