5.SQLによる検索(TDBISAMQuery)

次はTDBISAMQuery を使ってSQLで操作してみましょう

（１）新規アプリケーションを作成してください

フォームにDBGrid, Memo, Button, DBISAMDatabese, DBISAMQuery, DataSource, Splitter を配置してください

（２）プロパティをセットします（ある程度省略しています）:

  DBISAMDatabase1.DatabaseName = Customer
  DBISAMDatabase1.Directory = C:\CustomerDB
  DBISAMQuery1.Active = True
  DBISAMQuery1.DatabaseName = Customer
  DBISAMQuery1.RequestLive = True
  DBISAMQuery1.SQL ='SELECT * FORM Customer'
  DataSource1.DataSet = DBISAMQuery1
  DBGrid1.DataSource = DataSource1
  Memo1.Lines = ''
  Memo1.WordWrap = False

（３）Button1のクリックイベントをコーディングします:

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    try
   　　with DBISAMQuery1 do begin
   　　　Close;
 　  　　Unprepare;
     　　SQL := Memo1.Lines;
   　  　Prepare;
   　　  if SQLStatementType = stSelect then
   　　　  Open
 　　  　else begin
   　　　　ExecSQL;
   　　　end;
    　 end;
    except
     　ShowMessage('SQLエラー');
    end;
  end;

（４）コンパイルして、メモにSQLを入れて実行ボタンを押してみましょう

UPDATE文、SELECT文も試してみてください。

ポイントはPrepareメソッドでSQLステートメントを判別しているところです