C++Builder Personal で ADO

削除クエリー (Command.Execute)

void __fastcall TForm1::Button17Click(TObject *Sender)

{

    Variant cn = Variant::CreateObject("ADODB.Connection");
    //Edit3 に mdbファイル名を入力

    cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Edit3->Text + ";");

    cn.Exec(Procedure("Open"));
    //Edit4 に テーブル名を入力

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

    //Edit1 に 値を入力

    AnsiString sql =  "DELETE * FROM " + Edit4->Text + " "

                   +  "WHERE "  + Edit5->Text + " = "  + Edit1->Text;
    Variant cmd = Variant::CreateObject("ADODB.Command");

    cmd.Exec(PropertySet("ActiveConnection")<<cn);

    cmd.Exec(PropertySet("CommandText")<<sql);

    cmd.Exec(Procedure("Execute"));
    cn.Exec(Procedure("Close"));

}