|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
无疑希望员工得到系统、有深度的培训,显然MySQL在这一点上还做得很不够。access
功效:猎取access库中表的个数及表的称号
用ado如何完成
工程--->援用--->MicrosoftActiveXDataObject2.x(版本号)
----------------------------------------------------------------------------
PrivateSubForm_Load()
DimadoCNAsNewADODB.Connection界说数据库的毗连
DimstrCnnAsNewADODB.Recordset
DimrstSchemaAsNewADODB.Recordset
DimIAsInteger
str1="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:Northwind.MDB;PersistSecurityInfo=False"
adoCN.Openstr1
SetrstSchema=adoCN.OpenSchema(adSchemaTables)
DoUntilrstSchema.EOF
IfrstSchema!TABLE_TYPE="TABLE"Then
out=out&"Tablename:"&_
rstSchema!TABLE_NAME&vbCr&_
"Tabletype:"&rstSchema!TABLE_TYPE&vbCr
I=I+1
EndIf
rstSchema.MoveNext
Loop
MsgBoxI
rstSchema.Close
adoCN.Close
Debug.Printout
EndSub
办法二:
Access体系表MsysObjects包括了数据库工具列表。只管未在文档中纪录,你仍可经由过程查询它来猎取你想要的。可是默许情形下没法操纵体系表,必需手动设定权限收才干查询体系表。
请参考以下动画:怎样猎取对msysobject的操纵权限
http://access911.net/eg/swf/msobject.swf
告诫:不要修正任何ACCESS体系表,不然会呈现不成料想的情形.
利用以下SQL语句来猎取你想要的
查询:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)"~")AND(MSysObjects.Type)=5ORDERBYMSysObjects.Name;
窗体:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)"~")AND(MSysObjects.Type)=-32768ORDERBYMSysObjects.Name;
表:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)"~")AND(Left$([Name],4)"Msys")AND(MSysObjects.Type)=1ORDERBYMSysObjects.Name;
报表:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)"~")AND(MSysObjects.Type)=-32764ORDERBYMSysObjects.Name;
模块:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)"~")AND(MSysObjects.Type)=-32761ORDERBYMSysObjects.Name;
宏:
SELECTMSysObjects.NameFROMMsysObjectsWHERE(Left([Name],1)"~")AND(MSysObjects.Type)=-32766ORDERBYMSysObjects.Name;
解决方案提供商应记住DBaaS通常仅仅是解决方案的一部分。客户之所以与他们的解决方案提供商协同工作,不仅是因为他们出售的产品,而且还因为他们所提供的服务。 |
|