C++Builder Personal で DAO
選択クエリー
void __fastcall TForm1::Button14Click(TObject *Sender)
{
//表示用コントロールをクリア
Edit2->Text = "";Variant de = Variant::CreateObject("DAO.DBEngine.36");
//Edit3 に mdbファイル名を入力
Variant db = de.Exec(Function("OpenDatabase")<<Edit3->Text<<false<<false);//Edit4 に テーブル名を入力
//Edit5, Edit6 に フィールド名を入力
//Edit1 に Key値を入力
AnsiString sql = "SELECT " + Edit6->Text + " "
+ "FROM " + Edit4->Text + " "
+ "WHERE " + Edit5->Text + " = " + Edit1->Text;const int dbOpenForwardOnly = 8;
Variant rs = db.Exec(Function("OpenRecordset")<<sql<<dbOpenForwardOnly);if (!rs.Exec(PropertyGet("EOF")))
{
//表示用コントロールに項目内容をセット
Variant fd = rs.Exec(PropertyGet("Fields")<<0);
Edit2->Text = fd.Exec(PropertyGet("Value"));
}rs.Exec(Procedure("Close"));
db.Exec(Procedure("Close"));
}