使用完整的用户名称进行检查,并使用ADODB.Connection对象的Execute方法执行查询以删除索引。
示例代码:
Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection
Dim indexName As String
Dim userName As String
indexName = "myIndex"
userName = "myUserName" '完整的用户名
Dim query As String
query = "DROP INDEX " & indexName & " ON myTable WHERE user_name = '" & userName & "'"
cn.Execute query
注意,在替换myIndex
和myTable
的表和索引名称时,确保它们是正确的。user_name
字段应该是索引中要检查的字段名称。