Sub ShowUserRosterMultipleUsers() cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _ ' The user roster is exposed as a provider-specific schema rowset Set rs = cn.OpenSchema(adSchemaProviderSpecific, _ 'Output the list of all users in the current database. Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _ While Not rs.EOF End Sub |
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-5-15 11:22 , Processed in 0.080730 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.