查看后端连接从Excel访问数据库

我有一个数据库，在我的工作场所，许多人有excel文件与链接表等

在有些情况下，我非常重视数据库的使用，而且不能正确地分解和修改数百个可能的excel文件，这是不可行的。 尤其是当人们一直在创作新文件的时候。

我发现下面的代码可以让我看到有人连接到数据库的前端：

Sub ShowUserRosterMultipleUsers() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim i, j As Long Set cn = CurrentProject.Connection ' The user roster is exposed as a provider-specific schema rowset ' in the Jet 4.0 OLE DB provider. You have to use a GUID to ' reference the schema, as provider-specific schemas are not ' listed in ADO's type library for schema rowsets Set rs = cn.OpenSchema(adSchemaProviderSpecific, _ , "{947bb102-5d43-11d1-bdbf-00c04fb92675}") 'Output the list of all users in the current database. Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _ "", rs.Fields(2).Name, rs.Fields(3).Name While Not rs.EOF Debug.Print rs.Fields(0), rs.Fields(1), _ rs.Fields(2), rs.Fields(3) rs.MoveNext Wend End Sub 

是否有任何代码将做同样的事情，这给我的后端连接？ 至于谁有一个开放的Excel文件链接并locking数据库到只读？

Answer 1

1）您可以打开任何数据库的连接。 您已经使用“CurrentProject.Connection”，但您可以使用：

 set cn=Server.CreateObject("ADODB.Connection") cn.Provider="Microsoft.Jet.OLEDB.4.0" cn.Open "c:/webdata/northwind.mdb" 

2）如果方法（1）不合适，可以使用ODBC查询WMI并获取连接到任何特定文件的每个人的列表。