利用OLE Automation 存取 ACCESS 資料庫的範例:
------------------------------------------
Variant MsAccess, db, rs;
// 如果是 Access 95 的話用 "DAO.DBEngine"
MsAccess = CreateOleObject("DAO.DBEngine.35");
db = V.OleFunction("OpenDatabase", "c:\\ipj\\paaj98\\paaj0.mdb");
rs = v1.OleFunction("OpenRecordset", "tbDistrito");
ListBox1->Items->Clear();
while (!(int)rs.OlePropertyGet("EOF"))
{
ListBox1->Items->Add(rs.OlePropertyGet("Fields", "Distrito"));
rs.OleProcedure("MoveNext");
}
rs.OleProcedure("Close");
MsAccess = db = rs = Unassigned;
----------------------------------------------
               (
geocities.com/huanlin_tsai)