Ｃ＋＋ＢｕｉｌｄｅｒでＭｓＡｃｅｓｓ

　今回インプライズのＣ＋＋Ｂｕｉｌｄｅｒ４でマイクロソフトのアクセス９７のデータベースを操作したので、ちょっとまとめてみます。
　Ｃ＋＋Ｂｕｉｌｄｅｒは１．０発売時にごそごそと扱ってはいたのですが、今回ビュジュアル・ベーシックで作成する予定のだったアプリケーションをＣ＋＋Ｂｕｉｌｄｅｒ４で作成する事になり、その時得た情報などをまとめてみました。

前準備（ＢＤＥの設定）
　ＢＤＥの設定はただ単にドライバーの変更だけでも十分ですが、環境設定もしておくと何かと便利な面もありますので、とりあえず設定しておきます。

ＢＤＥ設定はＢＤＥ　Ａｄｍｉｎｉｓｔｒａｔｏｒというツールがありますので起動します。
　「環境設定」-&;「Drivers」->「Native」->「MSACCESS」を選択します。
　定義エリアのＤＬＬ３２にＩＤＤＡ３５３２．ＤＬＬ(ＭＳＡＣＣＥＳＳ９７用ドライバー) の設定がなされているか確認します。
BED Administrator 1

　ＩＤＤＡ３２．ＤＬＬであればＭＳＡＣＣＥＳＳ９５用のドライバーなので、ＩＤＤＡ３５３２．ＤＬＬドライバーに変更して下さい。

　今度は「データベース」の設定に戻り、新規作成をするとデータベースドライバ名を聞いてきますので、先程設定した「ＭＳＡＣＣＥＳＳ」を選択します。適当なエリアス名を設定します。
ここでは、MS-TESTにしました。
　ここで定義の DATABASE NAME を設定します。C:\TEST.MDB にしました。

ＭｓＡｃｃｅｓｓとＴａｂｌｅ
Table を使用

　TTable->TDataSource->TBGrid を使用したサンプルです。
以下のようにセットします。

class	プロパティ	設定内容
TTable	Name	Table1
	TableName	TEST
	DatabaseName	MS-TEST

TTDataSource	Name	DS1
	DataSet	Table1
TDBGrid	Name	DBG1
	DataSource	DS1
TColumn	DBG1->Column	cd
		nm

Tcolumn の DBG1->Column で表示フィールドを TEST.MDB のテーブル TEST のフィールド名を設定します。
ここでは、コード、及び名前ということでそれぞれ、ｃｄ、ｎｍを設定しました。
上記プロパティを設定したあと、TTable プロパティ Active を True にするとテーブルとデータベースが接続され、他の設定が問題なければＤＢＧｒｉｄ上にＡＣＣＥＳＳのデータベース情報が表示されます。
　また、これだけでアプリケーションとしての基本的なメンテナンスを行うことができます。
　ただし、処理終了時にさわった、データをＤＢに反映するため、フォームクローズ時に
　　if(Table1->Modified ) Table1->Refresh();

を実行する必要があります。

ＭｓＡｃｃｅｓｓとの接続(TDataBase)

　テーブルのＤａｔａＢａｓｅＮａｍｅに直接エリエスを設定した場合は、アプリ起動時にユーザー名、パスワードを問い合わせてきます。
　これがいやな場合は TDataBase を利用することにより、スルーする事が可能です。
　ここで　ＤＢ１は TDataBase->name です。

DB1->DatabaseName="TEST";

DB1->DriverName="MSACCESS"; // ドライバー名
DB1->Params->Clear();
DB1->Params->Add("DATABASE NAME=C:\\TEST.MDB"); // アクセスＤＢ名
DB1->Params->Add("USER NAME=");
DB1->Params->Add("OPEN MODE=READ/WRITE");
DB1->Params->Add("LANGDRIVER=");
DB1->Params->Add("SYSTEM DATABASE=");
DB1->Params->Add("PASSWORD=");

DB1->LoginPrompt=false; //ログイン方法を制御
DB1->Connected=true;

　ここで設定した、ＤＢ１を各テーブル、クエリーに設定する事により、ユーザー名、パスワードを未入力で処理可能です。

Table1->DatabaseName=DB1->DatabaseName;

