C++Builder Personal で DAO

追加する

void __fastcall TForm1::Button11Click(TObject *Sender)

{

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

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

    const int dbOpenTable = 1;

    Variant rs = db.Exec(Function("OpenRecordset")<<Edit4->Text<<dbOpenTable);
    rs.Exec(Procedure("AddNew"));

    rs.Exec(PropertyGet("Fields")<<0).Exec(PropertySet("Value")<<Edit1->Text);

    rs.Exec(PropertyGet("Fields")<<1).Exec(PropertySet("Value")<<Edit2->Text);

    rs.Exec(Procedure("Update"));
    rs.Exec(Procedure("Close"));

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

}