SQL VBA:选择具有特定表名和字段名的所有表

Sub SelectTables()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim tableName As String
    Dim columnName As String
    
    ' 创建数据库连接
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 设置要查询的表名和字段名
    tableName = "表名"
    columnName = "字段名"
    
    ' 构建SQL查询语句
    strSQL = "SELECT t.name AS TableName " & _
             "FROM sys.tables t " & _
             "INNER JOIN sys.columns c ON t.object_id = c.object_id " & _
             "WHERE t.name = '" & tableName & "' AND c.name = '" & columnName & "'"
    
    ' 执行查询
    Set rs = conn.Execute(strSQL)
    
    ' 遍历查询结果
    Do Until rs.EOF
        Debug.Print rs("TableName")
        rs.MoveNext
    Loop
    
    ' 关闭连接
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub