C++Builder Personal で ADO

クエリーを作成する

void __fastcall TForm1::Button7Click(TObject *Sender)

{

    Variant cat = Variant::CreateObject("ADOX.Catalog");
    //Edit3 に mdbファイル名を入力

    cat.Exec(PropertySet("ActiveConnection")<<"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Edit3->Text + ";");
    //Edit4 に テーブル名を入力

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

    //Edit1 に Key値を入力

    AnsiString sql = "SELECT * FROM " + Edit4->Text + "  WHERE " + Edit5->Text + " = " + Edit1->Text;
    Variant cmd = Variant::CreateObject("ADODB.Command");

    cmd.Exec(PropertySet("CommandText")<<sql);
    Variant views = cat.Exec(PropertyGet("Views"));

    views.Exec(Procedure("Append")<<"Q_TEST"<<cmd);

}