C++Builder Personal で ADO

追加クエリー (Command.Execute)

void __fastcall TForm1::Button15Click(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, Edit6 に フィールド名を入力

    //Edit1, Edit2 に 値を入力

    AnsiString sql =  "INSERT INTO " + Edit4->Text + " "

                   +  "(" + Edit5->Text + ", "  + Edit6->Text + ") "

                   +  "VALUES "

                   +  "(" + Edit1->Text + ", '" + Edit2->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"));

}