2005年08月11日

SQL文をプログラムの実装から開放しチューニングする方法

経験の浅いデータベース
アプリケーションのプログラマは、
しばしばDBMS(ORACLEなどの
データベース管理システム)に対し、
重たいSQL文を発行する厄介なコードを
実装することがあります。
おそらく自分では無意識かつ
無頓着で、コンピュータが消費する
コストやパフォーマンスなど考える頭が無い開発者です。

しかし、あなたのプロジェクトはそんな開発者でも、
猫よりはましと思い協力してもらわなければ
いけない局面があることでしょう。
プログラムのパフォーマンスがSQL文が原因となる場合、
あなたは、どのように対処するのでしょうか?

SQL文の実行結果が遅い場合、
その責任を問うのは設計者にですか、
プログラマにですか?
それとも、幸いDBA(データベース管理者)が
チームメンバに居る時は、
DBAに責任を押し付けるのでしょうか?

その答えは状況によりそれぞれでしょうが、
SQL文がプログラムの中でゴリゴリに実装されていたのでは、
そのパフォーマンスを改善するにしても、
余りに貴重な時間を無駄に消費するこは間違いありません。

今回は前回と同様、
Delphiの「dbExpress」と「ORACLE」
データベースを利用する前提で、
問合せを実行するデータベースアプリケーションのSQL文を、
プログラムの実装から開放し、
SQL文を即座にチューニングできる
アプリケーションアーキテクチャをご紹介します。

全ソースは【続きを読む】をクリック!

この記事が、あなたがつくるプログラムの
アプリケーションアーキテクチャの参考になればと思います。
(Good luck!)

使用例
//------------------------------------------------
procedure CopyQuery2CDS(
 pQuery: TSQLQuery; pCDS: TClientDataSet);
var
 lCnt: Integer;
 lName: String;
begin
 pCDS.Close;
 with pCDS.FieldDefs do
 begin
  Clear;
  for lCnt := 0 to pQuery.FieldCount-1 do
  begin
   with AddFieldDef do
   begin
    Name   := pQuery.Fields[lCnt].FieldName;
    DataType := pQuery.Fields[lCnt].DataType;
    Size   := pQuery.Fields[lCnt].Size;
    Required := pQuery.Fields[lCnt].Required;
   end;
  end;
 end;
 pCDS.CreateDataSet;
 pQuery.First;
 while (not pQuery.Eof) do
 begin
  pCDS.Append;
  for lCnt := 0 to pQuery.FieldCount-1 do
  begin
   lName := pQuery.Fields[lCnt].FieldName;
   pCDS.FieldValues[lName] := pQuery.FieldValues[lName];
  end;
  pCDS.Post;
  pQuery.Next;
 end;
end;

//------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
 // DB接続オブジェクトを初期化する
 mDB := TSQLConnection.Create(Nil);
 mDB.DriverName := 'ORACLE';
 mDB.GetDriverFunc := 'getSQLDriverORACLE';
 mDB.LibraryName := 'dbexpora.dll';
 mDB.VendorLib  := 'oci.dll';
 mDB.LoginPrompt := False;
 mDB.Params.Values['DataBase'] := 'CONNECT_STRINGS';
 mDB.Params.Values['User_Name'] := 'USER';
 mDB.Params.Values['Password'] := 'PASSWORD';
 mDB.Open;
 // 問合せオブジェクトを初期化する
 mSQL := TSQLQuery.Create(Nil);
 mSQL.SQLConnection := mDB;
 // データソースオブジェクトを初期化する
 mDS := TDataSource.Create(Nil);
 mCDS := TClientDataSet.Create(Nil);
 dbgResult.DataSource := mDS;
 mDS.DataSet := mCDS;
end;

//------------------------------------------------
procedure TForm1.FormDestroy(Sender: TObject);
begin
 // DB接続オブジェクトを廃棄する
 if (mDB <> Nil) then
 begin
  mDB.Close;
  mDB.Free;
 end;
 // 問合せオブジェクトを廃棄する
 if (mSQL <> Nil) then
 begin
  mSQL.Close;
  mSQL.Free;
 end;
 // データソースを廃棄する
 if (mDS <> Nil) then
 begin
  mDS.Free;
 end;
 if (mCDS <> Nil) then
 begin
  mCDS.Free;
 end;
end;

//------------------------------------------------
procedure TForm1.btnReadQueryClick(Sender: TObject);
begin
 // SQLRepositoryよりQueryNameで指定されたSQLを取得する
 mSQL.SQL.Text := Format(
  'select * from SQLREPOSITORY where QueryName = ''%s''',
   [edtQueryName.Text]);
 mSQL.ExecSQL;
 if (mSQL.RecordCount = 0) then
  raise Exception.Create(Format(
   '該当するSQLは見つかりません。(QueryName=''%s'')',
    [edtQueryName.Text]));
 // SQLRepositoryより取得したSQLを画面に表示する
 mSQL.Open;
 edtSQLText.Text := mSQL.FieldByName('SQLTEXT').AsString;
 CopyQuery2CDS(mSQL, mCDS);
 mSQL.Close;
end;

//------------------------------------------------
procedure TForm1.btnExecQueryClick(Sender: TObject);
begin
 // SQLに指定されたパラメータをバインドし実行する
 mSQL.SQL.Text := edtSQLText.Text;
 mSQL.Prepared := True;
 mSQL.Params.ParamByName(edtParameterName.Text).AsString :=
  edtParameterValue.Text;
 mSQL.ExecSQL;
 mSQL.Open;
 CopyQuery2CDS(mSQL, mCDS);
end;

end.


【画面イメージ】

QueryTester.GIF

関連書籍


Copyright guy@かしらもんじ でぇ〜

続きを読む
posted by guy at 06:41 | データベース編

広告


この広告は60日以上更新がないブログに表示がされております。

以下のいずれかの方法で非表示にすることが可能です。

・記事の投稿、編集をおこなう
・マイブログの【設定】 > 【広告設定】 より、「60日間更新が無い場合」 の 「広告を表示しない」にチェックを入れて保存する。


×

この広告は1年以上新しい記事の投稿がないブログに表示されております。