遍历sql server数据库中的所有表

阿杰

1. Dim cnn As ADODB.Connection
   
2. Dim rs As ADODB.Recordset
   
3. Set cnn = CreateObject("ADODB.Connection")
   
4. cnn.Open "Driver={SQL Server};Server=10.10.25.17;Database=bzk"
   
5. Set rs = cnn.OpenSchema(20)
   
6. While Not rs.EOF
   
7. If rs(3) = "TABLE" And rs(2) <> "PASS" Then
   
8. MsgBox (rs(2))
   
9. End If
   
10. rs.MoveNext
    
11. Wend

复制代码