|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
RDBMS并非没有局限性。它们难以扩展,需要大量的资源来配置和维护,比如时间、硬件和人力。同样,它们往往遵循峰值性能模型,这就要求系统按照峰值容量来配置可用性,而不考虑典型的数据使用情况。数据|数据库SubShowUserRosterMultipleUsers()
DimcnAsNewADODB.Connection
Dimcn2AsNewADODB.Connection
DimrsAsNewADODB.Recordset
Dimi,jAsLong
cn.Provider="Microsoft.Jet.OLEDB.4.0"
cn.Open"DataSource=c:Northwind.mdb"
cn2.Open"Provider=Microsoft.Jet.OLEDB.4.0;"_
&"DataSource=c:Northwind.mdb"
Theuserrosterisexposedasaprovider-specificschemarowset
intheJet4OLEDBprovider.YouhavetouseaGUIDto
referencetheschema,asprovider-specificschemasarenot
listedinADOstypelibraryforschemarowsets
Setrs=cn.OpenSchema(adSchemaProviderSpecific,_
,"{947bb102-5d43-11d1-bdbf-00c04fb92675}")
Outputthelistofallusersinthecurrentdatabase.
Debug.Printrs.Fields(0).Name,"",rs.Fields(1).Name,_
"",rs.Fields(2).Name,rs.Fields(3).Name
WhileNotrs.EOF
Debug.Printrs.Fields(0),rs.Fields(1),_
rs.Fields(2),rs.Fields(3)
rs.MoveNext
Wend
EndSub
如果表有1000个记录,通过索引查找记录至少要比顺序扫描记录快100倍。 |
|