以下为引用的内容: Sub ShowUserRosterMultipleUsers() Dim cn As New ADODB.Connection Dim cn2 As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i, j As Long 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 SuD |
- 上一篇:Word中段落大纲级别的有用之处
- 下一篇:Access 数据库定期归档记录