C++Builder Personal で DAO

更新クエリー

void __fastcall TForm1::Button16Click(TObject *Sender)

{

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

    Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<<false<<false);

    Variant qd = db.Exec(Function("CreateQueryDef")<<"");
    //Edit4 に テーブル名を入力

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

    //Edit1, Edit2 に 値を入力

    AnsiString sql =  "UPDATE " + Edit4->Text + " "

                   +  "SET "    + Edit6->Text + " = '" + Edit2->Text + "' "

                   +  "WHERE "  + Edit5->Text + " = "  + Edit1->Text;
    qd.Exec(PropertySet("Sql")<<sql);

    qd.Exec(Procedure("Execute"));
    qd.Exec(Procedure("Close"));

    db.Exec(Procedure("Close"));

}