　ここで Table1 が Table , TQurey になる。

ＭｓＡｃｃｅｓｓとＴＱｕｒｅｙ

　最初は、Ｔａｂｌｅ－＞ＤａｔａＳｏｕｒｃｅ－＞ＤＢＧｒｉｄで簡単に処理しようと試みたのですが、この構成で行うと、フィールド数が少ない場合は速度的に問題ないようですが、フィールド数が２００以上になった場合データのオープン読みこみだけで２０秒程かかってしまい、使用に耐えません。
　そこで、ＴＱｕｒｅｙのＳＱＬでフィールド指定を行うことにより、読み込み速度の向上が見られたので、ＴＱｕｒｅｙに変更しました。
そしてまた、ＴＱｕｒｅｙ－＞ＤａｔａＳｏｕｒｃｅ－＞ＤＢＧｒｉｄ　で処理しようとしたのですが、データの変更がＤＢＧｒｉｄではうまく行かないようなので、ＳｔｒｉｎｇＧｒｉｄに変更しました。
　ＤＢｇｒｉｄなど、処理が簡単に出来る分だけ、規制があるようで、なかなか難しいものです。
ＴＱｕｒｅｙ(rQy,wQy)－＞プログラム－＞ＳｔｒｉｎｇＧｒｉｄ　の構成になります。

ＴＱｕｒｅｙの読み込みＳＱＬの初期値は以下のように指定しました。

Select cd,nm from TEST where cd='01';

この　cd='01'　の部分を変更してデータを選択します。
実際の読み込み時のコーディングは以下のようになります。
　ここで cd->Text はTEdit で入力された値、rQy1 はＴＱｕｒｅｙです。

  rQy1->Close();
  rQy1->SQL->Clear();
  sSql = "Select cd,nm from TEST where cd='"+ cd->Text + "';";
  rQy1->SQL->Add(sSql);
  rQy1->Open();
  if(rQy1->Eof) {
    Application->MessageBox("該当データがありません。", "確認",
        MB_OK + MB_DEFBUTTON1);
    return false;
  }

　また、ＳｔｒｉｎｇＧｒｉｄ(iSG)に設定するルーチンは以下の通りです。

    iSG->Cells[n][0]=rQy1->FieldValues["cd"];
    iSG->Cells[n][1]=rQy1->FieldValues["nm"];

上記とは関係無いですが、フィールドの数が多くてフィールド名を一々設定したく無い場合以下の方法が可能です。

    for(i=0;i<12;i++) {  // たまたまフィールド数が１２として
      iSG-->Cells[n][i]=rQy1-->Fields-->Fields[i]-->AsString;;
    }

また、書き込み時は以下のように記述します。
ここで、ＳＱＬは INSERT または、UPDATE になります。

    wQy1->Close();
    wQy1->SQL->Clear();
    wQy1->SQL->Add(SQL);
    wQy1->ExecSQL();

ＭｓＡｃｃｅｓｓとＯＬＥ

ＭＳ－ＡｃｃｅｓｓをＯＬＥ接続にて読み込むには以下の通りになります。
下記コードは読み込みデータを単にフォームに設定したリストボックス(LB1)に追加書き込みをしているだけです。
アクセスＤＢへの書き込みについては、調査していません。
EDIT , POST, リダイレクションを使用する？

   AnsiString s;

   Variant theDAO = Variant::CreateObject("DAO.DBEngine.35");
   Variant theDB = theDAO.Exec( Function("OpenDatabase") << "C:\\TEST.MDB");
   Variant rdSets = theDB.Exec( Function("OpenRecordset") << "TEST");

   while( !rdSets.Exec(Function("EOF")) ) {
     s = AnsiString(rdSets.Exec(Function("cd"))) + "  "
        + AnsiString(rdSets.Exec(Function("nm")));
     LB1->Items->Add( s );
     rdSets.Exec(Function("MoveNext"));
   }
   rdSets.Exec( Procedure( "Close" ) );
   theDB.Exec( Procedure( "Close" ) );

ウインドウズ

[コンピュータメニュー]
Top へ戻る

[温泉]
[キャンプ]
[水汲み場]
[ハムスター]
[あっちこっち]
[地元]
[遊びのページ]

[コンピュータメニュー]