C++Builder Personal で DAO

クエリーを作成する

void __fastcall TForm1::Button7Click(TObject *Sender)

{

    Variant de = Variant::CreateObject("DAO.DBEngine.36");
    //Edit3 に mdbファイル名を入力

    Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<<false<<false);
    //Edit4 に テーブル名を入力

    //Edit5 に フィールド名を入力

    //Edit1 に Key値を入力

    AnsiString sql = "SELECT * FROM " + Edit4->Text + "  WHERE " + Edit5->Text + " = " + Edit1->Text;

    Variant qd = db.Exec(Function("CreateQueryDef")<<"Q_TEST"<<sql);
    db.Exec(Procedure("Close"));

}